Shiny动态变量绘图异常求助：ggplot及base R绘图问题

问题场景 #

我是Shiny编程新手，正在开发一款支持用户上传数据并选择变量绘制图表的应用。但遇到ggplot返回空图的问题，使用iris数据集测试也存在同样异常。

原App.R代码：

library(shiny)
library(ggplot2)
library(tidyverse)

# Define UI for application that draws a histogram
ui <- fluidPage(

    # Application title
    titlePanel("Plot Data"),

    # Sidebar with a slider input for number of bins 
    sidebarLayout(
        sidebarPanel(
                    selectInput(inputId = "x_input",
                      choices = "",
                      label = "Choose x-Axis",
                      multiple = FALSE,
                      selectize = TRUE),
          selectInput(inputId = "y_input",
                      choices = "",
                      label = "Choose y-Axis",
                      multiple = FALSE,
                      selectize = TRUE)
        ),
        # Show a plot of the generated distribution
        mainPanel("Sample of Input Data",
           
           tableOutput("table"),
           "Plot of Input Data",
           plotOutput("plot")

        )
    )
)

# Define server logic required to draw a histogram
server <- function(input, output, session) {

  output$table = renderTable({
    #req(combined_df)
    return(head(iris))
  })
  
  observe({
    updateSelectInput(
      session,
      "y_input",
      choices=names(iris))
  })
  
  observe({
    updateSelectInput(
      session,
      "x_input",
      choices=names(iris))
  })
  
  output$plot = renderPlot({
    iris %>% 
      plot()
   # plot = iris %>% 
   #         ggplot(aes(x = input$x_input, y = input$y_input))
   # print(plot)

    })   

  
}
# Run the application 
shinyApp(ui = ui, server = server)

遇到的问题 #

• 使用base R的plot()指定x、y参数为input$x_input和input$y_input时，抛出错误：

Warning: Error in plot.window: need finite 'xlim' values
  173: plot.window
  172: localWindow
  171: plot.default
  170: plot
  169: %>%
  168: renderPlot [directory....]
  166: func
  126: drawPlot
  112: <reactive:plotObj>
   96: drawReactive
   83: renderFunc
   82: output$plot
    1: shiny::runApp

• 使用base R的plot()不指定x、y时，会生成多变量成对图，不符合仅需单XY图的需求。
• 使用ggplot()仅设置aes(x = input$x_input, y = input$y_input)时，得到无数据点的空图，添加print()或show()也无效。
• 使用ggplot()搭配geom_point()时，仅返回仅有中间一个点的空图。

解决方案 #

修正后的完整代码

library(shiny)
library(ggplot2)
library(tidyverse)

ui <- fluidPage(
    titlePanel("Plot Data"),
    sidebarLayout(
        sidebarPanel(
            selectInput(inputId = "x_input",
                        choices = "",
                        label = "Choose x-Axis",
                        multiple = FALSE,
                        selectize = TRUE),
            selectInput(inputId = "y_input",
                        choices = "",
                        label = "Choose y-Axis",
                        multiple = FALSE,
                        selectize = TRUE)
        ),
        mainPanel(
            h4("Sample of Input Data"),
            tableOutput("table"),
            h4("Plot of Input Data"),
            plotOutput("plot")
        )
    )
)

server <- function(input, output, session) {
    # 用reactive保存数据集（方便后续扩展上传功能）
    data <- reactive({
        iris
    })
    
    output$table = renderTable({
        head(data())
    })
    
    # 更新选择框选项
    observe({
        updateSelectInput(session, "x_input", choices = names(data()))
        updateSelectInput(session, "y_input", choices = names(data()))
    })
    
    # ggplot绘图实现
    output$plot = renderPlot({
        req(input$x_input, input$y_input) # 确保选择了x/y变量再绘图
        data() %>%
            ggplot(aes(x = .data[[input$x_input]], y = .data[[input$y_input]])) +
            geom_point()
    })
    
    # 可选：Base R绘图实现
    # output$plot = renderPlot({
    #     req(input$x_input, input$y_input)
    #     plot(x = data()[[input$x_input]], y = data()[[input$y_input]])
    # })
}

shinyApp(ui = ui, server = server)

问题原因与解决细节

1. Base R plot()报错原因：
   input$x_input返回的是字符串（比如"Sepal.Length"），直接传入plot(x = input$x_input, y = input$y_input)会把字符串当作x/y值，而不是对应的数据列。需要用data()[[input$x_input]]提取对应列的数值。另外要加req(input$x_input, input$y_input)确保用户选择变量后再执行绘图，避免空值导致报错。

2. ggplot空图/单点问题：
   ggplot的aes()默认按变量名解析，直接传字符串input$x_input会被当作字面量，而不是数据列。需要用.data[[input$x_input]]（tidyverse推荐语法）或者aes_string(x = input$x_input, y = input$y_input)（旧语法）来动态映射变量。同时必须添加geom_point()之类的几何图层，否则只有空的坐标系。

3. 额外优化：

   • 用reactive封装数据集，后续扩展上传功能时只需修改这个reactive对象即可，代码更易维护。
   • 合并两个observe为一个，减少重复代码。
   • 给mainPanel的标题加上h4标签，排版更清晰。

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