R中的重叠直方图

Question

我正在重叠两个直方图，并希望保留它们中的每一个不常见的以及公共区域。 （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"))

而且它只有两种颜色，我可以像刚才提到的三种颜色吗？ 谢谢！

Answer 1

rgb 中的最后一个 alpha 值用于 alpha，因此如果您将颜色更改为 col=rgb(0,0,1,0.5) 和 col=rgb(1,0.9,0,0.5)，您应该能够看到重叠。