我有以下脚本块,用于创建带有 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')
)
这让我得到了一个正确的情节,但是所有的点都是相同的颜色,并且与图例中表示的组不匹配。(对不起,我没有足够的声望点来发布图片)但是,我需要点的颜色与图例相匹配,无论我做什么我都无法得到它们。
任何和所有的帮助将不胜感激。我重写这个块的次数超出了我的计算范围,我确信这是一个愚蠢的错误。
谢谢,凯瑟琳