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

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

set.seed(42)

hist(rnorm(500,4),xlim&＃61;c(0,10),col&＃61;&＃39;skyblue&＃39;,border&＃61;F)

hist(rnorm(500,6),add&＃61;T,col&＃61;scales::alpha(&＃39;red&＃39;,.5),border&＃61;F)

结果是......

更新&＃xff1a;此重叠功能也可能对某些人有用 .

hist0

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

hist2

breaks &＃61; min(max(length(var1), length(var2)),20),

main0 &＃61; "", alpha0 &＃61; 0.5,grey&＃61;0,border&＃61;F,...) {

library(scales)

colh

if(grey) colh

max0 &＃61; max(var1, var2)

min0 &＃61; min(var1, var2)

den1_max % max

den2_max % max

den_max

var1 %>% hist0(xlim &＃61; c(min0 , max0) , breaks &＃61; breaks,

freq &＃61; F, col &＃61; colh[1], ylim &＃61; c(0, den_max), main &＃61; main0,border&＃61;border,...)

var2 %>% hist0(xlim &＃61; c(min0 , max0), breaks &＃61; breaks,

freq &＃61; F, col &＃61; colh[2], ylim &＃61; c(0, den_max), add &＃61; T,border&＃61;border,...)

legend(min0,den_max, legend &＃61; c(

ifelse(nchar(name1)&＃61;&＃61;0,substitute(var1) %>% deparse,name1),

ifelse(nchar(name2)&＃61;&＃61;0,substitute(var2) %>% deparse,name2),

"Overlap"), fill &＃61; c(&＃39;white&＃39;,&＃39;white&＃39;, colh[1]), bty &＃61; "n", cex&＃61;1,ncol&＃61;3)

legend(min0,den_max, legend &＃61; c(

ifelse(nchar(name1)&＃61;&＃61;0,substitute(var1) %>% deparse,name1),

ifelse(nchar(name2)&＃61;&＃61;0,substitute(var2) %>% deparse,name2),

"Overlap"), fill &＃61; c(colh, colh[2]), bty &＃61; "n", cex&＃61;1,ncol&＃61;3) }

的结果

par(mar&＃61;c(3, 4, 3, 2) &＃43; 0.1)

set.seed(100)

hist2(rnorm(10000,2),rnorm(10000,3),breaks &＃61; 50)

是