请求排查ggplot直方图在Shiny应用中的显示异常问题

我一眼就定位到问题啦——你在Shiny应用里给ggplot2的aes()传参时踩了个常见的小坑！

问题根源 #

input$x返回的是字符串值（比如你选择"freq_business"时，它就是这个字符串），但ggplot2的aes()函数默认是按变量名来解析参数的，不是字符串。所以你直接写aes(x=input$x)的时候，ggplot会误以为你要映射一个叫input$x的变量，而不是你数据集中的freq_business或freq_cso列，这就导致了异常的图表输出。

两种可行的修正方案 #

方案1：使用.data代词（推荐，ggplot2现代标准写法） #

.data是ggplot2提供的特殊代词，专门用来通过字符串引用数据列，语法清晰且符合最新规范：

server <- function(input, output) {
  output$hist <- renderPlot(
    ggplot(data = na.omit(cso_corruption), aes(x = .data[[input$x]])) + 
      geom_histogram(fill="lightgreen", stat="count")
  )
}

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

如果你使用的是较早期版本的ggplot2，可以用专门接收字符串参数的aes_string()函数：

server <- function(input, output) {
  output$hist <- renderPlot(
    ggplot(data = na.omit(cso_corruption), aes_string(x = input$x)) + 
      geom_histogram(fill="lightgreen", stat="count")
  )
}

额外优化小建议 #

改完之后应用就能生成和脚本里一样正常的直方图了，你还可以给图表加个标题、调整坐标轴标签，让可读性更强：

ggplot(data = na.omit(cso_corruption), aes(x = .data[[input$x]])) + 
  geom_histogram(fill="lightgreen", stat="count") +
  labs(
    title = "Corruption Frequency Distribution",
    x = "Measurement Category",
    y = "Count"
  ) +
  theme_minimal()

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