R : 오차 막대가있는 문자 변수 비율의 그룹화 된 막대 그래프

Question

비율에 대한 오차 막대를 포함하여 문자 벡터의 다른 값에 해당하는 여러 그룹의 관측 비율에 대한 플롯을 작성하려고합니다.

내가 가지고있는 데이터의 최소한의 작업 예를 아래에 발견된다 :

# Observations belong to group 'a' or 'b' 
group <- c("a","a","b","b","b","a", "a") 

# Each observation can take on values of "low", "med", or "high" 
values <- c("low","low","low","high","med","high", "high") 

# My data is a single data frame 
dat <- data.frame(as.character(group), as.character(values)) 

우리가 위에서 볼 수 있듯이 : 'A'총 4 명 관찰로 구성되어

• 그룹 : 2 "낮은"(50 %) 관측 값과 "높은"(50 %) 관측 값.
• 그룹 'b'는 값이 "낮음"(33 %), 값이 "med"(33 %)가 1 회, 값이 "높음"이 1 회 (33 %) 인 총 3 회의 관측으로 구성됩니다. . I는 X 축 그것의 가능한 값의 각각 (저, 메드 높은)을 '값'벡터 검색된 상기 Y 축이 비율 인 플롯을 작성하는 것을 시도하고

각각. '그룹'벡터의 가능한 각 값과 그룹 구성원이보고 할 수있는 가능한 값 각각에 대해 다른 막대가 표시됩니다. 오류 막대는 이미지에 포함됩니다. 오류 막대로 비율을 계산하는 방법과 ggplot의 그림에 비율을 포함시키는 방법을 찾는 데 어려움이 있습니다.

Answer 1

여기 그것에 대해 갈 수있는 방법입니다. 오류 막대는 주어진 그룹의 일부에서만 하나의 관찰이 있기 때문에 사용자가 제시 한 예제 데이터로 인해 실제로 커집니다.

library(dplyr) 
library(ggplot2) 

dat <- data_frame(group, values) %>% 
    count(group, values) %>% 
    group_by(group) %>% 
    mutate(percent = n/sum(n), 
      error = sqrt((percent * (1-percent))/n)) %>% 
    mutate(values = factor(values, levels = c("low", "med", "high"))) 

dat 

#> Source: local data frame [5 x 5] 
#> Groups: group [2] 
#> 
#> group values  n percent  error 
#> <chr> <fctr> <int>  <dbl>  <dbl> 
#> 1  a high  2 0.5000000 0.3535534 
#> 2  a low  2 0.5000000 0.3535534 
#> 3  b high  1 0.3333333 0.4714045 
#> 4  b low  1 0.3333333 0.4714045 
#> 5  b med  1 0.3333333 0.4714045 


ggplot(dat, aes(values, percent, fill = group)) + 
    geom_col(position = "dodge") + 
    geom_errorbar(aes(ymin = percent - error, ymax = percent + error), 
        position = position_dodge(0.9))