如何让R语言ggplot图表的图例标签使用变量值？

你遇到的问题根源在于ggplot的美学映射规则和颜色尺度的匹配逻辑：

• 直接在aes(fill = reportYM1)里写无引号的变量名时，ggplot会把它当成数据框的列名（而非变量的实际值），因此图例显示变量名"reportYM1"，而非你想要的May 2024这类动态值。
• 同时你的scale_fill_manual里颜色映射的键还是"Current Month"，和新的图例标签不匹配，ggplot找不到对应颜色，就会用默认灰色替代蓝色。

解决步骤 #

只需要修改两处关键代码，就能实现用变量值作为图例标签，同时保留蓝色柱状图：

1. 在geom_bar的美学映射中，将fill的值设为reportYM1的实际值；
2. 在scale_fill_manual中，把颜色映射的键替换为reportYM1变量，让它和图例标签对应上。

修改后的完整代码 #

library(knitr)
library(markdown)
library(rmarkdown)
library(dplyr)
library(tidyr)
library(reshape2)
library(kableExtra)
library(shadowtext)
library(ggplot2)
library(RODBC)
library(lubridate)
library(formattable)
library(scales)

reportMonth = "2024-05-01"
reportMonth <- as.character(reportMonth[1,1])   
reportYM1 = format(date(reportMonth), "%b %Y")

combinedDataA <- data.frame(category.x=c('HM_Admit_1_Percentage','HM_Admit_1_Percentage','HM_Admit_1_Percentage'),
                             valueP=c(0,0.0667,0.9333),
                             label=c('99221','99222','99223'),
                             category.y=c('HM_ytdAdmit_1_Percentage','HM_ytdAdmit_1_Percentage','HM_ytdAdmit_1_Percentage'),
                             valueH=c(0,0.1162791,0.8837209))


# Plotting
ggplot(data = combinedDataA, aes(x = label)) +
  # 修改1：将fill设为reportYM1的实际值
  geom_bar(aes(y = valueP * 100, fill = reportYM1), stat = "identity") +
  geom_line(aes(y = valueH * 100, group = 1, color = "YTD"), size = 1) +
  geom_point(aes(y = valueH * 100, color = "YTD"), size = 3) +
  geom_shadowtext(aes(y = 0, label = scales::percent(valueP)), vjust = -0.5, color = "white", size = 3.5, bg.colour = "black", bg.r = 0.2) +
  scale_y_continuous(
    labels = scales::percent_format(scale = 1), 
    limits = c(0, 110), 
    expand = c(0, 0)  
  ) +
  # 修改2：将颜色映射的键替换为reportYM1变量
  scale_fill_manual(values = c(reportYM1 = "#0060a9"), guide = guide_legend(title = NULL)) +
  scale_color_manual(values = c("YTD" = "#bdbdb1"), guide = guide_legend(title = NULL)) +
  labs(x = NULL, y = NULL, title = NULL, subtitle = NULL) +
  theme_minimal() +
  theme(legend.position = "bottom",
        axis.text.x = element_text(angle = 0, hjust = 0.5),
        axis.title.y = element_blank(),
        axis.title.y.right = element_blank())  

额外说明 #

如果reportYM1是动态生成的（比如每月自动更新），这个方法依然有效——颜色映射的键会跟着变量值动态变化，始终和图例标签保持一致，不会出现颜色不匹配的问题。

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