R - 分组条形图百分比

Question

我想将我的图表转换为一个图表，该图表显示相同的信息，但每组的百分比。因此，ABC＆＃39; 1＆＃39;必须加起来100％，在＃2;＆＃39; 2＆＃39;加起来100％等等，我不希望它们堆叠，我喜欢分组条形图的外观。

希望你能帮忙！

TableAltPerfBar<-subset(TableAltPerf, EntranceType >1)
TableAltPerfBar$EntranceType[TableAltPerfBar$EntranceType==3]<-5
counts <- table(TableAltPerfBar$EntranceType, TableAltPerfBar$Day)
barplot(counts, main="Entrances",
    xlab="Days", ylab="Number of entrances", col=c("green","darkblue", "red"),
    legend = c("A", "B", "C"), beside=TRUE)