list - R:向数据框列表中的列添加不同的值

Question

如果我有这样一个列表:

list <- list( "1" = data.frame(time=1:3, temp = sample(11:13)),
              "3" = data.frame(time=1:3, temp = sample(11:13)))

list

$`1`
  time temp
1    1   11
2    2   12
3    3   13

$`3`
  time temp
1    1   11
2    2   12
3    3   13

现在我想为 temp 列添加一个校正值，数据帧 1 为 +1，数据帧 3 为 -1，因此结果为:

$`1`
  time temp
1    1   12
2    2   13
3    3   14

$`3`
  time temp
1    1   10
2    2   11
3    3   12

另外假设我有多个这样的列表，有时数据框 3 或 1 可能会丢失，甚至可能包含数据框 2，这需要其自己的校正因子...我为数据框 1 尝试了一些奇怪的事情:

list <- lapply(list, function(x)   {x <- x$"1"$temp-1;x})

或

list <- lapply(list, function(x)   {x <- x[x$temp+1,];x})

还尝试为列表中的其他数据框添加一个 seq_along ...没有任何效果，可能是因为我不太了解语法的工作原理...

Answer 1

我把数据结构的名字改成了dflist。将列表称为“列表”是错误的。您还需要一些数据结构来引入相关的校正因子，所以让我们假设一个与“dflist”同名的数据结构:

dflist <- list( "1" = data.frame(time=1:3, temp = sample(11:13)),
              "3" = data.frame(time=1:3, temp = sample(11:13)))

corrlist <- list("1" = 1, "3"=-1) 

# Replaced lapply with for loop
for( nam in names(dflist)) {
        dflist[[nam]]['temp'] <- dflist[[nam]]['temp'] +corrlist[[nam]]
                            }
 dflist