如何在R中将两个或多个2D直方图合并在一起？

Question

如何合并2个直方图qplots并将它们放在同一个图上而不是2个单独的图上？关于简单的一维直方图有一个类似的问题：How to plot two histograms together in R? 但是，他们不使用qplots，他们使用简单的一维直方图。 以下是原始代码。如果您可以对其进行修改，使每个直方图图例在左侧为一个，而另一个在图表的右侧则为我的一天。非常感谢你!!!

Q = { {[0]    [1]    [0]    [238]} }
Q{1}

ans = 

    [0]    [1]    [0]    [238]

Answer 1

感谢tegancp的建议。这是我的解决方案：

x <- c(rnorm(n=1000, mean=5, sd=1), rnorm(n=1000, mean=7, sd=1))
y <- c(rnorm(n=1000, mean=5, sd=1), rnorm(n=1000, mean=7, sd=1))
d <- data.frame(x,y)
d$type=c(rep("Rd",1000),rep("Wr",1000))
p <- ggplot(d) + geom_bin2d(aes(x=x, y=y, alpha=..count.., fill = d$type))
pdf(file="my_file.pdf")
print(p)
dev.off()