summarise_allで適用する関数にオプション引数を与える実験

summarise_all-with-optional-arguments.R

# summarise_allで適用する関数にオプション引数を与える実験

library(tidyverse)

data <- read_csv('
a,x
A,1
A,2
A,3
B,
B,5
B,6
')

data

data %>% 
  group_by(a) %>% 
  summarise_all(mean)

data %>% 
  group_by(a) %>% 
  summarise_all(mean, na.rm = TRUE) # この書き方が便利。オプション引数 na.rm = TRUE が mean に渡される。