Plotly堆叠条形图：按条形颜色/动物类别设置文本字体颜色

问题根源分析 #

原代码存在三个核心问题：

1. 数据类型错误：用cbind()构造数据框会将amount转为字符型，影响数值显示与Plotly处理逻辑
2. 颜色匹配逻辑错误：schriftfarbe的ifelse判断与需求相反（原代码将非黄色条形文本设为黑色，与需求的白色相悖）
3. 颜色向量长度不匹配：bar_colors仅3个元素，但数据框有18行，循环赋值导致堆叠图中颜色对应混乱

修正后的完整代码 #

library(plotly)
library(dplyr)

# 定义颜色常量
Color1 <- "#EC4239"
Color2 <- "#FC954C"
Color3 <- "#FFF761"

# 构建颜色映射表
colors3 <- rbind(
  c("red","#EC4239"),
  c("orange","#FC954C"),
  c("yellow","#FFF761")
) %>% 
  as.data.frame() %>%
  rename(colors3_name = V1, colors3_hex = V2)

bar_colors <- colors3$colors3_hex

# 构造数据框（避免cbind导致的字符型转换）
city <- rep(c("Berlin", "London"), each = 9)
year <- rep(rep(c(2010, 2011, 2012), each = 3), times = 2)
animal <- rep(c("cat", "dog", "rabbits"), times = 6)
amount <- c(14, 67, 73,
            43, 50, 56,
            21, 24, 28,
            44, 32, 32,
            73, 45, 56,
            60, 67, 58)

df <- data.frame(year, city, animal, amount, stringsAsFactors = FALSE)

# 生成文本颜色列：兔子（黄色条形）用黑色，其他动物用白色
df$text_color <- ifelse(df$animal == "rabbits", "#000000", "#ffffff")

# 绘制堆叠条形图
fig <- plot_ly(df,
          y = ~amount,
          x = ~factor(city, levels = unique(city)),
          frame = ~year,
          color = ~animal,
          colors = bar_colors,
          type = 'bar',
          text = ~amount,
          textposition = 'auto',
          textfont = list(color = ~text_color)  # 绑定每行的文本颜色
) %>%
  layout(barmode = 'stack',
         title = "<b>Test Plot (2010–2012)</b>",
         titlefont = list(size = 20),
         font = list(family = "calibri", size = 14),
         separators = ',',
         xaxis = list(title = list(text = "", standoff = 4), zeroline = TRUE),
         yaxis = list(title = "Amount", range = c(0, 200)),
         legend = list(orientation = 'v'))

fig

关键改进点 #

1. 数据类型修正：用data.frame()替代cbind()，确保amount保持数值型
2. 精准颜色匹配：直接基于每行的animal字段生成文本颜色，确保每个堆叠条形的文本颜色完全对应
3. 逻辑修正：调整ifelse判断，符合需求：黄色（兔子）条形文本为黑色，其他条形文本为白色

灵活扩展方案（基于颜色而非动物判断） #

如果后续颜色映射关系可能变化，可先为数据框绑定对应条形颜色，再判断文本颜色：

# 建立动物与颜色的映射关系
color_map <- setNames(colors3$colors3_hex, c("cat", "dog", "rabbits"))
df$bar_color <- color_map[df$animal]

# 根据条形颜色生成文本颜色
df$text_color <- ifelse(df$bar_color == "#FFF761", "#000000", "#ffffff")

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