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)

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

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

Answer 1

我们可以通过使用list循环lapply来完成此操作，提取感兴趣的列，除以得到＆＃39;比率＆＃39;然后对该比率执行sd。 （也可以一步完成）

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

其中＆＃39; lst＆＃39;是＆＃39; data.frame＆＃39的list。