ggplot2入门：如何修改geom_col填充色区分两位诗人词汇统计结果

你当前的代码是将填充色固定为greenyellow，因此所有分面的柱子颜色统一。只要将填充色映射到分面用的分组变量poeta即可实现不同诗人分面对应不同填充色，修改后代码如下：

# 50个最高频名词统计及可视化
Poemas_Analizado %>%
 group_by(poeta) %>%
 filter(upos == "NOUN") %>%
 count(lema, sort = T) %>%
 mutate(lema = reorder(lema, n)) %>%
 top_n(50) %>%
 ggplot(aes(reorder(lema, n), n)) +
   geom_col(aes(fill = poeta)) +
   coord_flip() +
   facet_wrap(~poeta, scales = "free_y") +
   # 自定义两位诗人的填充色，可按需替换为其他色值
   scale_fill_manual(values = c("greenyellow", "cornflowerblue"))

补充优化说明：

• 如果不需要显示填充色对应的图例，可以在代码最后追加theme(legend.position = "none")隐藏，避免和分面的诗人标签重复
• scale_fill_manual的values参数支持十六进制色值、R预设颜色名，你可以根据需求替换为想要的配色
• 要是不需要自定义配色，删掉scale_fill_manual那一行即可，ggplot会使用默认的配色方案为不同诗人分配填充色

内容的提问来源于stack exchange，提问作者Carlos Nusch