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