如何将95%的置信区间添加到ggplot中因子水平的比例图中？

# 加载所需的包
library(ggplot2)
library(dplyr)

# 数据处理和整理
# 假设您的数据框名为df，包含两列：factor和proportion
# factor列为因子水平，proportion列为比例

# 计算每个因子水平的平均值和标准误差
df_summary <- df %>%
  group_by(factor) %>%
  summarise(mean_proportion = mean(proportion),
            se_proportion = sd(proportion)/sqrt(length(proportion)))

# 创建基础的比例图
p <- ggplot(df_summary, aes(x = factor, y = mean_proportion))

# 添加比例图的几何图形
p <- p + geom_bar(stat = "identity")

# 添加置信区间
p <- p + geom_errorbar(aes(ymin = mean_proportion - 1.96 * se_proportion,
                           ymax = mean_proportion + 1.96 * se_proportion),
                       width = 0.2, position = "dodge")

# 自定义图形
p <- p + labs(title = "Factor Level Proportions with 95% Confidence Interval",
              x = "Factor Level", y = "Proportion")

# 显示图形
print(p)