向 XY 点阵图添加额外的面板图

Question

我想要更改线条的颜色并在 xy 图中添加一条额外的线条

Distance<-c(1,2,3,4,5,6,7,8,9,10,11,12,13)
PAR<-c(1,3,5,9,15,12,11,6,5,4,3,1,0.5)

Function1<-function(Distance,param){
  abs(param[1])*Distance*param[2]*exp(1)*exp(-(Distance*param[2]))
}

Function2<-function(Distance,param){
param[1]+param[2]*Distance
}

e<-c(0.05,0.1)

f<-c(4,0.9)

p1<-xyplot(PAR~Distance,data=Control,     
           xlab="Exponential Model", ylab=expression("C=1"),
           xlim=c(0,20),
           ylim=c(0,0.1),
           col = ("cornsilk3"),
           grid=(TRUE),
           panel=function(x,y,...){
             panel.xyplot(x,y,...)
             panel.lines(x,(Function1(x,1,e))))}

所以基本上我想为 function2 添加一个额外的面板行与 f 参数列表配对，并将它们作为 2 种不同的颜色，以便我可以区分它们。

Answer 1

只需添加另一行panel.lines(x,(Function2(x,f)),col="red")

另请注意，我认为 Function1(x,1,e) 应该是 Function1(x,e)。

您的示例数据不在 data.frame Control 中。你可能需要调整 ylim.

最后的 )} 应该是 })。

向 XY 点阵图添加额外的面板图

Adding additional panel plots to an XY lattice plot

r

plot

lattice

rscript