Shiny绘制Gapminder时间序列图出现直线问题求助

嘿，作为Shiny新手遇到这个问题太正常啦，我来帮你捋清楚问题出在哪以及怎么解决～

你碰到的问题本质是ggplot2的aes()函数不支持直接传入字符串形式的变量名。你的input$variables返回的是字符串（比如"lifeExp"），但aes(y = input$variables)会把这个字符串当成一个固定值，而不是从数据框里提取对应列的数值——所以所有年份对应的y值都是同一个字符串，被ggplot自动转成了单一数值，最终就画出了一条平直线。

这里有两种靠谱的解决方法，推荐第一种（符合ggplot2的现代用法）：

方法1：使用.data代词（推荐） #

ggplot2 3.0及以上版本支持.data代词，它能帮你通过字符串名称精准引用数据框里的列。修改后的server代码如下：

server <- function(input, output){
  output$plot <- renderPlot({
    data <- gapminder %>% 
      group_by(year) %>% 
      # 用across简化汇总代码，不用手动列每个变量，更简洁
      summarise(across(c(lifeExp, pop, gdpPercap), mean, na.rm = TRUE))
    
    ggplot(data, aes(x = year, y = .data[[input$variables]])) + 
      geom_line() +
      # 加上y轴标签和标题，让图表更易读
      labs(y = input$variables, title = paste("Global Average", input$variables, "Over Time"))
  })
}

方法2：使用aes_string()（兼容旧版本） #

如果你用的是较旧的ggplot2版本，可以用aes_string()函数，它专门接受字符串形式的变量名：

server <- function(input, output){
  output$plot <- renderPlot({
    data <- gapminder %>% 
      group_by(year) %>% 
      summarise(lifeExp = mean(lifeExp, na.rm = T), 
                pop = mean(pop, na.rm = T), 
                gdpPercap = mean(gdpPercap, na.rm = T))
    
    ggplot(data, aes_string(x = "year", y = input$variables)) + 
      geom_line() +
      labs(y = input$variables)
  })
}

• 可以给UI的下拉选项加友好的显示名称，让用户更清楚选的是什么：

  selectInput(inputId = "variables", 
              label = "Select Variable", 
              choices = c("Life Expectancy" = "lifeExp", 
                          "Population" = "pop", 
                          "GDP per Capita" = "gdpPercap"))
  

• 用across替代手动写三个mean，减少重复代码，以后要加新变量也更方便。

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