在dplyr管道中添加图层前检查ggplot对象是否为NULL

针对你遇到的问题——空数据框经过plot_fun返回NULL后，后续添加图层报错，同时希望保持plot_fun的通用性（不把标题等图层硬编码进去），这里有几个实用的解决方案：

1. 使用purrr::when条件执行后续操作 #

purrr包的when()函数可以帮你简洁地实现"非空则执行，空则跳过"的逻辑，比手动写大括号判断更清爽：

library(tidyverse)

plot_fun <- function(df) {
  if (nrow(df) > 0) {
    df %>% ggplot(., aes(Sepal.Length, Sepal.Width)) + geom_point()
  }
}

# 调用示例
iris %>% 
  filter(Sepal.Length > 1000) %>% 
  plot_fun() %>%
  when(
    !is.null(.),  # 判断条件：结果非空
    . + ggtitle("Plot me"),  # 满足条件时执行的操作
    .  # 不满足时直接返回原对象（NULL）
  )

当数据为空时，when()会直接返回NULL，不会执行加标题的操作，完美避免报错。

2. 自定义"空安全"管道操作符 #

如果需要频繁处理这种场景，可以自定义一个专门处理NULL的管道操作符，让代码更简洁：

# 定义空安全管道：左边为NULL时直接返回，否则执行右边操作
`%>%?%` <- function(x, f) {
  if (!is.null(x)) {
    f(x)
  } else {
    x
  }
}

# 使用方式
iris %>% 
  filter(Sepal.Length > 1000) %>% 
  plot_fun() %>%?% 
  (. + ggtitle("Plot me"))

这个操作符可以复用在任何需要处理NULL的管道步骤中，减少重复代码。

3. 修改plot_fun返回空ggplot对象（可选） #

如果你能接受空数据时返回一个空白的ggplot（而非NULL），可以修改plot_fun返回空的ggplot实例，这样后续的图层操作可以正常执行，只是最终显示空白图：

plot_fun <- function(df) {
  if (nrow(df) > 0) {
    df %>% ggplot(., aes(Sepal.Length, Sepal.Width)) + geom_point()
  } else {
    # 返回空ggplot，可继续添加任意图层
    ggplot() + theme_void()
  }
}

# 直接添加标题不会报错
iris %>% filter(Sepal.Length > 1000) %>% plot_fun() + ggtitle("Plot me")

这种方式保持了plot_fun的通用性（依然可以添加任意自定义图层），同时彻底避免了NULL导致的报错。

关于你之前的check_df_pipe函数 #

你之前的函数用stop()会直接抛出错误终止程序，这不是你想要的"优雅终止管道"。如果一定要用类似的检查函数，可以让它返回NULL而非报错，比如：

check_df_pipe <- function(x) {
  if(nrow(x) > 0) x else NULL
}

# 调用示例
iris %>% 
  filter(Sepal.Length > 1000) %>% 
  check_df_pipe() %>% 
  plot_fun() %>%?% 
  (. + ggtitle("Plot me"))

不过这种方式和直接在管道里写{if(nrow(.)==0) NULL else .}效果类似，不如前面的方案简洁。

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