如何在散点图上创建单独的均值，误差条以及如何制作水平平均线？

Question

我想制作一个position_dodged scatter plot，其手段表示为水平线（带误差线）。

我遇到position_dodging使用stat_summary()的平均值和误差条并使平均值显示为水平线有问题。

我想表明两性之间的平均值是不同的。我知道每个小组都有不同的手段，但我不知道如何形象化。

download.file(url="https://ndownloader.figshare.com/files/2292169",
              destfile = "~/portal_data_joined.csv")

surveys <- read.csv

surveys_cln <- surveys %>% filter(sex=="F"|sex=="M")

ggplot(data = surveys_cln, mapping = aes(x=species_id, y=weight, color=sex))+
  geom_jitter(alpha=.6, position = position_dodge(.5))+
  stat_summary(fun.data = mean_sdl, fun.args = list(mult=1), 
               geom="errorbar", color="red", width=.5, position=position_dodge2(width=.9))
  stat_summary(fun.y=mean, geom="errorbar", color="red", width = .75, linetype = "dashed", position=position_dodge(9))

我每个条件只有一个mean+errorbar，不适用于两组病情。如果我能分别展示两性的mean+errorbar，那就太好了。

这是图像

嗨！谢谢您的帮助。这是一个更新的代码：

  ggplot(data = surveys_cln, mapping = aes(x=species_id, y=weight, fill=as.factor(sex), shape=as.factor(sex)))+

  geom_jitter(alpha=.6, position = position_dodge(.5))+
  stat_summary(aes(group = sex), fun.data = mean_sdl, fun.args = list(mult=1), 
  geom="errorbar", width=.5, position=position_dodge2(width=.9))+
  stat_summary(fun.y=mean, geom="errorbar", width = .75, linetype = "dotted", position=position_dodge(9))+

  scale_fill_manual(values=c("#006D2C","#DEEBF7"))+
  #scale_fill_brewer(palette="Paired")+

  theme_bw()+
  #theme(text=element_text(size=30))+
  theme(#legend.position = "none",
    plot.title = element_blank(),
    panel.grid.major.x = element_blank(),
    axis.title.x = element_text(),
    axis.text.x = element_text(),
    axis.ticks = element_blank(),
    axis.text.y = element_text(size=rel(.7)))

你能用颜色帮我吗？我想要F =＃000000和M =＃73000a。

另外，无论如何将平均值可视化为错误栏之间的水平条？

这是第二次尝试

再次感谢！

Answer 1

你需要在你的aes(group = sex)中添加geom_*()。

ggplot(data = surveys_cln,
       mapping = aes(x = species_id, y = weight, color = sex)) +
  geom_jitter(alpha = .6, position = position_dodge(.5)) +
  stat_summary(fun.data = mean_sdl, fun.args = list(mult = 1), 
               aes(group = sex), 
               geom = "errorbar", color = "red", width = .5, 
               position = position_dodge2(width = .9))

Answer 2

虽然@ abichat的答案是完全正确的，但您也可以删除color="red"参数，这会导致ggplot不对您的数据进行分组。

这样，您的绘图将显示具有良好颜色的错误栏（可能会增加其厚度以提高可读性）。