R中的重叠直方图

我正在重叠两个直方图，并希望维护它们中的每一个，以及公共区域。（3种颜色）。我有以下代码：

 hotel_auto<-subset(hotel_pr_curr,hotel_pr_curr$BFR_CONDITION_1 =="AUTO_BFR")
 hotel_nonauto<-subset(hotel_pr_curr,hotel_pr_curr$BFR_CONDITION_1 == "NON_AUTO_BFR")

 hist_curr1<- hist(hotel_auto$CURR_DIF_RTO, breaks = 20)
 hist_curr2<- hist(hotel_nonauto$CURR_DIF_RTO, breaks = 20)

 hist_curr1$density<-hist_curr1$counts/sum(hist_curr1$counts)*100
 hist_curr2$density<-hist_curr2$counts/sum(hist_curr2$counts)*100
  plot(hist_curr1,freq=FALSE,xlim=c(0,0.8),ylim=c(0,50),ylab="Percentage",col=rgb(0,0,1,1), main="BFR Current-Historical",xlab="Current Historical Difference")

  plot(hist_curr2,freq=FALSE,xlim=c(0,0.8),ylim=c(0,50),ylab="Percentage",col=rgb(1,0.9,0,1), main="",xlab="", add = TRUE)
  legend("topright", c("AUTO_BFR", "NONAUTO_BFR"), cex=0.75, fill=c("blue", "yellow"))

---

hotel\u autorgb中的最后一个alpha值是alpha值，因此如果您将颜色更改为
col=rgb（0,0,1,0.5）
和
col=rgb（1,0.9,0,0.5）
您应该能够看到重叠部分。
您可以尝试将
col=rgb（0,0,1,1）
更改为
col=rgb（0,0,0.5）
，其中，
rgb
中的最后一个值是alpha。编辑，如果您有3种颜色，那么将每种颜色的最后一个值更改为0.33。这太棒了！谢谢@Swarch您可以将您的评论作为解决方案发布，以备记录！