java画直方图_如何在R中一起绘制两个直方图？

已经有漂亮的答案，但我想添加这个 . 在我看来很好 . (从@Dirk复制随机数) . 需要 library(scales)

set.seed(42)

hist(rnorm(500,4),xlim=c(0,10),col='skyblue',border=F)

hist(rnorm(500,6),add=T,col=scales::alpha('red',.5),border=F)

结果是......

更新：此重叠功能也可能对某些人有用 .

hist0

我觉得 hist0 的结果看起来比 hist 更漂亮

hist2

breaks = min(max(length(var1), length(var2)),20),

main0 = "", alpha0 = 0.5,grey=0,border=F,...) {

library(scales)

colh

if(grey) colh

max0 = max(var1, var2)

min0 = min(var1, var2)

den1_max % max

den2_max % max

den_max

var1 %>% hist0(xlim = c(min0 , max0) , breaks = breaks,

freq = F, col = colh[1], ylim = c(0, den_max), main = main0,border=border,...)

var2 %>% hist0(xlim = c(min0 , max0), breaks = breaks,

freq = F, col = colh[2], ylim = c(0, den_max), add = T,border=border,...)

legend(min0,den_max, legend = c(

ifelse(nchar(name1)==0,substitute(var1) %>% deparse,name1),

ifelse(nchar(name2)==0,substitute(var2) %>% deparse,name2),

"Overlap"), fill = c('white','white', colh[1]), bty = "n", cex=1,ncol=3)

legend(min0,den_max, legend = c(

ifelse(nchar(name1)==0,substitute(var1) %>% deparse,name1),

ifelse(nchar(name2)==0,substitute(var2) %>% deparse,name2),

"Overlap"), fill = c(colh, colh[2]), bty = "n", cex=1,ncol=3) }

的结果

par(mar=c(3, 4, 3, 2) + 0.1)

set.seed(100)

hist2(rnorm(10000,2),rnorm(10000,3),breaks = 50)

是