R：格子图形标题

Question

我想在格子中定制标题...特别是对于splom，我想要删除图形底部的标题“散点图矩阵...”。

splom(
    iris[,1:4], 
    upper.panel = function(x, y, ...) { 
     panel.xyplot(x, y) 
     l <- lm(y~x) 
     panel.xyplot(x,fitted(l), type="l") 
     l <- lowess(x,y) 
     panel.xyplot(l$x, l$y, col="red", type="l") 
     panel.xyplot(x, y) 
    }, 
    lower.panel = function(x, y, ...) { 
     x1 <- range(x,na.rm=T) 
     y1 <- range(y,na.rm=T) 

     panel.text(min(x1)+(max(x1)-min(x1))/2, min(y1)+(max(y1)-min(y1))/2, labels=round(cor(x,y),3), cex=2) 
    }, 
) 

由于提前，

P.

Answer 1

像这样的事情？

splom(
     iris[,1:4], 
     upper.panel = function(x, y, ...) { 
      panel.xyplot(x, y) 
      l <- lm(y~x) 
      panel.xyplot(x,fitted(l), type="l") 
      l <- lowess(x,y) 
      panel.xyplot(l$x, l$y, col="red", type="l") 
      panel.xyplot(x, y) 
     }, 
     lower.panel = function(x, y, ...) { 
      x1 <- range(x,na.rm=T) 
      y1 <- range(y,na.rm=T) 

      panel.text(min(x1)+(max(x1)-min(x1))/2, min(y1)+(max(y1)-min(y1))/2, labels=round(cor(x,y),3), cex=2) 
     }, xlab = "" 
)