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])

R Color the largest bar of a barplot