R: решетчатые графические заголовки - PullRequest
Новая
       0

R: решетчатые графические заголовки

2 голосов
/ 24 февраля 2011

Я хочу настроить заголовки в решетке ... Специально для сплома я хочу удалить заголовок "Матрица рассеяния ..." внизу графика. 

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.

1 Ответ

2 голосов
/ 24 февраля 2011

Как то так? 

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