Shiny代码无法生成ggplot绘图的问题排查求助

你的代码核心问题出在ggplot的映射语法上，同时还有两处细节需要调整：

1. 核心问题：ggplot无法识别字符串形式的列名 #

input$x和input$y是字符串类型的列名，但ggplot2的aes()函数默认接受数据框中的变量名（而非字符串）。直接传入字符串会导致ggplot无法正确映射数据，因此绘图无响应。

修复方式：使用.data代词引用字符串形式的列名（这是ggplot2官方推荐的现代写法），替代直接传入input$x/input$y。

2. 次要问题：文件输入格式不匹配 #

你的fileInput设置的accept参数只允许csv文件，但代码中用read_excel()读取Excel文件，这会导致用户无法选择.xlsx/.xls文件，需要修正accept的取值。

3. 语法错误：renderPlot末尾多了一个冗余括号 #

该语法错误会直接导致代码运行失败，需删除多余括号。

修复后的完整代码 #

library(shiny)
library(readxl)
library(ggplot2)
library(dplyr)

ui <- fluidPage(
  titlePanel("Upload Excel Sheet"),
  sidebarLayout(
    sidebarPanel(
      fileInput("file1", "Choose Excel Sheet",
                accept = c(
                  ".xlsx",
                  ".xls"
                )),
      selectInput("x", "X-axis", choices = ""),
      selectInput("y", "Y-axis", choices = "")
    ),
    mainPanel(
      plotOutput("plot1")
    )
  )
)

server <- function(input, output,session) {
  data <- reactive({
    inFile <- input$file1
    if (is.null(inFile))
      return(NULL)
    read_excel(inFile$datapath)
  })
  
  observe({
    updateSelectInput(session, "x", choices = names(data()))
    updateSelectInput(session, "y", choices = names(data()))
  })
  
  output$plot1<- renderPlot({
    req(data()) # 确保数据加载完成后再执行绘图逻辑
    data() %>% 
      ggplot(aes(x = .data[[input$x]], y = .data[[input$y]])) +
      geom_bar(stat = "identity")
  })
}

shinyApp(ui = ui, server = server)

额外优化说明 #

• 添加req(data())：避免数据未加载时触发绘图逻辑，减少报错概率。
• 修正fileInput的accept参数：现在可正确选择Excel格式文件。
• 使用.data[[input$x]]：这是ggplot2处理字符串列名的标准方式，比旧的aes_string()更稳定且符合现代语法规范。

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