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

我认为这就是你想要的。请注意function arguments。

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')
)

xyplot面板功能覆盖组颜色

1 个答案: