使用assign和paste0在循环中调用变量

Question

我有一个像这样创建的名为 SAL_mean 的变量（一旦我弄清楚了，我想创建一个循环）：

watersheds <- c('ANE', 'SAL', 'CER')
assign(paste0(watersheds[1], '_mean'), read.csv(paste0(watersheds[1], '_mean.csv')))

现在下一步应该是这样的（可行）：

cols_dont_want <- c('B1', 'B2', 'B3')
assign(paste0(watersheds[1], '_mean'), SAL_mean[, !names(SAL_mean) %in% cols_dont_want])

但我想问一下如何使用分水岭[1]来替换“SAL_mean”，因为这行代码不起作用：

assign(paste0(watersheds[1], '_mean'), paste0(watersheds[1], '_mean')[, !names(paste0(watersheds[1], '_mean')) %in% cols_dont_want])

我认为它将“paste0(watersheds[2],'_mean')”视为字符串而不是变量名称，但我无法找到解决方案（例如，我尝试了“as.name " 函数但它给了我一个错误 "'symbol' 类型的对象不是子集")

Answer 1

使用 ?lapply 将 dataframes 保存在列表中，然后对列表中的多个 dataframes 执行相同的转换会变得更容易，例如：

# set vars
watersheds <- c('ANE', 'SAL', 'CER')
cols_dont_want <- c('B1', 'B2', 'B3')

# result, all dataframes in one list
myList <- lapply(watersheds, function(i){
  # read the file
  x <- read.csv(paste0(i, "_mean.csv"))
  # exclude columns and return
  x[, !colnames(x) %in% cols_dont_want]
} )

Answer 2

或者您可以在 for 循环中执行此操作（有些人认为语法更容易理解）。它相当于 zx8754 的解决方案，除了它根据 OP 为每个数据帧分配名称。修改zx8754的解决方案也很简单。

watersheds <- c('ANE', 'SAL', 'CER')
cols_dont_want <- c('B1', 'B2', 'B3')
ws.list <- list()

for (i in 1:length(watersheds)) {
    ws.list[[i]] <- read.csv(paste0(watersheds[i], '_mean.csv'))
    names(ws.list)[i] <- paste0(watersheds[i], '_mean')
    ws.list[[i]] <- ws.list[[i]][!names(ws.list[[i]]) %in% cols_dont_want]
}
names(ws.list)
# "ANE_mean" "SAL_mean" "CER_mean"

# If you absolutely want to call the data.frames by their 
# individual names, you can do so after you attach() the list.
attach(ws.list)
ANE_mean

Answer 3

替换

paste0(watersheds[2], '_mean')

与

eval(parse(text = paste0(watersheds[2], '_mean')))

它应该可以工作。您的猜测是正确的， paste0 只是给您一个字符串，但您需要调用使用 eval() 完成的变量