在R嘗試繪製y軸上的兩個變量用不同的顏色，也是需要的abline - 不能組合兩個

Question

我想繪製y軸上的兩個不同變量與x軸上的年齡類別。我想爲此有不同的顏色。到目前爲止好我用

xyplot(PRR+EBGM ~AGEcateg |drug, type="b",pch=17,lty=1,cex=1, col=c("lightblue","darkblue"), layout=c(3,1), aspect=1.5, main="PRR values stratified by age category for selected Drug Event Combinations", xlab="Paediatric age category", ylab="Proportional reporting ratio") 但是我明白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) 

}

但我不知道該怎麼做此功能繪製不同顏色的線，我只是得到不同的顏色的點，但線本身是相同的... 這就是我得到：

enter image description here

非常感謝！ 少了些

Answer 1

我猜你的數據框可能類似於以下內容：

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

，如果你想繪製Y1和Y2與X，你可以使用ggplot2

library(ggplot) 
ggplot(data) + 
geom_line(aes(x, y1), color = "red") + 
geom_line(aes(x,y2), color = "green")