2017-11-21 11 views
0

ggplot2를 사용하여 RStudio에서 교차 표를 시각화하려고합니다. 나는 과거에 플롯을 만들 수 있었고 크로스 테이블을 만들었지 만이를 해독 할 수는 없습니다. 누구든지 도와 줄 수 있습니까? 내가 함께 운영하고있어 데이터의 샘플 여기RStudio에서 교차 표를 플롯으로 표시

#doing a plot 
variance_art_new.plot = ggplot(data_dan, aes(Segment, fill=variant)) + 
    geom_bar(position="fill")+ 
    theme_classic()+ 
    scale_fill_manual(values = c("#fc8d59", "#ffffbf", "#99d594")) 
variance_art_new.plot 

것 : 여기

library(dplyr) 
data_dan %>% 
    group_by(Sex, Segment) %>% 
    count(variant) %>% 
    mutate(prop = prop.table(n)) 

나는 음모를 만들기위한있어 기능 :

는 여기에 X-탭 내 코드입니다 :

Word Segment variant Position  Sex 
1 LIKE  K  R  End  Female 
2 LITE  T  S  End  Male 
3 CRACK  K  R  End  Female 
4 LIKE  K  R  End  Male 
5 LIPE  P  G  End  Female 
6 WALK  K  G  End  Female 

내 목표는 'Sex', 'Segment'의 독립 변수를 boxplot에 종속 변수 르 '변종'. 크로스 테이블을 표시하는 테이블을 만들 수 있음을 보여주는 첫 번째 코드가 포함되어 있으며 두 번째 비트는 단 하나의 독립 변수에 대해 상자 플롯을 실행하기 위해 일반적으로 수행하는 것입니다.

+0

를 사용하여 집단 내 분포를 플롯 할 수 있습니다 enter image description here? 코드를 실행할 수 있도록 샘플 입력 데이터와 함께 적절한 [재현 가능한 예제] (https://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example)를 포함해야합니다. 그것이 무엇을하고 있는지보십시오. dplyr mutate 명령의 결과를 어딘가에 저장하고 있습니까? 지금 코드 두 개가 관련없는 것처럼 보입니다. – MrFlick

+0

나는이 점을 분명히하기 위해 주요 점을 편집했다. 나는 dplyr 결과를 저장하지 않았다. 데이터 집합에서 x-tab 그림을 만드는 것이 필요하다. 나는 그걸 포함시켜 테이블을 만들 수 있었지만 그래프는 만들 수 없었다. – MadDanWithABox

+0

찾고있는 출력이 명확하지 않습니다. 나는 * 당신이 바 플롯을 원한다고 생각하지만, 당신이 가지고있는 결과에 만족하지 않는 이유가 불분명합니다. –

답변

1

그래도이 질문에 답을 얻지 못할지 모르지만 두 개의 다른 변수 내에서 개수 (또는 부분)를 묻는 경우 facet_wrap을 사용하여 두 그룹을 구분할 수 있습니다.

(I 플롯의 유형을 선호하기 때문에 참고, 이러한 모든 theme_set(theme_bw())으로 실행됩니다.) 당신이 카운트를 얻을 수 mtcars

내장 데이터 세트로 작업하기 :

mtcars %>% 
    ggplot(aes(x = factor(cyl), fill = factor(gear))) + 
    geom_bar() + 
    facet_wrap(~vs) 

enter image description here

또는 다음을 반전하여 정렬하십시오.

mtcars %>% 
    ggplot(aes(x = factor(vs), fill = factor(gear))) + 
    geom_bar() + 
    facet_wrap(~cyl, labeller = label_both) 
,

또한 그래서 정확히 원하는 출력 무엇 position = "fill"

mtcars %>% 
    ggplot(aes(x = factor(vs), fill = factor(gear))) + 
    geom_bar(position = "fill") + 
    facet_wrap(~cyl, labeller = label_both) + 
    scale_y_continuous(name = "Within group Percentage" 
        , labels = scales::percent) 

enter image description here

+0

이것은 완벽합니다. 고마워요! – MadDanWithABox