R 跨列和行的标准偏差（按 id）

Question

我有几个数据框看起来类似于以下数据框（具有更多列）：

id col1 col2 col3 col4 col5
1   4    3    5    4    A
1   3    5    4    9    Z
1   5    8    3    4    H
2   6    9    2    1    B
2   4    9    5    4    K
3   2    1    7    5    J
3   5    8    4    3    B
3   6    4    3    9    C

我想计算按 id 分组的特定列（比方说 col2 到 col4）的标准差。我不知道每个数据框中的列索引。我只知道要计算标准偏差的列的名称。

有什么方法可以让我轻松做到这一点吗？我的原始数据框包含大约 20 列，我只想要 10 列的标准差，其中特定列名按 id 分组。

最重要的是，如果我可以根据 id 直接将计算出的标准差作为新列添加到我的数据框中就好了，如下所示：

id col1 col2 col3 col4 col5 SD
1   4    3    5    4    A   SD1
1   3    5    4    9    Z   SD1
1   5    8    3    4    H   SD1
2   6    9    2    1    B   SD2
2   4    9    5    4    K   SD2
3   2    1    7    5    J   SD3
3   5    8    4    3    B   SD3
3   6    4    3    9    C   SD3

Answer 1

你可以试试:

library(dplyr)
df %>%
  group_by(id) %>%
  mutate(SD = sd(unlist(select(cur_data(), col2:col4))))

#    id  col1  col2  col3  col4 col5     SD
#  <int> <int> <int> <int> <int> <chr> <dbl>
#1     1     4     3     5     4 A      2.12
#2     1     3     5     4     9 Z      2.12
#3     1     5     8     3     4 H      2.12
#4     2     6     9     2     1 B      3.41
#5     2     4     9     5     4 K      3.41
#6     3     2     1     7     5 J      2.62
#7     3     5     8     4     3 B      2.62
#8     3     6     4     3     9 C      2.62

Answer 2

使用data.table

library(data.table)
setDT(df)[,  SD :=   sd(unlist(.SD)), id, .SDcols = col2:col4]

R 跨列和行的标准偏差（按 id）

R Standard deviation across columns and rows by id

group-by

r

standard-deviation