我是ggplot2 的新手，不知道如何在它们之间绘制垂直的灰色虚线
x 轴上的点/点。这是我的示例代码：
d1 <- runif(10,10,15)
d2 <- runif(10,25,30)
d3 <- rep(1:10,2)
df <- data.frame(x = d3, y = c(d1,d2))
ggplot(df, aes(x=x, y=y)) +
geom_point()
【问题讨论】：
如果您的实际数据的结构与示例中使用的数据类似，只需将geom_line(aes(group = d3)) 添加到图中即可。
ggplot(df, aes(x=x, y=y)) +
geom_point() + geom_line(aes(group = d3))
【讨论】：
肯定有比这更好的方法，但是：
d1 <- runif(10,10,15)
d2 <- runif(10,25,30)
d3 <- rep(1:10,2)
df <- data.frame(x = d3, y = c(d1,d2))
df$place <- rep(c("min", "max") , each=10)
df_wide <- reshape(df, direction = "wide", v.names="y", timevar="place", idvar="x")
ggplot(df, aes(x=x, y=y)) +
geom_segment(aes(x=x, xend=x, y=y.min, yend=y.max),
size=1, data=df_wide, colour="grey70", linetype="dotted") +
geom_point()
虽然我不确定您所说的“沿 x 轴”是什么意思，但也许您希望它从上到下延伸，而不仅仅是在点之间。
【讨论】：
您应该使用geom_vline() 来执行此操作。
d1 <- runif(10,10,15)
d2 <- runif(10,25,30)
d3 <- rep(1:10,2)
df <- data.frame(x = d3, y = c(d1,d2))
ggplot(df, aes(x=x, y=y)) + geom_point() +
geom_vline(xintercept = df$x, linetype= 3, colour = "#919191")
【讨论】：