当每个数据框中不存在所有这些列时，如何从数据框列表中删除特定列[重复]

Question

这是一个示例数据集：

dat1 <- structure(list(id = 1:3, des.1 = 4:6, x = 7:9, not = 10:12), class = "data.frame", row.names = c(NA,-3L))
dat2 <- structure(list(id = 1:3, descript = 4:6, y = 7:9, yes = 10:12), class = "data.frame", row.names = c(NA,-3L))
dat3 <- structure(list(id = 1:3, description = 4:6, x = 7:9, X4 = 10:12), class = "data.frame", row.names = c(NA,-3L))
dat_list <- list(dat1, dat2, dat3)

例如，如果我想在这个数据框列表中删除所有名为 x 和 X4 的列，我可以这样做 - 访问包含这些列的每个数据框并像这样删除它们：

dat_list[[1]] <- dat_list[[1]] %>% select(-x)
dat_list[[3]] <- dat_list[[3]] %>% select(-c("x", "X4"))

但是我想知道是否有办法在整个列表中执行此操作 - 请记住，其中一些列不会存在于列表中的每个数据框中。

谁能想到一种方法可以删除此列表中所有数据帧中所有名为 c("x", "X4") 的列？

Answer 1

一种方法是：

library(tidyverse)
map(dat_list, function(xx) xx %>% select(any_of(c("x", "X4"))))
# [[1]]
#   x
# 1 7
# 2 8
# 3 9

# [[2]]
# data frame with 0 columns and 3 rows

# [[3]]
#   x X4
# 1 7 10
# 2 8 11
# 3 9 12