如何为R中的两个分类变量使用ggplot生成带有错误栏的条形图？

Question

我想用ggplot为两个分类变量绘制条形图，显示比例的CI。

这是我尝试过的方法。钻石数据集的切割和净度变量比我的数据具有更多的类别，但是没有关系。从下面的代码生成的图形与最终图形非常接近，我只想在图形中添加比例和误差线的95％CI。

N <- diamonds %>%
  ggplot(aes(x = cut, group = clarity)) + 
  geom_bar(aes(y = ..prop.., fill = clarity), stat = "count") +
  geom_text(aes(label = scales:: percent(..prop..), 
                y = ..prop..), stat = "count", vjust = -.5) + 
  labs(y = "Percent", title = "Distribution of diamond clarity by cut",fill = "Clarity") + 
  facet_grid(~clarity) + 
  scale_y_continuous(labels = scales::percent)

N

谢谢。