ggplot geom_bar 如果值高于阈值，我可以突出显示不同颜色的条形图吗

Question

我使用 ggplot 和 geo_bar 来制作绘图，结果是这样的：

代码

# Faceting is a good alternative:
ggplot(df.cnts, aes(x=date,y=freq)) + geom_bar(stat="identity") +
  facet_wrap(~ operator, nrow = 3) +
  theme(axis.text.x  = element_text(angle=90, vjust=0.5, size=8))

问题

我可以用代码为所有值高于 1000 的柱着色吗？

感谢

Answer 1

mt_mean <-   mtcars %>% group_by(cyl) %>% summarise(avg_mpg = mean(mpg) )  

ggplot( mt_mean , aes(x=cyl, y =avg_mpg)) + 
    geom_bar(stat = 'identity', aes(fill = avg_mpg > 25 )  ) 

g + scale_fill_manual(values = c('red', 'black') )

ggplot geom_bar 如果值高于阈值，我可以突出显示不同颜色的条形图吗

ggplot geom_bar can I highlight a bar in different color if value is above a threshold

r

ggplot2

geom-bar