将panel.lmline和panel.smoothScatter添加到晶格xyplot

Question

我正在尝试将线性趋势线添加到已由panel.smoothScatter平滑的散点图中。

根据其他帖子，我尝试添加type=c("p","r")，但这没有做任何事情。我也试过让面板成为一个调用它们的函数，但是这会产生一个空白的图：

#plots smoothed scatter without trend line
p2 <- xyplot(y~x, grid=T, type=c("p","r"), panel=panel.smoothScatter)
#plots nothing
p2 <- xyplot(y~x, grid=T, type=c("p","r"), panel=function(...){panel.smoothScatter;panel.lmline})

如何在一个xyplot中使用多个panels？

Answer 1

您只需修复自定义面板功能即可正确调用所需的面板功能

p2 <- xyplot(y~x, grid=T, panel=function(...){
    panel.smoothScatter(...)
    panel.lmline(...)
})