R着色条形图中最大的条形图

Question

是否可以使用R？

为条形图的最大条纹着色

数据：

count<-c(a=5,b=7,c=8,d=4,e=8,f=4)
barplot(count)

Answer 1

是的，虽然在这种情况下，两个条纹都会变色，因为它们都等于最大值。

maxfac <- 1+(count==max(count))
maxfac
## a b c d e f 
## 1 1 2 1 2 1 
barplot(count,col=c("black","red")[maxfac])