使用lapply更改数据帧列表列表中的列名

Question

这是该问题的后续内容： 使用R中的间隔数据创建散点图

我想更改以下data.frames中的列名，它们是列表列表的一部分：

other_list #a list of arbitrary length containing some data
myvar <- "myactualMeasurement"

lapply_output <- list()
for(i in 1:length(other_list)){
  lapply_output[[i]] <- lapply(other_list[[i]], function(item){
      out_df <- data.frame('MyItem' = item$MyItem,
                           'Measurement' = item$Measurement,
                           'Interval' = seq(floor(item$First), floor(item$Last))+ 0.5)
      return(out_df)
  })
}

如您所见，我将名称“ MyItem”，“ Measurement”和“ Interval”分配给我的列。 我想使用变量“ myvar”分配名称“ Measurement”，而不是手动执行。 我已经尝试使用

eval(parse(text = myvar))

而不是我笨拙的结构中的“测量”，但这似乎不起作用。

我当前的解决方法是一个嵌套循环，它（重新）分配列名：

for(i in 1:length(other_list)){
  for(j in 1:length(lapply_output[[i]])){
    colnames(lapply_output[[i]][[j]])[which(names(lapply_output[[i]][[j]]) == "Measurement")] <- myvarpar
  }
}

我敢肯定，必须有一种更简洁的方法来完成此操作（最好是在lapply结构中使用一个内衬，但是我无法提出一个好的解决方案。

一种替代方法是（请参阅使用lapply更改数据帧列表的列名 ）：

new_col_name <- c("MyItem", myvar, "Interval")
for(i in 1:length(other_list)){
  newlist[[i]] <- lapply(lapply_output[[i]], setNames, nm = new_col_name)
}

但这是1）没有真正做应做的事情（仅保留了最后一个list元素）2）也不整洁

优选地，我想使用类似

eval(parse(text = myvar))

在原始结构中，而不必编写更多的其他命名代码。

Answer 1

默认情况下， lapply循环遍历输入列表元素，因此您无需使用for循环索引进行重复。 另外，由于lapply的默认输出类是list对象，因此lapply在lapply之前创建虚拟列表。

您可以按照以下步骤一步一步重命名列名，并使用match来比较列名

outputVar <- "myactualMeasurement"
inputVar <- "Measurement"

outList = lapply(other_list, function(item){

      out_df <- data.frame('MyItem' = item$MyItem,
                           'Measurement' = item$Measurement,
                           'Interval' = seq(floor(item$First), floor(item$Last))+ 0.5)

      inputvarIndex <- match(inputVar,colnames(out_df))
      colnames(out_df)[inputvarIndex] <- outputVar

      return(out_df)
  })

我强烈建议您仔细阅读?lapply的文档和示例，并注意，尽管eval/parse看起来很方便，但很容易出现意外结果