R：在同一个箱线图上画一条线

Question

我尝试在箱线图顶部显示一条线，其中 x 由因子制成。

此代码运行良好：

x <- c(91,92,93,125,123,140)
y <- c(200,260,220,300,350,360)
d1 <- data.frame(x=x,y=y)
d1$f1 = factor(round(d1$x/10))
qplot(f1,y,data=d1,geom="boxplot")
d2<-data.frame(x2=c(90,140),y2=c(210,320))
qplot(x2,y2,data=d2,geom="line")

但是当我尝试将线添加到图表时......

qplot(f1,y,data=d1,geom="boxplot") + geom_line(data = d2, aes(x = x2, y=y2))

查看我的结果： http://jeb-files.s3.amazonaws.com/Clipboard01.jpg

我如何设法让我的线与我的箱线图对齐？

谢谢！

Answer 1

boxplot要求 x 值是因子，而geom_line要求 x 值是数字。 您可以通过修改geom_line调用来获得所需的内容，以便将x值定义为从round(x2/10)获得的有序因子的数字版本：

qplot( f1,y,data=d1,geom="boxplot") +
 geom_line(data = d2, aes(x = as.numeric(ordered(round(x2/10))), y=y2))