Shiny App ggplot2绘图报StatBin错误及直方图渲染异常

你遇到的报错和绘图效果不符合预期，本质是Shiny中给ggplot2动态传参的写法错误导致的：

• 直接在aes()和facet_wrap()里用titanic_data[[input$xxx]]传值，会把整列向量直接传给绘图函数，导致ggplot丢失列的类型标记：连续型的Age字段会被误识别为离散值，触发StatBin requires a continuous x variable报错，分面逻辑也会异常。
• 固定使用geom_histogram或geom_bar无法适配不同类型的x轴字段：Age是连续数值型，适合分箱统计的直方图；Sex、Pclass这类分类字段适合离散计数的柱状图，统一用一种几何图层自然无法得到预期效果。
• 硬编码代码能正常运行，是因为直接传入了裸列名，ggplot可以自动识别列的属性和映射关系，动态传参不能直接套用数据框取列的[[写法。

使用ggplot2官方支持的.data代词实现动态列映射，同时根据x轴字段类型自动切换绘图图层，不需要冗余的if else手动设置标签，还可以复用你UI中预留的分箱滑块控件：

1. 所有动态传入的列名，统一使用.data[[input$xxx]]的写法传入aes()，保证ggplot可以正确识别列类型和映射关系
2. 分面参数使用facet_wrap(vars(.data[[facet1]], .data[[facet2]]))的写法，替代错误的公式拼接方式
3. 自动判断x轴字段是连续数值型还是分类型，对应选择直方图或柱状图，统一计算相对频率
4. 用官方推荐的after_stat(count)替代已经废弃的..count..写法，兼容新版ggplot2

可直接运行的renderPlot代码 #

output$Histogramm <- renderPlot({
  # 提取选中的字段名
  x_var <- input$factor1
  facet1 <- input$factor2
  facet2 <- input$factor3
  
  # 提前过滤缺失值，避免绘图警告
  plot_df <- na.omit(titanic_data[, c(x_var, facet1, facet2, "Survived")])
  
  # 判断x轴字段是否为连续数值型
  x_is_numeric <- is.numeric(plot_df[[x_var]])
  
  # 基础绘图结构
  p <- ggplot(plot_df, aes(x = .data[[x_var]], fill = Survived)) +
    theme_bw() +
    facet_wrap(vars(.data[[facet1]], .data[[facet2]])) +
    labs(
      y = "Relative Sequences",
      x = x_var,
      title = paste0("Titanic Survival Rates by ", x_var, ", ", facet1, " and ", facet2)
    )
  
  # 根据字段类型添加对应图层
  if (x_is_numeric) {
    # 连续值用直方图，复用UI的bins滑块控制分箱数
    p <- p + geom_histogram(
      bins = input$bins,
      aes(y = after_stat(count / sum(count))),
      color = "white"
    )
  } else {
    # 分类值用柱状图
    p <- p + geom_bar(
      aes(y = after_stat(count / sum(count))),
      color = "white"
    )
  }
  
  p
})

• 代码里加了color="white"给柱子加白色边框，和你提供的预期效果图样式一致
• 提前过滤缺失值可以避免ggplot弹出的缺失值移除警告，如果需要保留缺失值可以删掉na.omit那行
• 不需要手动写多分支if else给x轴设置标签，直接用选中的字段名即可，后续给选择器加新字段也不用改标签逻辑

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