r - xyplot 面板功能覆盖组颜色

Question

我有以下脚本块，用于创建带有 lm 线和 lm 线穿过原点的散点图：

xyplot(nbsp~FRic, groups = Ecoregion,data=dataplot, xlab="Functional Richness", ylab="Species Richness",
       panel=function(x, y, groups) {
         panel.xyplot(x, y)
         panel.abline(lm(y~x), col='blue')
         panel.abline(lm(y~x+0), col='red')
       },
       type='l',
       auto.key = list(title='Ecoregion', space='right')
)

这让我得到了一个正确的情节，但是所有的点都是相同的颜色，并且与图例中表示的组不匹配。（对不起，我没有足够的声望点来发布图片）但是，我需要点的颜色与图例相匹配，无论我做什么我都无法得到它们。

任何和所有的帮助将不胜感激。我重写这个块的次数超出了我的计算范围，我确信这是一个愚蠢的错误。

谢谢，凯瑟琳

Answer 1

我想这就是你想要的。小心你的函数参数。

xyplot(nbsp~FRic, groups = Ecoregion,
       data=dataplot, xlab="Functional Richness", 
       ylab="Species Richness",
       panel=function(x, y, groups=groups,...) {
         panel.xyplot(x, y, groups=groups,...)
         panel.abline(lm(y~x), col='blue')
         panel.abline(lm(y~x+0), col='red')
       },
       type='l',
       auto.key = list(title='Ecoregion', space='right')
)