library(dplyr)   ###上楼不知为何，出乱码子
CatergoryStat <- function(data, catergory, args){   ###为了正确说明，才加if 。下面同理
  if (! is.data.frame(data)) stop(" data 不是 data.frame 格式，无法运行 ")  ##data 须是data.frame 。。
     if (length(catergory)==NROW(data) data$catergory<-catergory  else stop("无法加入") ###将catergory 加入data  。
###为了正确说明，才加if 。下面同理
     if (length(args)==NROW(data) )  data$args<-args   else stop("无法加入") ####将args 加入data
    output <- data %>%
        group_by(catergory) %>%
        summarise(obs = n(), mean_args = mean(args))  ###mean 不是好变量
}
####data、 catergory ，args ，mean 均不是好变量，因R 中均有这些具特定含义的函数名