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

Question

我正在尝试为 3 个组绘制一个简单的散点图，每个组有不同的水平线(线段):例如，“a”组在 3 处的水平线，“b”组在 2.5 处的水平线和在6 组“c”。

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))

我真的很感谢你的帮助!

Answer 1

当一个点足够时，永远不要发送一行:

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))

如果这是 Not Acceptable ，还有其他方法，例如:

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))

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

该段的缺点是需要对离散轴位置与因子使用数字。

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