Shiny应用绘图异常：facet_grid报错，移除后图表为空

1. "At least one layer must contain all faceting variables" 报错原因及解决 #

这个报错的核心是facet_grid引用的变量不存在于ggplot使用的数据中，常见触发场景：

• 直接将input$Cancer（字符串类型的选中值）传给facet_grid，而非数据中实际存在的列名
• 筛选后的数据丢失了分面所需的列

错误示例（触发报错） #

server <- function(input, output) {
  output$expression_plot <- renderPlot({
    # 筛选选中的癌症类型
    data_selected <- test_data %>% filter(Cancer == input$Cancer)
    # 错误：facet_grid用了input$Cancer（如"Breast"），但数据里无此列
    ggplot(data_selected, aes(x = Gene, y = Expression)) +
      geom_boxplot() +
      facet_grid(. ~ input$Cancer)
  })
}

修正方案 #

场景1：筛选选中癌症后按其他变量分面

如果需求是筛选指定癌症类型，再按数据中已有变量（如SampleType）分面，将facet_grid的变量改为数据中存在的列：

server <- function(input, output) {
  output$expression_plot <- renderPlot({
    data_selected <- test_data %>% filter(Cancer == input$Cancer)
    ggplot(data_selected, aes(x = Gene, y = Expression)) +
      geom_boxplot() +
      facet_grid(. ~ SampleType) # 使用数据中存在的列作为分面变量
  })
}

场景2：让用户选择分面列

如果需求是让用户自行选择分面的列（如Cancer或SampleType），需将字符串类型的input转换为ggplot可识别的变量：

# UI部分修改selectInput为选择列名
ui <- fluidPage(
  selectInput("facet_var", "选择分面变量", choices = c("Cancer", "SampleType")),
  plotOutput("expression_plot")
)

server <- function(input, output) {
  output$expression_plot <- renderPlot({
    ggplot(test_data, aes(x = Gene, y = Expression)) +
      geom_boxplot() +
      # 用sym()将字符串转为变量，!!用于解析变量
      facet_grid(. ~ !!sym(input$facet_var))
  })
}

2. 移除facet_grid后空图表问题排查 #

空图表通常由筛选后数据为空或ggplot映射逻辑错误导致，按以下步骤排查：

• 校验筛选条件：确保input$Cancer的值与数据中Cancer列的取值完全匹配（注意大小写、空格），可统一格式避免匹配失败：

  data_selected <- test_data %>% 
    filter(str_to_lower(Cancer) == str_to_lower(input$Cancer))
  

• 调试数据：在renderPlot中打印筛选后的数据，确认是否有内容：

  server <- function(input, output) {
    output$expression_plot <- renderPlot({
      data_selected <- test_data %>% filter(Cancer == input$Cancer)
      print(data_selected) # 打印数据到控制台，检查是否为空
      ggplot(data_selected, aes(x = Gene, y = Expression)) +
        geom_boxplot()
    })
  }
  

• 检查映射变量：确保x/y轴的变量在筛选后的数据中有多个取值（如boxplot需要至少两个数据点才能绘制），若变量仅存唯一值，图表会显示为空。

完整可运行示例代码 #

测试数据 #

library(shiny)
library(tidyverse)

# 测试数据
test_data <- data.frame(
  Cancer = c("Breast", "Breast", "Lung", "Lung", "Colon", "Colon"),
  Gene = c("GeneA", "GeneB", "GeneA", "GeneB", "GeneA", "GeneB"),
  Expression = c(2.1, 3.5, 1.8, 4.2, 2.9, 3.1),
  SampleType = c("Tumor", "Normal", "Tumor", "Normal", "Tumor", "Normal")
)

UI代码 #

ui <- fluidPage(
  selectInput("Cancer", "选择癌症类型", choices = unique(test_data$Cancer)),
  plotOutput("expression_plot")
)

Server代码（修正后） #

server <- function(input, output) {
  output$expression_plot <- renderPlot({
    data_selected <- test_data %>% filter(Cancer == input$Cancer)
    # 数据为空时提示
    if(nrow(data_selected) == 0) {
      return(ggplot() + annotate("text", x=1, y=1, label="无匹配数据"))
    }
    ggplot(data_selected, aes(x = Gene, y = Expression)) +
      geom_boxplot(fill = "#4287f5") +
      labs(title = paste(input$Cancer, "癌症基因表达"), x = "基因", y = "表达量") +
      theme_minimal()
  })
}

shinyApp(ui, server)

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