將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(...)
})