r - 使用 dplyr 将函数应用于每个组并返回指定的数据帧

Question

我第一次使用 group_map，我认为我做对了。这是我的代码:

library(REAT)

df <- data.frame(value = c(1,1,1, 1,0.5,0.1, 0,0,0,1), group = c(1,1,1, 2,2,2, 3,3,3,3))

haves <- df %>%
    group_by(group) %>%
    group_map(~gini(.x$value, coefnorm = TRUE)) 

问题是 haves 是一个列表而不是数据框。我需要做什么才能获得这个 df

wants <- data.frame(group = c(1,2,3), gini = c(0,0.5625,1))

group gini
1   0.0000
2   0.5625
3   1.0000

谢谢!

Answer 1

您可以使用dplyr::summarize:

df %>%
    group_by(group) %>%
    summarize(gini = gini(value, coefnorm = TRUE))

#> # A tibble: 3 x 2
#>   group  gini
#>   <dbl> <dbl>
#> 1     1 0    
#> 2     2 0.562
#> 3     3 1