在R中，尝试用不同的颜色在y轴上绘制两个变量，也需要绘制一条线-不能同时使用这两种颜色

我试图在y轴上绘制两个不同的变量，而在x轴上绘制年龄类别。我想要不同颜色的。到目前为止我用的很好

xyplot（PRR+EBGM~AGEcateg |药物，
type=“b”，pch=17，lty=1，cex=1，
col=c（“浅蓝色”、“深蓝色”），
布局=c（3,1），
纵横比=1.5，
main=“根据所选药物事件组合的年龄类别分层的PRR值”，
xlab=“儿科年龄类别”，
ylab=“比例报告比率”）

但是，我知道xyplot没有abline，所以我尝试通过一个函数：

mypanel <- function(x, y, y0) {
panel.xyplot(x, y, pch=17,lty=1,cex=1, col=c("lightblue", "darkblue"))
panel.lines(x,y)
panel.abline(h=1,col="red",lty=2)

---

mypanel我猜您的数据帧可能如下所示：

x <- seq(1:5)
y1 <- runif(5)
y2 <- sample(1:100,5)
data <- data.frame(x,y1,y2)

非常感谢，希瓦。也可以用ggplot2添加一条abline？@Lexie当然可以。您可以添加它，请查看ggplot手册：），因为我还没有尝试在ggplot中使用abline:）
library(ggplot)
ggplot(data) +
geom_line(aes(x, y1), color = "red") +
geom_line(aes(x,y2), color = "green")