向现有数据框添加列

您可以命名列表元素,或使用 tibble::lst 它会帮你:

ls.1<- list(df.1 = df.1,df.2 = df.2)
ls.2<- tibble::lst(df.1, df.2)

res1 <- lapply(ls.1, function(x){
  x$d <- x$b + x$c
  return(x)
})

res2 <- lapply(ls.2, function(x){
  x$d <- x$b + x$c
  return(x)
})

# $df.1
#            a         b        c        d
# 1  0.6782608 4.0774244 2.845351 6.922776
# 2  2.3620601 1.9395314 5.438832 7.378364
# 3 -0.5913838 2.0579972 4.312360 6.370357
# 4  0.5532147 0.8581389 5.867889 6.726027
# 5 -0.3251044 1.9838598 4.321008 6.304867
# 
# $df.2
#            a        b        c        d
# 1  1.9918131 3.195105 5.715858 8.910963
# 2  0.2525537 2.507358 5.040691 7.548050
# 3  0.5038298 3.112855 5.265974 8.378830
# 4  0.4873384 3.377182 5.685714 9.062896
# 5 -0.6539881 0.157948 5.407508 5.565456

覆盖原始数据的步骤。可以使用 list2env 在输出端。

要添加列,必须覆盖 ls.1 具有 res 或者手动将结果分配给原始的data.frames。 df.1 <- res[[1]] . 但是有一百种方法可以剥猫皮(双关语的意思),也许还有其他更好的方法。