Tang

gitbook上的网址挂了

书内184页内的代码可能有误

1

同时修改列名的方法： `my_summarise = function(data, mean_var, sd_var) { data %>% summarise("mean_{{mean_var}}" := mean({{mean_var}}), "sd_{{sd_var}}" := mean({{sd_var}})) }` 应该是 `my_summarise = function(data, mean_var, sd_var) { data %>% summarise("mean_{{mean_var}}" := mean({{mean_var}}), "sd_{{sd_var}}" :=...