这有效：
df <- data.frame(a=c(1,2,3),b=c(4,2,3),c=c(2,5,1))
df %>% summarise(across( c(a,b,c), sum, na.rm=TRUE))
但事实并非如此，因为 d 不存在：
df <- data.frame(a=c(1,2,3),b=c(4,2,3),c=c(2,5,1))
df %>% summarise(across( c(a,b,c,d), sum, na.rm=TRUE))
这是函数的一部分，然后我使用 lapply 将其应用于列表中的一大堆数据帧，其中 d 几乎一直存在，所以我不能只删除 d。
我正在尝试实现这样的目标：
df <- data.frame(a=c(1,2,3),b=c(4,2,3),c=c(2,5,1))
df %>% summarise(across( any_of(c(a,b,c,d)), sum, na.rm=TRUE))