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晶格图

1 个答案: