ggplot2中利用after_scale检测文本底层实际颜色设置对比文本色

可以实现无需指定fill美学，直接根据文本绘制位置的实际背景自动选择最优对比色的需求。核心逻辑是：

• 判断文本是否处于柱子的填充区域内
• 针对柱子内部和外部（主题背景）分别计算最优对比色

基础实现（固定场景） #

针对你给出的两个场景，直接根据位置指定对应对比色即可：

df <- data.frame(
  x = letters[1:3],
  y = 1:3,
  total = 10
)

# 文本在柱子上方（背景为主题浅色，用黑色文本）
ggplot2::ggplot(df, ggplot2::aes(x = x, y = y, label = total)) +
  ggplot2::geom_col(fill = "blue") +
  ggplot2::geom_text(color = "black", vjust = -0.25) +
  ggplot2::theme_minimal()

# 文本在柱子顶部（背景为柱子颜色，用白色文本）
ggplot2::ggplot(df, ggplot2::aes(x = x, y = y, label = total)) +
  ggplot2::geom_col(fill = "blue") +
  ggplot2::geom_text(color = "white", vjust = 1) +
  ggplot2::theme_minimal()

通用动态适配版本 #

如果需要适配任意柱子颜色、主题背景色，或动态文本位置，可以结合prismatic::best_contrast和位置判断实现全自动适配：

library(prismatic)
library(ggplot2)

df <- data.frame(
  x = letters[1:3],
  y = 1:3,
  total = 10
)

# 获取当前主题的面板背景色，默认白色
bg_color <- ggplot2::theme_get()$panel.background$fill %||% "white"
# 柱子填充色
bar_fill <- "blue"

ggplot(df, aes(x = x, y = y, label = total)) +
  geom_col(fill = bar_fill) +
  geom_text(
    aes(
      color = ggplot2::after_stat(
        # 判断文本位置是否在柱子范围内
        ifelse(y <= stat(y),
               # 柱子内：与柱子颜色对比选最优色
               prismatic::best_contrast(bar_fill, c("black", "white")),
               # 柱子外：与主题背景色对比选最优色
               prismatic::best_contrast(bg_color, c("black", "white"))
        )
      )
    ),
    # 可调整vjust测试不同位置（上方、顶部、中部）
    vjust = c(-0.25, 1, 0.5)
  ) +
  theme_minimal() +
  scale_color_identity() # 直接使用计算出的颜色值

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