繪製兩個柱狀圖一起

Question

可能重複：
How to plot two histograms together in R?

我想繪製兩個柱狀圖在一起，兩者具有相同的X軸的單位和y軸單位。兩個直方圖取自兩個文件inp1和inp2。我試過下面的代碼，但它不工作：

x1<-hist(inp1, 120, plot = 0) 
x2<-hist(inp2, 120, plot = 0) 
hist(x1, x2, 240, plot = 1) 

Answer 1

你想要的那種情節並不嚴格地說是直方圖。你可以喜歡它創造的東西，不過，使用barplot()與beside=TRUE：

## Example data 
d1 <- rnorm(1000) 
d2 <- rnorm(1000, mean=1) 

## Prepare data for input to barplot 
breaks <- pretty(range(c(d1, d2)), n=20) 
D1 <- hist(d1, breaks=breaks, plot=FALSE)$counts 
D2 <- hist(d2, breaks=breaks, plot=FALSE)$counts 
dat <- rbind(D1, D2) 
colnames(dat) <- paste(breaks[-length(breaks)], breaks[-1], sep="-") 

## Plot it 
barplot(dat, beside=TRUE, space=c(0, 0.1), las=2)