向 XY 晶格图添加附加面板图答案

【问题标题】：Adding additional panel plots to an XY lattice plot向 XY 晶格图添加附加面板图
【发布时间】：2015-09-30 14:06:11
【问题描述】：

我希望更改线条的颜色并在 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 种不同的颜色，以便我可以区分它们。

【问题讨论】：

标签： r plot lattice rscript

【解决方案1】：

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

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

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

你最后的)} 应该是})。

【讨论】：