从 tidyverse 包中消除 ungroup... 消息

Question

当我运行以下命令时，我收到一条烦人的消息： summarise() ungrouping output (override with .groups argument) 。

我想知道如何在下面的数据中消除此消息？

library(tidyverse)

hsb <- read.csv('https://raw.githubusercontent.com/rnorouzian/e/master/hsb.csv')  
ave_cluster_n <- as_vector(hsb %>% dplyr::select(sch.id) %>% group_by(sch.id) %>% summarise(n=n()) %>%  ungroup() %>% dplyr::select(n))

# `summarise()` ungrouping output (override with `.groups` argument) # How to eliminate this message 

Answer 1

这可以作为 pkg 选项进行管理：

library(tidyverse)
options(dplyr.summarise.inform = FALSE)

......你再也看不到这些消息了

Answer 2

如果我们想避免收到消息，我们可以使用不同的选项在summarise指定.groups参数。 另外，要提取为vector ，在 tidyverse 中，有pull来拉列

library(dplyr)
hsb %>% 
    dplyr::select(sch.id) %>%
    group_by(sch.id) %>%
    summarise(n=n(), .groups = 'drop') %>%
    pull(n)

---

或者另一种选择是完全绕过group_by/summarise并使用count

hsb %>%
   count(sch.id) %>%
   pull(n)

或与tally

hsb %>%
   group_by(sch.id) %>% 
   tally()