ggplot2：修复因子水平的颜色

我正在开发一个更大的项目，我正在 ggplot2 中创建多个绘图。这些图涉及在几个不同的谨慎类别（例如：国家、物种、类型）中绘制几种不同的结果。我想完全修复离散类型到颜色的映射，以便 Type=A 始终显示为红色，Type=B 始终显示为蓝色，等等，无论存在什么其他因素，在所有图中都是如此。我知道关于scale_fill_manual()我可以在其中手动提供颜色值，然后使用drop = FALSE这有助于处理未使用的因子水平。然而，我发现这非常麻烦，因为每个图都需要一些手动工作来处理以正确的方式对因素进行排序、对颜色值进行排序以匹配因素排序、删除未使用的级别等。

我正在寻找一种可以绘制地图的方法一次且全局将水平因子分解为特定颜色（A = 绿色，B = 蓝色，C = 红色，...），然后继续绘制我喜欢的任何内容，然后 ggplot 选择正确的颜色。

这是一些代码来说明这一点。

# Full set with 4 categories
df1 <- data.frame(Value = c(40, 20, 10, 60), 
                  Type = c("A", "B", "C", "D"))

ggplot(df1, aes(x = Type, y = Value, fill = Type)) + geom_bar(stat = "identity")


# Colors change complete because only 3 factor levels are present
df2 <- data.frame(Value = c(40, 20, 60), 
                  Type = c("A", "B", "D"))

ggplot(df2, aes(x = Type, y = Value, fill = Type)) + geom_bar(stat = "identity")


# Colors change because factor is sorted differently
df3 <- data.frame(Value = c(40, 20, 10, 60), 
                  Type = c("A", "B", "C", "D"))
df3$Type <- factor(df3$Type, levels = c("D", "C", "B", "A"), ordered = TRUE)

ggplot(df3, aes(x = Type, y = Value, fill = Type)) + geom_bar(stat = "identity")

如果您愿意，您可以定义自己的自定义比例。如果你查看源代码scale_fill_manual,

scale_fill_manual
#> function (..., values) 
#> {
#>     manual_scale("fill", values, ...)
#> }
#> <environment: namespace:ggplot2>

其实很简单：

library(ggplot2)

scale_fill_chris <- function(...){
    ggplot2:::manual_scale(
        'fill', 
        values = setNames(c('green', 'blue', 'red', 'orange'), LETTERS[1:4]), 
        ...
    )
}

df1 <- data.frame(Value = c(40, 20, 10, 60), 
                  Type = c("A", "B", "C", "D"))

ggplot(df1, aes(x = Type, y = Value, fill = Type)) + 
    geom_col() + 
    scale_fill_chris()

df2 <- data.frame(Value = c(40, 20, 60), 
                  Type = c("A", "B", "D"))

ggplot(df2, aes(x = Type, y = Value, fill = Type)) + 
    geom_col() + 
    scale_fill_chris()

df3 <- data.frame(Value = c(40, 20, 10, 60), 
                  Type = c("A", "B", "C", "D"))
df3$Type <- factor(df3$Type, levels = c("D", "C", "B", "A"), ordered = TRUE)

ggplot(df3, aes(x = Type, y = Value, fill = Type)) + 
    geom_col() + 
    scale_fill_chris()