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 = "" 
)