使用Shiny绘制ggplot时遇Aesthetics长度错误求助

报错信息：Aesthetics must be either length 1 or the same as the data (7):

我在使用Shiny绘制ggplot图表时遇到上述错误，网上资料均指出该错误由颜色选择导致，但我的代码中并未设置颜色相关参数。以下是我的代码：

server <- function(input, output, session) {
  output$plot_race <- renderPlot({
    ggplot(data= race_shoot, aes_string(x='race',
                                 y=input$year)) +
      geom_bar(stat='identity', width=0.5) +
      labs(x='race', y=input$year)
  })
}

错误原因 #

这个报错和颜色无关，核心问题是ggplot的y轴美学映射长度和数据行数不匹配：

• 你的race_shoot数据有7行（对应race的7个类别），但如果input$year传入的是单一数值（比如具体年份2023），而非数据框中的列名，那y轴的美学值长度为1，和数据行数7不匹配，就会触发这个错误。

解决方案 #

分两种情况处理：

情况1：input选择的是数据框中的列名

如果你的input$year对应的是race_shoot里的列名（比如数据框有2020、2021这类列），推荐用.data代词替代aes_string（更安全规范）：

server <- function(input, output, session) {
  output$plot_race <- renderPlot({
    ggplot(data= race_shoot, aes(x=race, y=.data[[input$year]])) +
      geom_bar(stat='identity', width=0.5) +
      labs(x='种族', y=input$year)
  })
}

情况2：input选择的是具体年份，需要筛选数据

如果input$year是具体年份数值，要先筛选对应年份的数据，再映射y轴为计数/数值列：

server <- function(input, output, session) {
  output$plot_race <- renderPlot({
    # 假设数据框有year列（存年份）和count列（存对应数值）
    filtered_data <- race_shoot[race_shoot$year == input$year, ]
    ggplot(data= filtered_data, aes(x=race, y=count)) +
      geom_bar(stat='identity', width=0.5) +
      labs(x='种族', y=input$year)
  })
}

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