r - 在R中使用ggplot2在分类散点图中添加水平线

我正在尝试为3个组绘制一个简单的散点图，每个组具有不同的水平线（线段）：例如，对于“ a”组，hline为3；对于“ b”组，hline为2.5；对于h组，hline组“ c”为6。

library(ggplot2)
df <- data.frame(tt = rep(c("a","b","c"),40),
             val = round(rnorm(120, m = rep(c(4, 5, 7), each = 40))))
ggplot(df, aes(tt, val))+
geom_jitter(aes(tt, val), data = df, colour = I("red"),
position = position_jitter(width = 0.05))

非常感谢您的帮助！

最佳答案

当一个点足够时，切勿发送直线：

library(ggplot2)

df <- data.frame(tt = rep(c("a","b","c"),40),
                 val = round(rnorm(120, m = rep(c(4, 5, 7), each = 40))))

hline <- data.frame(tt=c("a", "b", "c"), v=c(3, 2.5, 6))

ggplot(df, aes(tt, val))+
  geom_point(data=hline, aes(tt, v), shape=95, size=20) +
  geom_jitter(aes(tt, val), data = df, colour = I("red"),
              position = position_jitter(width = 0.05))

如果不能接受，还有其他方法，例如：

hline <- data.frame(tt=c(1, 2, 3), v=c(3, 2.5, 6))

ggplot(df, aes(tt, val))+
  geom_jitter(aes(tt, val), data = df, colour = I("red"),
              position = position_jitter(width = 0.05)) +
  geom_segment(data=hline, aes(x=tt-0.25, xend=tt+0.25, y=v, yend=v))

该点的缺点是厚度过大，无法控制宽度。

该段的缺点是需要使用数字表示离散轴位置与系数。

我还应该设置随机种子以确保可重复性。