R语言数理统计之对多分类变量分组计数

1. 导入相关包
2. 导入文件
3. 按指定行进行分组计数
4. 按指定字段进行分组：计数为一个字段下分几类：用长变宽函数pivot_wider（）
5. 按照制定顺序进行行排序：用一个带顺序的表控制合并表的关键字full_join（）
6. 按照制定顺序进行列排序：SELECT（）
7. 导出文件

   library(tidyverse)
   library(readxl)
   wp0 <- read_excel("wp.xlsx", sheet = "wp0")
   wp1 <- read_excel("wp.xlsx", sheet = "wp1")
   
   #-----------------------------板块------------------------------------
   wp0 %>% count()
   df0 <-wp0 %>% count(`板块名称`)
   names(df0)[names(df0) == 'n'] <- 'n0'
   
   wp1 %>% count()
   df1 <-wp1 %>% count(`板块名称`)
   df2 <-wp1 %>% count(`板块名称`,`租赁来源`) %>% pivot_wider( names_from = "租赁来源", values_from = "n")
   df3 <-wp1 %>% count(`板块名称`,`租赁方式`)%>% pivot_wider( names_from = "租赁方式", values_from = "n") 
   df4 <-wp1 %