lapply - 划分列并计算标准偏差

Question

我有一个包含 10 个 data.frames 的列表，我只需要为每个 data.frame 划分两列，然后计算相对标准偏差。

我想使用 lapply。

这里是列表中包含的 data.frame 之一的示例：

df <- read.table(text = 'X   Y
2     4
5     3 
1     2
7     1
4     2
6     1', header = TRUE)

我必须对我所有的 10 个 data.frames 使用 lapply 执行以下操作：

ratio <- df$X / df$Y
sd <- sd(ratio)

Answer 1

我们可以通过循环 list 和 lapply 来做到这一点，提取感兴趣的列，除以得到“比率”，然后在该比率上执行 sd。 （也可以一步完成）

lapply(lst, function(x) {ratio <- x$X/x$Y
                        sd(ratio) })

其中“lst”是“data.frame”的list。