将同一绘图上的两个直方图与R相结合

我想画一个直方图来比较同一绘图上的两个数据集。向量的长度不同。d1有180个数字，d2有300个数字

d1<-c(5.18,4.61,3.30,7.58,3.00,3.80,1.95,2.67,2.77,2.73,2.33,3.36,3.50,1.91,4.25,3.87,2.86,2.26,2.00,3.86,3.33,3.59,4.00,2.25,2.44,2.33,3.22,4.42)
d2<-c(2.1,2.1,2.6,2,3.6,2,2.7,1.8,3.1,3.9,3.8,2.6,1.9,2.6,2.1,3.9)
names(d1)<-1:28
names(d2)<-1:15
barplot(t(cbind(d1, d2)), beside=T, col=c("black","red"), border=F)
barplot(t(cbind(d1/sum(d1)*100, d2/sum(d2)*100)), 
    beside=T, col=c("black","red"), border=F)

我不知道这个方法是否正确。x轴应与箱子相同。y轴应以频率百分比表示。谢谢你的建议

例如，我想得到如下所示的图

---

可以将参数add=T添加到第二个条形图函数中：

barplot(t(cbind(d1/sum(d1)*100, d2/sum(d2)*100)), beside=T, col=c("black","red"), border=F, add=T)

这将使两个直方图位于同一个图形上，甚至共享同一个x轴