0

我收到 3 个数据帧（训练、验证和测试），其中包含具有相同变量的数据。我不希望它们包含在列表中，以便我可以将它们整齐地称为, trn,vld和等。tstlist[[1]]

我需要从所有数据集中删除变量。有没有一种方法可以在不首先创建列表、迭代然后从列表中重新创建数据帧的情况下进行迭代处理？即我目前正在做类似的事情：

trn <- read.csv("training_split_60pct.csv")
vld <- read.csv("validation_split_20pct.csv")
tst <- read.csv("test_split_20pct.csv")

# a list of variables to drop
drops <- c("ONE", "TWO", "THREE", "FOUR")

dfRawList <- list(trn, vld, tst)
dfList <- lapply(dfRawList, function(df) df[,!(names(df) %in% drops)])
names(dfList) <- c("trn", "vld", "tst")

trn <- dfList[["trn"]]
vld <- dfList[["vld"]]
tst <- dfList[["tst"]]

但我希望能够做到：

trn <- read.csv("training_split_60pct.csv")
vld <- read.csv("validation_split_20pct.csv")
tst <- read.csv("test_split_20pct.csv")

# a list of variables to drop
drops <- c("ONE", "TWO", "THREE", "FOUR")

for (df in c('trn', 'vld', 'tst')){
    df <- lapply(df, function(df) df[,!(names(df) %in% drops)])
}

当然，这只是用tst数据创建一个数据框。

4

1 回答 1

2

您可以通过使用assign和来做到这一点get。但我建议使用列表，lapply就像你目前正在做的那样。

for (df in c("trn", "vld", "tst")){
  assign(df, get(df)[, !names(get(df)) %in% drops])
}
于 2013-11-14T12:20:32.123 回答