r - xyplot を使用した線の種類ごとに異なる色

Question

これはおそらく非常に基本的な質問ですが、xyplot のラティスで、曲線と回帰直線 (タイプ "r"、タイプ "l") の両方をプロットして、各線に異なる色を与えるのに苦労しています。

?cars基本的に、データセットを使用して以下のコードを試しました。

xyplot(speed ~ dist, data=cars, type=c("r", "l"), 
       col=c("red", "black"), 
       auto.key=list(lines=TRUE))

問題は、両方の線をプロットすることですが、両方とも赤です....

Answer 1

xyplot(speed ~ dist, data=cars,
       panel=function(x, y, col, ...) {
         panel.xyplot(x, y, col='red', ...)
         panel.abline(lm(y~x), col='blue')
       },
       type='l'
)

Answer 2

これが 1 つの方法latticeExtraです。

df <- data.frame(x=1:10,y=c(10,9,8,1,3,4,6,7,8,10))

library(lattice)
library(latticeExtra)

xyplot(y ~ x, data=df, type=c("r"),col=c("gray")) +
as.layer( xyplot(y ~ x, data=df, type=c("l"),col=c("blue")))

そのために、個人的には、これらのことを次のように行うことを好みますggplot2。

library(ggplot2)
ggplot(df,aes(x=x,y=y)) + geom_line(colour="blue") +  
stat_smooth(method=lm,colour="black",se=FALSE)