R: добавление гистограммы в парный график

Question

Я хотел бы добавить небольшую гистограмму X4 где-нибудь в верхней части графика ниже. Вы можете мне помочь?

X1 <- runif(100) 
X2 <- runif(100) 
X3 <- runif(100) 
X4 <- runif(100) 
pairs(~ X1 + X2 + X3, upper.panel=NULL) 

Answer 1

Это, кажется, не представляется возможным с помощью пары не действуют непосредственно, если с помощью макета, как предложено в комментариях. Обходной путь состоял бы в том, чтобы построить график зависимости и график гистограммы отдельно. Если вам понравилась пустой X1-X2-X3 диагональ, что представлено парами вы в основном могли бы имитировать, что использование вместо сетки 3х3:

par(mfrow=c(2,2)) 
plot(X1, X2, xlab="X1", ylab="X2", main="") 
hist(X4, main="") 
plot(X1, X3, xlab="X1", ylab="X3", main="") 
plot(X2, X3, xlab="X2", ylab="X3", main="") 

Answer 2

panel.hist <- function(x, ...) 
{ 
    usr <- par("usr"); on.exit(par(usr)) 
    par(usr = c(usr[1:2], 0, 1.5)) 
    h <- hist(x, plot = FALSE) 
    breaks <- h$breaks; nB <- length(breaks) 
    y <- h$counts; y <- y/max(y) 
    rect(breaks[-nB], 0, breaks[-1], y, col = "cyan", ...) 
} 
##[source][1]