r - 带有 ggplot 的抖动图以及每组的平均线

Question

我在最近的搜索中看到了我的问题的一些答案，但没有一个对我有用。

我想绘制一个 geom_jitter() 除以 3 组并为每组添加平均线。到目前为止，我有以下代码。但是还是不好。

library(ggplot2)
data("iris")

iris.summary <- aggregate(. ~ Species, mean, data=iris)

ggplot(iris, aes(x=Species, y=Sepal.Width, shape=Species)) +  
   geom_jitter(width=0.2) + geom_hline(data=iris.summary, size=1, 
   col="red", aes(yintercept=Sepal.Width))

生成以下图表:

如何将红线设置到点的边缘？

提前致谢

雷南·巴特尔斯

Answer 1

你可以像这样使用 geom_crossbar() 做一些修改:

ggplot(iris, aes(x=Species, y=Sepal.Width, shape=Species)) +  
    geom_jitter(width=0.2) +
    geom_crossbar(data=iris.summary, aes(ymin = Sepal.Width, ymax = Sepal.Width),
                  size=1,col="red", width = .5)

您必须尝试使用​​ width = ... 才能使其恰到好处，但这很接近。

不直接相关，但我从 stat_summary() 中得到了很多帮助，并且认为它也能更好地显示数据:

ggplot(iris, aes(x=Species, y=Sepal.Width, shape=Species)) +  
    geom_jitter(width=0.2) +
    stat_summary(fun.data = mean_cl_normal, geom = "crossbar",
                 width = .5, color = "red")