如何批量移除ggplot列表中使用theme_void()的空白绘图？

方法1：通过图层数量判断 #

仅用theme_void()创建的空白绘图没有任何几何图层，可通过检查绘图对象的layers长度筛选有效绘图：

# 基础R实现
filtered_list <- Filter(function(x) length(x$layers) > 0, ggplot_list)

# purrr包简化实现（需先安装加载purrr）
library(purrr)
filtered_list <- keep(ggplot_list, ~ length(.x$layers) > 0)

方法2：精准匹配theme_void主题 #

如果需要严格匹配仅使用theme_void()的空白图，可直接检查绘图主题：

# 基础R实现
filtered_list <- Filter(function(x) !identical(x$theme, theme_void()), ggplot_list)

# purrr包简化实现
filtered_list <- keep(ggplot_list, ~ !identical(.x$theme, theme_void()))

验证效果 #

执行代码后，filtered_list将仅包含p2和p3两个带数据的绘图，可通过lapply(filtered_list, print)查看结果。

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