如何从命名数据框列表中返回各数据框的空列名称？

首先模拟符合场景的测试数据：

# 构建测试用的数据框列表
data1 <- data.frame(carat = c(0.23, 0.21, 0.23),
                    price = c(NA, NA, NA),
                    color = c(NA, NA, NA))
data2 <- data.frame(carat = c(NA, NA, NA),
                    price = c(326, 326, 327),
                    color = c("E", "E", "E"))
data3 <- data.frame(carat = c(0.29, 0.31, NA),
                    price = c(334, 335, 336),
                    color = c("I", "J", "J"))

df_list <- list(data1 = data1, data2 = data2, data3 = data3)

接下来用以下代码实现需求：

# 定义函数：提取数据框中全为NA的列名
get_all_na_cols <- function(df) {
  # 筛选出NA数量等于行数的列，返回列名
  colnames(df)[colSums(is.na(df)) == nrow(df)]
}

# 批量处理列表中的所有数据框
na_col_summary <- lapply(df_list, get_all_na_cols)

# 按目标格式输出结果
for (df_name in names(na_col_summary)) {
  empty_cols <- na_col_summary[[df_name]]
  if (length(empty_cols) > 0) {
    cat(paste0(df_name, ": ", paste(empty_cols, collapse = ", "), "; "))
  } else {
    cat(paste0(df_name, ": 无空列; "))
  }
}

代码说明 #

• get_all_na_cols函数通过colSums(is.na(df))统计每列的NA总数，当总数等于数据框行数时，说明该列全为NA，提取对应的列名。
• lapply遍历整个数据框列表，为每个数据框生成对应的空列名集合。
• 最后通过循环遍历结果，将每个数据框名称和空列名拼接成你需要的格式输出，无空列的数据框会标注“无空列”。

运行后输出示例：

data1: price, color; data2: carat; data3: 无空列;

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