如何从数据帧列表中提取特定列到新的数据帧列表？

Question

如何在此列表中提取每个数据框的第二列，并将其另存为另一个新的单列数据框列表？将其作为数据框保留在将来使用此列表中非常重要。

c1 <- runif(10, 0, 10)
c2 <- runif(10, 0, 10)
c3 <- runif(10, 0, 10)
c4 <- runif(10, 0, 10)
c5 <- runif(12, 0, 10)
c6 <- runif(12, 0, 10)
c7 <- runif(12, 0, 10)
c8 <- runif(12, 0, 10)


df1 <- data.frame(c1, c2, c3, c4)
df2 <- data.frame(c5, c6, c7, c8)

list <- list(df1, df2)

Answer 1

你可以这样做：

lapply(list, "[", 2)