R语言Plotly堆叠柱状图：实现分类标签唯一显示

嘿，我懂你现在的困扰——辛辛苦苦画好的支出堆叠柱状图，分类标签却重复显示，显得特别杂乱对吧？别着急，咱们一步步来搞定它！

首先得明确：重复标签大概率是因为你的数据集中category列重复出现相同分类，或者绘图时的设置没有自动提取唯一值。下面分两种常见情况给你解决方案：

情况1：图例里的分类标签重复 #

如果是图例里反复出现同一个分类（比如A、A、B、B），那大概率是你的category列没有正确处理成唯一的因子类型。咱们可以先清洗数据，确保分类是唯一的：

# 加载需要的包（如果还没加载）
library(dplyr)
library(ggplot2)

# 假设你的合并后数据集叫expense_data
expense_data <- bind_rows(dff, new_dat)

# 1. 先聚合数据（按日期和分类求和，避免重复数据点）
agg_data <- expense_data %>%
  group_by(date, category) %>%
  summarise(total_money = sum(money), .groups = "drop")

# 2. 把category转为仅包含唯一值的因子
agg_data$category <- factor(agg_data$category, levels = unique(agg_data$category))

# 3. 绘制堆叠柱状图，此时图例会自动显示唯一分类
ggplot(agg_data, aes(x = date, y = total_money, fill = category)) +
  geom_col(position = "stack") +
  labs(x = "日期", y = "支出总额", fill = "分类") +
  # 可选：如果还是有问题，手动指定图例标签为唯一值
  scale_fill_discrete(labels = unique(agg_data$category))

情况2：柱子上的分类标签重复（比如每个堆叠块都标了分类） #

如果你是给每个堆叠的支出块都加了文本标签，导致同一个分类在不同日期的柱子上重复显示，那可以只在该分类第一次出现的位置显示标签：

# 基于上面的agg_data，找到每个分类第一次出现的日期
first_occur <- agg_data %>%
  group_by(category) %>%
  slice_min(date) %>% # 取最早的日期
  ungroup()

# 绘图，仅在第一次出现的堆叠块上显示标签
ggplot(agg_data, aes(x = date, y = total_money, fill = category)) +
  geom_col(position = "stack") +
  # 只在第一次出现的堆叠块上显示标签
  geom_text(data = first_occur, aes(label = category),
            position = position_stack(vjust = 0.5), # 居中显示
            color = "white", fontface = "bold") +
  labs(x = "日期", y = "支出总额", fill = "分类")

额外小技巧：清理冗余因子水平 #

如果你的category列之前不小心创建了重复的因子水平（比如空值、大小写不一致的分类），可以用droplevels()清理：

agg_data$category <- droplevels(agg_data$category)

这样处理后，你的分类标签就只会显示唯一的A、B、C啦！

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