2

考虑以下代码：

library(lattice)
m <- matrix(1:16, nrow=4)
splom(m, panel=function(x, y, ...) {
  panel.xyplot(x, y, ...)
  panel.smooth(x, y, ...) ## this line doesn't seem to work
})

调用它会给我错误：

Error in grid.Call.graphics(L_downviewport, name$name, strict) : 
  Viewport 'plot_01.panel.1.1.off.vp' was not found

我究竟做错了什么？这是一个错误吗？如何在格 splom 中叠加平滑线？

> sessionInfo()
R version 3.0.1 (2013-05-16)
Platform: x86_64-pc-linux-gnu (64-bit)

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
 [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8    
 [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
 [7] LC_PAPER=C                 LC_NAME=C                 
 [9] LC_ADDRESS=C               LC_TELEPHONE=C            
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] lattice_0.20-23

loaded via a namespace (and not attached):
[1] grid_3.0.1
4

1 回答 1

1

panel.smooth实际上，是一个函数，graphics而不是lattice; 不幸的是，该名称具有误导性（我认为它是lattice面板功能系列的一部分，但我错了）。

panel.loess可能是首选。

于 2013-09-16T22:46:53.123 回答