我有这个代码,我想为绘图中的所有组绘制单个回归线(不是每个组的一个回归)。
我该怎么做? (我有3组犁沟)
这是我的代码:
VOL<-xyplot(B$Inflow.Vol..During.Adv...m.3.~B$c..cm.|factor(dat$Group),
scales=list(alternating=1, tck = c(1,0)),
groups = B$Furrow,
par.settings = list (superpose.line = list (lty = c(1, 2, 4) , lwd = lin2), superpose.symbol = list (pch = symbols)),
auto.key = list (text = c("Furrow 1", "Furrow 3", "Furrow 5"),rows = 3, corner = c(0.95, 0.6), lines = FALSE , points = TRUE, title = ""),
type = c("p","r"), cex = mycex2, grid=TRUE, xlab = "C", ylab = "Inflow Volume During Advance, m3")
感谢。
答案 0 :(得分:0)
您没有提供数据。你应该提供数据。
以下是使用iris
数据集的示例。
xyplot(Sepal.Length~Petal.Length|cut(Sepal.Width,3),iris,
groups=Species,
panel=function(x,y,...){
l=lm(y~x)
panel.xyplot(x,y,...)
panel.abline(l)
})
在panel
函数中,计算每个面板的回归线,然后绘制数据和拟合线。