如何根据radioButton选中项设置ggplot图表的标题？

嘿，这问题很好解决！你只需要让ggtitle()的内容动态绑定到用户选择的input$Partner值就行，这里有两种实用的实现方式：

方式1：基础动态标题（直接复用选项文本） #

如果只需要把选中的合作伙伴名称直接整合到标题里，用paste()拼接固定文本和动态值就可以：

output$partner <- renderPlot({
  all_part %>% 
    filter(partner == input$Partner) %>% 
    ggplot(aes(x=level, fill = level)) +
    geom_bar() +
    ylab("Number of Participants") +
    theme_tufte() +
    # 核心：动态生成标题
    ggtitle(paste("Participant Level Distribution for Partner", input$Partner)) +
    theme(plot.title = element_text(colour="black", size=14, face="bold"),
          axis.title.x = element_text(color="black", size=10, face="bold"),
          axis.title.y = element_text(color="black", size=10, face="bold")) +
    theme(plot.subtitle = element_text(color="#0066CC", size=12, face="bold")) +
    theme(legend.title = element_text(colour="black", size=10, face="bold")) +
    theme(legend.position = "none") +
    theme(plot.background = element_rect(fill = "#CCFFFF"))
})

用户选"A"，标题就自动变成「Participant Level Distribution for Partner A」；选"B"则对应替换成"B"，完全跟随单选框的选择变化。

方式2：定制化标题（每个选项对应专属文本） #

如果需要给不同合作伙伴设置更具体的标题（比如加上区域、业务线信息），可以用dplyr::case_when()做条件映射（记得先加载dplyr包）：

output$partner <- renderPlot({
  all_part %>% 
    filter(partner == input$Partner) %>% 
    ggplot(aes(x=level, fill = level)) +
    geom_bar() +
    ylab("Number of Participants") +
    theme_tufte() +
    # 定制化动态标题
    ggtitle(
      case_when(
        input$Partner == "A" ~ "Partner A - North Region Participant Levels",
        input$Partner == "B" ~ "Partner B - South Region Participant Levels",
        input$Partner == "C" ~ "Partner C - East Region Participant Levels",
        input$Partner == "D" ~ "Partner D - West Region Participant Levels"
      )
    ) +
    theme(plot.title = element_text(colour="black", size=14, face="bold"),
          axis.title.x = element_text(color="black", size=10, face="bold"),
          axis.title.y = element_text(color="black", size=10, face="bold")) +
    theme(plot.subtitle = element_text(color="#0066CC", size=12, face="bold")) +
    theme(legend.title = element_text(colour="black", size=10, face="bold")) +
    theme(legend.position = "none") +
    theme(plot.background = element_rect(fill = "#CCFFFF"))
})

这种方式灵活性更高，能根据不同合作伙伴展示更贴合场景的标题内容。

如果需要动态设置副标题，也可以用同样的逻辑，比如labs(subtitle = paste("Updated for", input$Partner))来实现~

内容的提问来源于stack exchange，提问作者Emerson De Maria