R语言ggplot按分组唯一变量循环绘图过滤空分类问题咨询

核心解决思路：要避免生成无效空图，只需针对目标年份先做一次数据筛选，仅提取该年份实际存在的出发地列表再遍历即可，同时可以优化原函数的冗余逻辑、增加空数据校验。

完整修改后可运行代码 #

library(nycflights13)
library(tidyverse)

plotter_de_plot <- function(origination, YEARR, data = flights){
  # 先筛选指定年份、指定出发地的有效数据
  target_data <- data %>%
    filter(year == YEARR, origin == origination, !is.na(hour)) 
  
  # 无有效数据直接返回，不触发绘图
  if(nrow(target_data) == 0) return(NULL)
  
  # 正常绘图逻辑
  target_data %>%
    group_by(origin, month) %>% 
    mutate(AMOUNT = sum(hour, na.rm = TRUE)) %>%
    ggplot(aes(month, AMOUNT)) +
    geom_point() +
    labs(title = origination, subtitle = YEARR)
} 

# 先提取目标年份实际存在的出发地列表，再遍历
target_year <- 2013
valid_origins <- unique(flights$origin[flights$year == target_year])
for (i in valid_origins){
  p <- plotter_de_plot(i, target_year)
  # 仅当返回有效绘图对象时展示
  if(!is.null(p)) plot(p)
}

主要改动说明 #

• 移除了原函数中不必要的substitute、eval逻辑，原逻辑无实际作用还可能引入变量作用域问题
• 绘图函数新增空数据判断逻辑，指定年份+出发地无有效数据时直接返回NULL，不会生成空图
• 循环逻辑调整：先筛选目标年份数据、提取该年份下真实存在的出发地唯一值再遍历，从根源上避免遍历到不存在的组合

多年份批量处理拓展 #

如果需要批量处理多个年份，可嵌套外层循环即可：

# 替换为你业务数据中的实际年份列表
target_years <- c(2013, 2014, 2015)
for (y in target_years) {
  valid_origins <- unique(flights$origin[flights$year == y])
  for (i in valid_origins){
    p <- plotter_de_plot(i, y)
    if(!is.null(p)) plot(p)
  }
}

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