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。

Answer 2

df  <- 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


for (i in 1:(length(mylist))) {
  mylist[[i]]$ratio <- mylist[[i]]$y/mylist[[i]]$y[1]
}

mylist

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

2 个答案: