Гистограммы перекрытия в 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 для альфа, поэтому, если вы измените свои цвета на col=rgb(0,0,1,0.5) и col=rgb(1,0.9,0,0.5), вы должны уметь видеть перекрытие.