请问这类函数怎么写？目前均报错

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

基于dplyr包，我写了个函数，做分类统计。如下所示

1. library(dplyr)
   
2. CatergoryStat <- function(data, catergory, args){
   
3.     output <- data %>%
   
4.         group_by(catergory) %>%
   
5.         summarise(obs = n(), mean = mean(args))
   
6. }
   
7. 
   
8. test <- CatergoryStat(data = source, catergory = "mkt",  args = "pe")

复制代码

但是跑出来的结果是，Error: unknown column catergory'

我觉得可能是dplyr的函数group_by对参数的调用格式问题。请问这个怎么改呢？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Library dplyr Summa BRARY arise library 统计

dplyr和ggplot的编程好像涉及到Non-standard evaluation https://cran.r-project.org/web/packages/lazyeval/vignettes/lazyeval.html，是不是需要用到lazyeval包。
或是改为group_by_试试。也需要这方面的指导，等待高手

catergory变量也要放在data.frame格式的data中，禁止单列。。

library(dplyr)
CatergoryStat <- function(data, catergory, args){    if ( is.data.frame(data)) stop(" "data" is not "data.frame" ")  ##data 须是data.frame
     data$catergory<-catergory   ###将catergory 加入data
     data$args<-args    ####将args 加入data
    output <- data %>%
        group_by(catergory) %>%
        summarise(obs = n(), mean_args = mean(args))  ###mean 不是好变量
}
####data、 catergory ，args ，mean 均不是好变量，因R 中均有这些具特定含义的函数名
test <- CatergoryStat(data = source, catergory = "mkt",  args = "pe")

library(dplyr)
CatergoryStat <- function(data, catergory, args){  
  if (! is.data.frame(data)) stop(" "data" is not "data.frame" ")  ##data 须是data.frame 。。#上楼缺了 "!"...
     datacatergory<-catergory   ###将catergory 加入data  
     datacatergory<-catergory   ###将catergory 加入data       dataargs<-args    ####将args 加入data
    output <- data %>%
        group_by(catergory) %>%
        summarise(obs = n(), mean_args = mean(args))  ###mean 不是好变量
}
####data、 catergory ，args ，mean 均不是好变量，因R 中均有这些具特定含义的函数名
test <- CatergoryStat(data = source, catergory = "mkt",  args = "pe")

jgchen1966 发表于 2016-9-26 19:31
library(dplyr)
CatergoryStat

这是不得已将就的“笨拙”的写法。。

jgchen1966 发表于 2016-9-26 19:36
这是不得已将就的“笨拙”的写法。。

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 中均有这些具特定含义的函数名