求助：在R Shiny中用单选按钮切换ggplot2绘图X轴变量异常问题

问题根源 #

你代码中input$dist返回的是字符串（如"X1stFlrSF"），而ggplot2的aes()函数默认会把字符串当作分类变量处理，所有数据点被映射到同一个x轴分类值上，因此呈现出垂直点线。

解决方案 #

有两种可靠的修正方式，推荐使用第一种：

方法1：使用.data代词（ggplot2 3.0+ 推荐用法）

通过.data[[input$dist]]语法，明确告诉ggplot从数据框中提取对应名称的列（解析为数值变量）：

library(shiny)
library(ggplot2)

houseData <- read.csv(file.choose())

ui <- fluidPage(
  radioButtons("dist", "Square Foot Floor Level:",
               c("First Floor" = "X1stFlrSF",
                 "Second Floor" = "X2ndFlrSF"
               )),
  mainPanel(
    plotOutput("distPlot")
  )
)

server <- function(input, output) {
  output$distPlot <- renderPlot({
    ggplot(houseData, aes(x = .data[[input$dist]], y = SalePrice)) +
      geom_point()
  })
}

shinyApp(ui = ui, server = server)

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

aes_string()支持直接传入字符串作为变量名，适合版本较低的ggplot2环境：

server <- function(input, output) {
  output$distPlot <- renderPlot({
    ggplot(houseData, aes_string(x = input$dist, y = "SalePrice")) +
      geom_point()
  })
}

验证测试 #

你可以在R控制台直接测试错误场景，复现相同的垂直点线问题：

ggplot(houseData, aes(x="X1stFlrSF", y=SalePrice)) + geom_point()

这说明问题的核心是字符串在aes()中的解析方式，而非Shiny交互逻辑。

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