如何根据不同选择值修改ggplot气泡图的图例标题

你的问题出在labs()的写法上——函数参数里不能直接嵌套这种if-else逻辑来生成键值对，R无法正确解析这个结构，所以标签没生效。下面是更简洁且可靠的修复方式：

1. 先创建变量名与友好标签的映射表 #

用一个命名向量把所有变量对应的可读标签存起来，比堆一堆if-else清爽太多，后续加新变量也只需要在向量里补一行：

color_labels <- c(
  "total_spending_from_all_known_sources" = "All-Reported Spending",
  "total_spending_from_all_known_sources_per_child" = "All-Reported Spending per Child",
  "total_state_and_tanf_spending" = "State Spending",
  "state_tanf_per_child_spending" = "State Spending per Child",
  "three_year_olds_pct" = "Percent of 3-Year-Olds Enrolled",
  "four_year_olds_pct" = "Percent of 4-Year-Olds Enrolled",
  "x3s_4s_pct" = "Percent of 3- & 4-Year-Olds Enrolled",
  "three_year_olds" = "Number of 3-Year-Olds Enrolled",
  "four_year_olds" = "Number of 4-Year-Olds Enrolled",
  "x3s_4s" = "Number of 3- & 4-Year-Olds Enrolled",
  "total" = "Total Number of Children Enrolled",
  "score" = "Number of Quality Standards Benchmarks Met"
)

2. 提取当前选中的标签 #

在ggplot代码前，根据用户选择的变量直接取出对应的友好标签：

current_color_label <- color_labels[input$bubble_color]

3. 修复labs部分 #

把提取到的标签直接传给labs()的colour参数就行：

p <- ggplot(plot_data, aes(x = .data[[input$x_axis]], y = .data[[input$y_axis]],
                           size = .data[[input$bubble_size]], 
                           text = label)) +
  geom_point(aes(colour = .data[[input$bubble_color]]), alpha = 0.2) + # 注意：alpha固定值移到aes外面，避免生成多余图例
  # [OTHER CODE] 你的其他图层代码
  labs(
    colour = current_color_label
    # 这里可以继续添加x、y、size等其他元素的标签
  )

额外提醒 #

你原来的geom_point里把alpha=0.2放在了aes()内部，这会让ggplot把透明度当成一个映射变量，可能生成不必要的alpha图例。如果是固定透明度，把它移到aes()外面更合理，就像上面代码里那样。

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