如何在ggplot中实现base R中colorFactor配色的条形图效果？

你之前用colorFactor是把离散的数值等级（0.9、0.7、0.5、0.3、0.1）映射到固定的离散颜色，而scale_fill_gradient是处理连续数值的渐变配色，自然区分度低。要实现和base R完全一致的效果，核心是保留「离散等级-颜色」的一一映射，具体步骤如下：

解决方案代码 #

# 1. 确保acc_100k_coef是指定顺序的因子（和base R的levels一致）
communities$acc_100k_coef <- factor(communities$acc_100k_coef,
                                    levels = c(0.9, 0.7, 0.5, 0.3, 0.1))

# 2. ggplot绘制条形图
library(ggplot2)
ggplot(communities, aes(x = GEN, y = acc_100k, fill = acc_100k_coef)) +
  geom_col() + # 对应base R的barplot（已有数值用geom_col，计数用geom_bar）
  # 指定和base R完全一致的配色映射
  scale_fill_manual(values = c("0.9" = "red", 
                               "0.7" = "orange", 
                               "0.5" = "yellow", 
                               "0.3" = "green", 
                               "0.1" = "darkgreen")) +
  # 复刻base R的坐标轴样式
  theme(axis.text.x = element_text(angle = 90, hjust = 1, size = 8), # 对应las=2、cex.names=0.8
        axis.title.x = element_blank(),
        axis.title.y = element_blank())

关键说明 #

• 必须把acc_100k_coef转为指定levels顺序的因子：这样ggplot才会把它当成离散变量处理，而不是连续数值，才能实现和base R完全一致的颜色映射逻辑。
• 用scale_fill_manual替代渐变配色：直接指定每个因子水平对应的颜色，完全复刻colorFactor的配色规则，避免渐变导致的颜色区分度问题。
• 坐标轴样式调整：axis.text.x的参数对应base R里的las=2（x轴标签垂直）和cex.names=0.8（标签大小）。

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