使用tidyverse在R中筛选绘制近6天数据时遇面板数量错误

核心原因 #

你的分面变量（比如日期列）大概率是因子类型，且保留了原始数据中的所有因子水平——即使你筛选出了6天的数据，原因子可能还有9个水平，facet_wrap默认会为每一个因子水平创建面板，包括没有对应数据的空面板，这就导致了报错和空面板问题。

两种解决方法 #

方法1：筛选后重置因子水平

用tidyverse里的forcats::fct_drop()去掉不存在的因子水平：

library(tidyverse)

# 筛选近6天数据并清理因子水平
df_filtered <- df %>%
  # 替换为你实际的日期筛选逻辑，示例用lubridate处理日期
  filter(date >= lubridate::today() - lubridate::days(6)) %>%
  # 重置分面变量的因子水平，只保留当前存在的日期
  mutate(your_facet_column = fct_drop(your_facet_column))

# 绘制分面图，此时6个水平刚好适配3列2行
ggplot(df_filtered, aes(x = 时间列, y = 网速列)) +
  geom_line() +
  facet_wrap(~your_facet_column, ncol = 3, nrow = 2)

方法2：在facet_wrap中启用drop参数

直接在分面函数里添加drop = TRUE，自动丢弃无数据的因子水平，无需提前处理变量：

ggplot(df_filtered, aes(x = 时间列, y = 网速列)) +
  geom_line() +
  facet_wrap(~your_facet_column, ncol = 3, nrow = 2, drop = TRUE)

验证步骤 #

可以先运行levels(df_filtered$your_facet_column)查看因子水平数量，确认处理后只剩6个，再绘图就不会报错了。

内容的提问来源于stack exchange，提问作者Ginko-Mitten