在 tidyr::pivot_wider 中，`values_fn = sum(.,na.rm=TRUE)` 失败

别处

在 tidyr::pivot_wider, values_fn = sum(.,na.rm=TRUE)failed ，如何处理？

library(tidyverse)
test_data <- data.frame(
  category=c('A','A','A','B','B','B'),
  sub_category=c('a','b','b','a','b','b'),
  amount=1:6
)

test_data %>% pivot_wider(names_from ='category',
                          values_from ='amount' ,
                          values_fn = sum(.,na.rm=TRUE))

安迪·巴克斯特

您可以使其成为处理此问题的函数：

library(tidyverse)
test_data <- data.frame(
  category=c('A','A','A','B','B','B'),
  sub_category=c('a','b','b','a','b','b'),
  amount=1:6
)

test_data %>% pivot_wider(names_from ='category',
                          values_from ='amount' ,
                          values_fn = function(x) sum(x, na.rm = TRUE))

#> # A tibble: 2 x 3
#>   sub_category     A     B
#>   <chr>        <int> <int>
#> 1 a                1     4
#> 2 b                5    11

生成匿名函数 ( \(x)) 的新语法也适用：

test_data %>% pivot_wider(names_from ='category',
                          values_from ='amount' ,
                          values_fn = \(x) sum(x, na.rm = TRUE))

#> # A tibble: 2 x 3
#>   sub_category     A     B
#>   <chr>        <int> <int>
#> 1 a                1     4
#> 2 b                5    11

^{由reprex 包于 2022-03-25 创建(v2.0.1)}

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。