您可以使用colSums来计算列中的NA，并检查是否与 Dataframe 的所有行号相同。以下是一个可重现的示例，其中有2列的值均为NA：

sum(colSums(is.na(df)) == nrow(df))
#> [1] 2

创建于2023年1月6日，使用reprex v2.0.2
数据：

df <- data.frame(V1 = c(NA, NA, NA), V2 = c(1, 2, NA), V3 = c(NA, NA, NA), V4 = c(2, 2, 1))

df
#>   V1 V2 V3 V4
#> 1 NA  1 NA  2
#> 2 NA  2 NA  2
#> 3 NA NA NA  1