如何删除R中多个数据框中的某些列？

Question

可以说我有许多数据框，它们具有几乎相似的列的不同名称。 如何使用循环（或任何其他方式）操纵单个数据帧的列？ 例如，我想一次删除所有数据帧的第一列。

Answer 1

假设您有几个data.frames dat1 ， dat2和dat3等。不要使用单个数据集，而是将它们放在list并进行处理。 删除第一列之后，如果仍然需要原始data.frame对象来反映更改（不建议这样做，因为您可以在列表本身内进行所有分析），请使用list2env 。

 lst <- mget(ls(pattern='^dat\\d+'))
 list2env(lapply(lst,`[`,-1), envir=.GlobalEnv)

 dat1

如果您具有不同的数据集名称D1 ， C1 ， datC ， newDat等，但没有清晰的常用模式（问题中不清楚），那么您仍然可以手动创建列表（极端情况）

 lst1 <- list(D1=D1, C1=C1, datc=datC, newDat=newDat)

然后执行list2env(lapply(...

或者直接将所有文件（如果所有文件都在工作目录中）读入列表并进行处理。

 files <- list.files() #if you want to read all the files in working directory
 lst2 <- lapply(files, function(x) read.table(x, header=TRUE))
 lapply(lst2,`[`,-1)

数据

set.seed(24)
dat1 <- as.data.frame(matrix(sample(1:40, 5*3, replace=TRUE), ncol=5))
dat2 <- as.data.frame(matrix(sample(20, 3*5, replace=TRUE), ncol=3))
dat3 <- as.data.frame(matrix(sample(80, 2*10, replace=TRUE), ncol=2))