Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/84.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
n()未显示在R中的tidyvesre的summary()输出中_R_Dataframe_Dplyr_Tidyverse - Fatal编程技术网

n()未显示在R中的tidyvesre的summary()输出中

n()未显示在R中的tidyvesre的summary()输出中,r,dataframe,dplyr,tidyverse,R,Dataframe,Dplyr,Tidyverse,我在下面输入了我的代码,我想知道为什么n=n()的结果没有显示在最终输出中 library(tidyverse) hsb <- read.csv('https://raw.githubusercontent.com/rnorouzian/e/master/hsb.csv') hsb %>% dplyr::select(math, sector) %>% group_by(sector) %>% summarise(across(.fns = list(mean=mea

我在下面输入了我的代码,我想知道为什么
n=n()
的结果没有显示在最终输出中

library(tidyverse)
hsb <- read.csv('https://raw.githubusercontent.com/rnorouzian/e/master/hsb.csv')

hsb %>% dplyr::select(math, sector) %>% group_by(sector) %>% 
summarise(across(.fns = list(mean=mean, sd=sd), n = n()))
库(tidyverse)
hsb%dplyr::选择(数学,扇区)%%>%group\U by(扇区)%%>%
总结(跨越(.fns=list(mean=mean,sd=sd),n=n())

问题似乎在于中的
结束括号。我们希望
n
是一个单独的列,而不是针对每种情况重复,因此,我们可以关闭
cross
并单独使用
n=n()
,即在
cross
之外

library(dplyr)
hsb %>%
   dplyr::select(math, sector) %>%
   group_by(sector) %>% 
   summarise(across(.fns = list(mean=mean, sd=sd)), n = n(), .groups = 'drop')
# A tibble: 2 x 4
#  sector math_mean math_sd     n
#   <int>     <dbl>   <dbl> <int>
#1      0      11.4    7.08  3642
#2      1      14.2    6.36  3543
hsb %>%
  dplyr::select(math, sector) %>%
  group_by(sector) %>%
  summarise(across(.fns = list(mean = mean, sd = sd, 
         n = ~ n())), .groups = 'drop')=
# A tibble: 2 x 4
#  sector math_mean math_sd math_n
#   <int>     <dbl>   <dbl>  <int>
#1      0      11.4    7.08   3642
#2      1      14.2    6.36   3543