基于背景色的ggplot堆叠条形图文本条件着色问题求助

我是R语言新手，首次尝试制作展示土壤厚度的堆叠条形图（使用geom_col），希望为每个条形添加随背景色变化的高对比度文本（geom_text）。参考相关示例修改代码后，始终无法实现文本的条件着色。附上当前代码、当前效果图及目标效果图，期望实现背景色与文本色高对比度的效果。

当前代码 #

soil_profile <- cbind.data.frame(
  profile = "",               # 剖面名称
  from = c(0,0.41,0.76,1.00,1.45,1.58,1.88),                    # 土层起始深度
  to = c(0.41,0.76,1.00,1.45,1.58,1.88,2.48),                    # 土层结束深度
  horizon=c('Peaty loam','Loamy peat', 'Humified peat (1)', 'Humified peat (2)', 'Fine sand',
  'Pipe bedding and exclusion zone', 'Pipe'),       # 土层名称
  hex = c('#33CCCC', '#008080', '#003366', '#003366', '#F2F2F2', '#A9D18E', '#A9D18E')
)

soil_profile <- soil_profile%>%
 mutate(
    height = to - from 
 )

soil_plot<-ggplot(
 data = soil_profile,
aes(
 x=profile,y=-height,                       # 指定坐标轴
fill=fct_reorder(horizon,to,.desc=TRUE)), # 确保土层顺序正确
)+
  geom_col(
width=0.8, color= 'white'                                  # 剖面宽度
 )

soil_plot<-soil_plot+
scale_fill_manual(
breaks=soil_profile$horizon,
values=soil_profile$hex)

soil_plot<-soil_plot+
guides(fill=FALSE)+                      # 隐藏图例
 geom_text(
aes(y=-(from+height/2),label=horizon))

soil_plot+
  scale_x_discrete(position = 'top')+    # 将剖面名称移至顶部
labs(
title = "",
y = "Depth (meters)",
x=""
 )+
 theme_minimal() 

效果对比 #

• 当前效果图：
  
• 目标效果图：
  

解决方案 #

要实现文本色随背景色自动适配的高对比度效果，有两种常用方法：手动指定对比色，或用工具包自动计算。

方法1：手动指定文本颜色 #

直接根据背景色的明暗，手动为每个土层指定文本颜色：

library(dplyr)
library(ggplot2)
library(forcats)

soil_profile <- cbind.data.frame(
  profile = "",
  from = c(0,0.41,0.76,1.00,1.45,1.58,1.88),
  to = c(0.41,0.76,1.00,1.45,1.58,1.88,2.48),
  horizon=c('Peaty loam','Loamy peat', 'Humified peat (1)', 'Humified peat (2)', 'Fine sand',
            'Pipe bedding and exclusion zone', 'Pipe'),
  hex = c('#33CCCC', '#008080', '#003366', '#003366', '#F2F2F2', '#A9D18E', '#A9D18E')
) %>%
  mutate(
    height = to - from,
    # 根据背景色指定文本对比色
    text_color = case_when(
      hex %in% c('#33CCCC', '#008080', '#003366') ~ "white",
      TRUE ~ "black"
    )
  )

soil_plot<-ggplot(
  data = soil_profile,
  aes(
    x=profile,y=-height,
    fill=fct_reorder(horizon,to,.desc=TRUE)),
)+
  geom_col(width=0.8, color= 'white') +
  scale_fill_manual(breaks=soil_profile$horizon, values=soil_profile$hex) +
  guides(fill=FALSE) +
  # 在geom_text中映射文本颜色
  geom_text(aes(y=-(from+height/2), label=horizon, color=text_color)) +
  # 应用文本颜色（identity表示直接使用列中的颜色值）
  scale_color_identity() +
  scale_x_discrete(position = 'top') +
  labs(title = "", y = "Depth (meters)", x="") +
  theme_minimal() 

soil_plot

方法2：自动计算高对比度文本色（推荐） #

使用colorspace包的contrast_color()函数，自动根据背景色生成最优对比色（白/黑）：

library(dplyr)
library(ggplot2)
library(forcats)
library(colorspace)

soil_profile <- cbind.data.frame(
  profile = "",
  from = c(0,0.41,0.76,1.00,1.45,1.58,1.88),
  to = c(0.41,0.76,1.00,1.45,1.58,1.88,2.48),
  horizon=c('Peaty loam','Loamy peat', 'Humified peat (1)', 'Humified peat (2)', 'Fine sand',
            'Pipe bedding and exclusion zone', 'Pipe'),
  hex = c('#33CCCC', '#008080', '#003366', '#003366', '#F2F2F2', '#A9D18E', '#A9D18E')
) %>%
  mutate(
    height = to - from,
    # 自动生成对比色
    text_color = contrast_color(hex, c("white", "black"))
  )

soil_plot<-ggplot(
  data = soil_profile,
  aes(
    x=profile,y=-height,
    fill=fct_reorder(horizon,to,.desc=TRUE)),
)+
  geom_col(width=0.8, color= 'white') +
  scale_fill_manual(breaks=soil_profile$horizon, values=soil_profile$hex) +
  guides(fill=FALSE) +
  geom_text(aes(y=-(from+height/2), label=horizon, color=text_color)) +
  scale_color_identity() +
  scale_x_discrete(position = 'top') +
  labs(title = "", y = "Depth (meters)", x="") +
  theme_minimal() 

soil_plot

关键步骤说明 #

1. 在数据框中添加text_color列，用于存储每个土层对应的文本颜色；
2. 在geom_text的aes()中映射color=text_color；
3. 使用scale_color_identity()告诉ggplot直接使用列中的颜色值（而非映射到其他调色板）。

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