Как построить две двумерные гистограммы в одном кадре?

Question

Я пытаюсь построить две двумерные гистограммы в одном кадре, чтобы увидеть, равны ли они.Я поместил MWE ниже со случайно сгенерированными данными.

x1 = seq(1, 5, length.out = 20)
x2 = seq(1, 5, length.out = 20)
x3 = matrix(rnorm(400), 20, 20)

y1 = seq(1, 5, length.out = 20)
y2 = seq(1, 5, length.out = 20)
y3 = matrix(rcauchy(400), 20, 20)

persp(x1, x2, x3, theta = 30, phi = 30, expand = 0.5, col = "lightblue")
par(new = TRUE)
persp(y1, y2, y3, theta = 30, phi = 30, expand = 0.5, col = "green")

График выглядит так:

Таким образом, графики перекрываются таким образом, что я не могу их сравнить.Могу ли я сделать любой из графиков как-нибудь прозрачным для этого?Заранее спасибо!

Answer 1

Вы можете использовать rgb() с опцией alpha для col.

persp(x1, x2, x3, theta=30, phi=30, expand=0.5, col=rgb(0,0,1,alpha=0.3) )
par(new=TRUE)
persp(y1, y2, y3, theta=30, phi=30, expand=0.5, col=rgb(0,1,0,alpha=0.3) )

Результат

Примечание: Чтобы избежать наложения меток, добавьте опции xlab="", ylab="", zlab="", например, ко второму графику.