拉普利 - 分割列并计算标准偏差

Question

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

我想用lapplication。

下面是列表中包含的一个data.frame的示例:

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

我必须对我的所有10个数据帧执行以下操作：

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

Answer 1

我们可以通过使用lapplication循环遍历列表，提取感兴趣的列，除以获得“比率”，然后对该比率执行sd。（这也可以在一个步骤中完成）

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

其中“lst”是“数据帧”的列表。