自学R语言开发Shiny App遇ggplot2美学映射错误求助

问题背景 #

自学R开发NBA数据Shiny App，设置输入控件如下：

textInput("name", "Name", value = "Giannis Antetokounmpo"),

selectInput("stat", "Stat", choices = list("Points Per Game" = "PTS",
                                           "Rebounds Per Game" = "TRB",
                                           "Assits Per Game" = "AST",
                                           "Steals Per Game" = "STL",
                                           "Blocks Per Game" = "BLK"),
            selected = "PTS"),

绘制散点图时触发错误：Aesthetics must be either length 1 or the same as the data，绘图代码：

NBA_abv %>% 
  filter(Player == input$name) %>%
  ggplot(aes(x = Year, y = input$stat)) + geom_point() + geom_line()

数据集包含Player、Year列，以及PTS、TRB等统计指标列。

错误原因 #

input$stat返回的是字符串（如"PTS"），ggplot2的aes()默认将其视为单一常量值，而非引用数据框中的对应列，导致y轴美学映射的长度与数据行数不匹配，触发错误。

解决方法 #

方法1：使用.data代词（推荐，符合tidyverse规范） #

通过.data[[列名字符串]]的方式引用数据列，让ggplot正确识别要映射的列：

NBA_abv %>% 
  filter(Player == input$name) %>%
  ggplot(aes(x = Year, y = .data[[input$stat]])) + 
  geom_point() + 
  geom_line()

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

若使用较低版本的ggplot2，可改用aes_string()直接传入字符串列名：

NBA_abv %>% 
  filter(Player == input$name) %>%
  ggplot(aes_string(x = "Year", y = input$stat)) + 
  geom_point() + 
  geom_line()

优化建议 #

为提升用户体验，可添加动态标题和y轴标签，自动匹配所选球员和统计项：

1. 先将selectInput的choices存为对象：

stat_choices <- list("Points Per Game" = "PTS",
                     "Rebounds Per Game" = "TRB",
                     "Assits Per Game" = "AST",
                     "Steals Per Game" = "STL",
                     "Blocks Per Game" = "BLK")

2. 修改绘图代码：

NBA_abv %>% 
  filter(Player == input$name) %>%
  ggplot(aes(x = Year, y = .data[[input$stat]])) + 
  geom_point() + 
  geom_line() +
  labs(title = paste(input$name, "-", names(stat_choices[stat_choices == input$stat])),
       y = names(stat_choices[stat_choices == input$stat]))

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