r - 如何向列表中的每个数据框添加一列

Question

这是我的设置

df1<-data.frame(time=c(1,2,3),y=c(2,3,6))
df2<-data.frame(time=c(1,2,3),y=c(3,4,7))
mylist<-list(df1,df2)

mylist
[[1]]
  time y
1    1 2
2    2 3
3    3 6

[[2]]
  time y
1    1 3
2    2 4
3    3 7

我想加一栏，ratio到每个数据帧，它是 y 的值相对于时间 1 的 y 值的比率。这相当于做

mylist[[1]]$ratio<-mylist[[1]]$y/mylist[[1]]$y[1]
mylist[[2]]$ratio<-mylist[[2]]$y/mylist[[2]]$y[1]

mylist
[[1]]
  time y ratio
1    1 2   1.0
2    2 3   1.5
3    3 6   3.0

[[2]]
  time y    ratio
1    1 3 1.000000
2    2 4 1.333333
3    3 7 2.333333

关于如何做到这一点的任何建议？

Answer 1

这是一种仅使用基础 R 的方法:

lapply(mylist, transform, ratio = y / y[1])
# [[1]]
#   time y ratio
# 1    1 2   1.0
# 2    2 3   1.5
# 3    3 6   3.0
# 
# [[2]]
#   time y    ratio
# 1    1 3 1.000000
# 2    2 4 1.333333
# 3    3 7 2.333333

写成这样可能更容易理解

lapply(mylist, function(x) transform(x, ratio = y / y[1]))

另见 ?transform .