2

我需要一些帮助来编写一个函数，该函数接受三个分类输入并根据这些输入返回一个汇总统计向量。

该数据集包含有关零售商品的信息，这些信息可以通过零售细分、品牌名称和商品类型以及零售价格和实际售价来指定。

现在我需要编写一个函数来获取这些输入并平均、计数和计算所需的任何其他内容。

我已将功能设置如下（使用虚构的数据）：

dataold = data.frame(segment=c("golf","tenis","football","tenis","golf","golf"),
                   brand=c("x","y","z","y","x","a"),
                   type=c("iron","ball","helmet","shoe","driver","iron"),
                   retail=c(124,.60,80,75,150,108),
                   actual=c(112,.60,72,75,135,100))

retailsum = funtion(segment,brand,type){    
     datanew = dataold[which(dataold$segment='segment' & 
                             dataold$brand='brand' & 
                             dataold$type='type'),c("retail","actaul")]

     summary = c(dim(datanew)[1],colMeans(datanew))
     return(summary)
}

函数大括号内的代码独立工作，但是一旦我将一个函数包裹在它周围，我就会开始出错，或者它只会返回0计数和NaN方法。

任何帮助将不胜感激。我在 R 方面的经验很少，所以如果这是一个微不足道的问题，我深表歉意，但我一直无法找到解决方案。

4

2 回答 2

7

您的代码中有很多错误，包括：

  • 的拼写错误function
  • 使用单一=（分配）而不是==（平等测试）
  • 打错字actual
  • 和在你的函数中硬编码segment，而不是引用参数。brandtype

这就是你的函数的样子，即它产生有效的结果：

retailsum <- function(data, segment,brand,type, FUN=colMeans){    
  x = with(data, data[segment==segment && brand==brand && type==type,
                      c("retail","actual")])
  match.fun(FUN)(x)
}

retailsum(dataold, "golf", "x", "iron", colMeans)
  retail   actual 
89.60000 82.43333

这是使用该软件包的（可能更灵活）解决方案plyr。这会针对细分、品牌和类型的所有组合计算您的函数：

library(plyr)
ddply(dataold, .(segment, brand, type), colwise(mean))
   segment brand   type retail actual
1 football     z helmet   80.0   72.0
2     golf     a   iron  108.0  100.0
3     golf     x driver  150.0  135.0
4     golf     x   iron  124.0  112.0
5    tenis     y   ball    0.6    0.6
6    tenis     y   shoe   75.0   75.0
于 2012-05-13T08:01:28.993 回答
0

Andrie 的解决方案已经相当完整。（ddply很酷！不知道那个功能......）

不过，只有一个补充：如果您想计算所有可能组合的汇总值，您可以使用 R 的板载函数将其作为单线执行by：

by(dataold, list(dataold$segment, dataold$brand, dataold$type), 
       function(x) summary(x[,c('retail', 'actual')])
)

严格来说，这不是您所要求的，但可能仍然具有指导意义。

于 2012-05-13T08:12:11.490 回答