r - 在 stat_summary 中使用position_dodge 来获取平均值和置信区间？

Question

我正在尝试显示两组数据。我使用 ggplot2 包来绘制数据图表，并使用 stat_summary() 来获取数据图中的点估计(平均值)和 90% CI。我想要的是将平均值和置信区间构造在表示数据分布的点的右侧。目前，stat_summary() 将简单地将均值和 CI 强加于分布之上。

以下是我正在使用的数据示例:

set.seed(9909)
Subjects <- 1:100
values <- c(rnorm(n = 50, mean = 30, sd = 5), rnorm(n = 50, mean = 35, sd = 8))
data <- cbind(Subjects, values)
group1 <- rep("group1", 50)
group2 <- rep("group2", 50)
group <- c(group1, group2)
data <- data.frame(data, group)
data

这就是我当前的 ggplot2 代码的样子(分布为点，平均值和 90% CI 覆盖在每个组的顶部):

ggplot(data, aes(x = group, y = values, group = 1)) +  
geom_point() + 
stat_summary(fun.y = "mean", color = "red", size = 5, geom = "point") +
stat_summary(fun.data = "mean_cl_normal", color = "red", size = 2, geom = "errorbar", width = 0, fun.args = list(conf.int = 0.9)) + theme_bw()

是否可以获取各自组右侧position_dodge的均值和置信区间？

Answer 1

您可以使用position_nudge:

ggplot(data, aes(x = group, y = values, group = 1)) +  
  geom_point() + 
  stat_summary(fun.y = "mean", color = "red", size = 5, geom = "point",
               position=position_nudge(x = 0.1, y = 0)) +
  stat_summary(fun.data = "mean_cl_normal", color = "red", size = 2, 
               geom = "errorbar", width = 0, fun.args = list(conf.int = 0.9),
               position=position_nudge(x = 0.1, y = 0)) + 
  theme_bw()