代码之家 › 专栏 › 技术社区 › rnorouzian

消除tidyverse包中的ungroup…消息

tidyverse dplyr dataframe r

1

rnorouzian · 技术社区 · 5 年前

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

1 回复 | 直到 5 年前

1

3

akrun 5 年前

我们可以指定 .groups 争论 summarise vector ,在潮水里,有 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()