如何将摘要统计值添加到数据框的每一行？

Question

我想知道一种将摘要统计信息添加回数据框的每一行的 tidyverse 方法。

下面的代码有效，但应该是一个更快的方法，对吧？

library("tidyverse")
data <- (iris)

means <- iris %>%
  group_by(Species) %>%
  summarise(
    Sepal.Length = mean(Sepal.Length),
    Sepal.Width = mean(Sepal.Width)
  )

data <- merge(data, means, by = "Species")

Answer 1

您可以使用 dplyr::mutate_at:

iris %>% group_by(Species) %>% 
  mutate_at(.vars = vars(Sepal.Length,Sepal.Width), 
    .funs = list(mean = ~mean))

我们需要 list(mean = ~mean) 位，而不仅仅是 .funs = mean 来重命名列，而不是覆盖原始列。

# A tibble: 150 x 7
# Groups:   Species [3]
   Sepal.Length Sepal.Width Petal.Length Petal.Width Species Sepal.Length_mean Sepal.Width_mean
          <dbl>       <dbl>        <dbl>       <dbl> <fct>               <dbl>            <dbl>
 1          5.1         3.5          1.4         0.2 setosa               5.01             3.43
 2          4.9         3            1.4         0.2 setosa               5.01             3.43
 3          4.7         3.2          1.3         0.2 setosa               5.01             3.43
 4          4.6         3.1          1.5         0.2 setosa               5.01             3.43
 5          5           3.6          1.4         0.2 setosa               5.01             3.43
 6          5.4         3.9          1.7         0.4 setosa               5.01             3.43
 7          4.6         3.4          1.4         0.3 setosa               5.01             3.43
 8          5           3.4          1.5         0.2 setosa               5.01             3.43
 9          4.4         2.9          1.4         0.2 setosa               5.01             3.43
10          4.9         3.1          1.5         0.1 setosa               5.01             3.43

Answer 2

一种方法是使用 mutate。

library("tidyverse")
data <- (iris)

data<-data %>% 
  group_by(Species) %>% 
  mutate(Sepal.Length.y=mean(Sepal.Length), Sepal.Width.y=mean(Sepal.Width))

所以这与您之前的非常相似，但减少了几个步骤。如果你想重新排列列的顺序，你可以重新排序它们。另外，我建议在 post 中更改 Sepal.Length 和 Sepal.Width 的列名称，但如果您不指定唯一名称，r 只会在它们上面放一个 .y 来制作它们独特。希望这有帮助。

如何将摘要统计值添加到数据框的每一行？

How do I add summary-statistics values to each row of a data frame?

r

summary

dplyr