代码之家 › 专栏 › 技术社区 › Marta Karas

将dplyr summarise()与cross()结合使用并使用基于胶水的格式,不会产生预期的列名

tidyverse dplyr r

Marta Karas · 技术社区 · 5 年前

.names 争论 across() tibble 对象的列名包含有关所使用的摘要函数的信息。

我试过了

library(tidyverse)
library(palmerpenguins)

penguins_stats <- penguins %>% 
  dplyr::group_by(species) %>% 
  dplyr::summarise(across(.cols = ends_with("mm"), 
                          .fns = list(~mean(.x, na.rm = TRUE), 
                                      ~sd(.x, na.rm = TRUE)),
                          .names = "{.col}_{.fn}"))

但是生成的输出具有列名 _1 _2 _mean 和 _sd 正如我所料。

names(penguins_stats)
# [1] "species"             "bill_length_mm_1"   
# [3] "bill_length_mm_2"    "bill_depth_mm_1"    
# [5] "bill_depth_mm_2"     "flipper_length_mm_1"
# [7] "flipper_length_mm_2"

会话信息:

sessionInfo()
# R version 4.0.3 (2020-10-10)
# Platform: x86_64-apple-darwin17.0 (64-bit)
# Running under: macOS Catalina 10.15.7
# 
# Matrix products: default
# BLAS:   /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
# LAPACK: /Library/Frameworks/R.framework/Versions/4.0/Resources/lib/libRlapack.dylib
# 
# locale:
# [1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
# 
# attached base packages:
# [1] stats     graphics  grDevices utils     datasets  methods  
# [7] base     
# 
# other attached packages:
# [1] palmerpenguins_0.1.0 forcats_0.5.0       
# [3] stringr_1.4.0        dplyr_1.0.2         
# [5] purrr_0.3.4          readr_1.4.0         
# [7] tidyr_1.1.2          tibble_3.0.4        
# [9] ggplot2_3.3.2        tidyverse_1.3.0

1 回复 | 直到 5 年前

Ronak Shah 5 年前

您需要将命名参数传递给 .fns 使用 {.fn} 在里面 .names :

library(dplyr)
penguins_stats <- penguins %>% 
  dplyr::group_by(species) %>% 
  dplyr::summarise(across(.cols = ends_with("mm"), 
                          .fns = list(mean = ~mean(.x, na.rm = TRUE), 
                                      sd = ~sd(.x, na.rm = TRUE)),
                          .names = "{.col}_{.fn}"))

names(penguins_stats)
#[1] "species"                "bill_length_mm_mean"    "bill_length_mm_sd"     
#[4] "bill_depth_mm_mean"     "bill_depth_mm_sd"       "flipper_length_mm_mean"
#[7] "flipper_length_mm_sd"

但是,如果传递一个命名参数,则不需要

penguins_stats <- penguins %>% 
  dplyr::group_by(species) %>% 
  dplyr::summarise(across(.cols = ends_with("mm"), 
                          .fns = list(mean = ~mean(.x, na.rm = TRUE), 
                                      sd = ~sd(.x, na.rm = TRUE))))
names(penguins_stats)

#[1] "species"                "bill_length_mm_mean"    "bill_length_mm_sd"     
#[4] "bill_depth_mm_mean"     "bill_depth_mm_sd"       "flipper_length_mm_mean"
#[7] "flipper_length_mm_sd"

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

1 年前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

1 年前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

1 年前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

1 年前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

1 年前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

1 年前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前