r - 如何在单个帧中绘制两个二元直方图？

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

剧情看起来

因此，这些图以一种我无法比较的方式重叠。我可以让任何一个情节以某种方式透明吗？提前致谢！

标签： r3dhistogramoverlapdensity-plot

Answer 1

您可以使用withrgb()选项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=""请在第二个图中添加选项，例如。