如何对列表中所有数据框的列进行复杂编辑？

Question

我有一个包含 185 个数据框的列表，名为 WaFramesNumeric。每个数据框都有数百列和数千行。我想编辑每个数据框，以便它保留所有数字列以及我指定的任何非数字列。

使用：

for(i in seq_along(WaFramesNumeric)) {
    WaFramesNumeric[[i]] <- WaFramesNumeric[[i]][,sapply(WaFramesNumeric[[i]],is.numeric)] 
}

成功地使每个数据框只包含其数字列。

我尝试用行来修改它以添加特定的列。我试过了：

for (i in seq_along(WaFramesNumeric)) {
    a <- WaFramesNumeric[[i]]$Device_Name
    WaFramesNumeric[[i]] <- WaFramesNumeric[[i]][,sapply(WaFramesNumeric[[i]],is.numeric)] 
    cbind(WaFramesNumeric[[i]],a)
}

并试图调用所有整数列的列号以及特定的列号，然后基于此进行组合：

for (i in seq_along(WaFramesNumeric)) {
    f <- which(sapply(WaFramesNumeric[[i]],is.numeric))
    m <- match("Cost_Center",colnames(WaFramesNumeric[[i]]))
    n <- match("Device_Name",colnames(WaFramesNumeric[[i]]))
    combine <- c(f,m,n)
    WaFramesNumeric[[i]][,i,combine]
}

这些都返回错误，我不知道该怎么做。 WaFramesNumeric 是另一个数据框列表 (WaFramesNumeric <- WaFramesAll) 的副本，因此我也尝试从 WaFramesAll 添加特定列，但这并不成功。

感谢您提供的任何建议，如果有任何不清楚之处，我深表歉意。

Answer 1

您错误地认为for 循环中的最后一个命令是有意义的。它不是。实际上，它正在被丢弃，因此由于您从未将其分配到任何地方（cbind 和 WaFramesNumeric... 的索引），因此它会被静默丢弃。

此外，您在第三个代码块中过度索引 data.frame。首先，它在data.frame 中使用i，即使i 是data.frames 的list 中的索引，而不是框架本身。其次（可能是由此引起的），您正在尝试索引二维帧的三个维度。只需将最后一个索引从 [,i,combine] 更改为 [,combine] 或 [combine]。

第三个问题（虽然可能还没有看到）是如果没有找到，match 将返回NA。使用NA 索引框架会返回错误（尝试mtcars[,NA] 来查看）。我建议您可以将match 替换为grep：当没有找到任何内容时，它会返回integer(0)，这就是您在这种情况下想要的。

for (i in seq_along(WaFramesNumeric)) {
  f <- which(sapply(WaFramesNumeric[[i]], is.numeric))
  m <- grep("Cost_Center", colnames(WaFramesNumeric[[i]]))
  n <- grep("Device_Name", colnames(WaFramesNumeric[[i]]))
  combine <- c(f,m,n)
  WaFramesNumeric[[i]] <- WaFramesNumeric[[i]][combine]
}

Answer 2

我不确定您所说的“尝试调用所有整数列的列号...”是什么意思，但如果您想浏览数据框列表并根据某些函数选择一些列并保持给定一个列名，您可以这样做：

df <- data.frame(a=rnorm(20), b=rnorm(20), c=letters[1:20], d=letters[1:20], stringsAsFactors = FALSE)
WaFramesNumeric <- rep(list(df), 2)

Selector <- function(data, select_func, select_names) {
  select_func <- match.fun(select_func)
  idx_names <- match(select_names, colnames(data))
  idx_names <- idx_names[!is.na(idx_names)]
  idx_func <- which(sapply(data, select_func))
  idx <- unique(c(idx_func, idx_names))
  return(data[, idx])
}

res <- lapply(X = WaFramesNumeric, FUN = Selector, select_names=c("c"), select_func = is.numeric)