引用数据框列表中的列

Question

我有一个数据帧“ ldf”列表，并希望在此列表的每个df中保留特定的列（这些列在每个df中具有相同的名称）

我这样尝试过，但显然失败了。.

   newList <-
   lapply(names(ldf), function(i){
       x <- ldf[[ i ]]
       x <- x[c("Var1", "Var2")]
     })

示例：

 ldf <- list(data.frame(a = 1:5, b = 1:5, c = 1:5), data.frame(a = 1:5, b      = 1:5, c = 1:5))

仅保留Var1和Var2时，新列表应为：

 list(data.frame(a = 1:5, b = 1:5), data.frame(a = 1:5, b = 1:5))