想做一个类似sumif的函数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有一个数据集mx，其中包括两个类别变量media和carmodel，在每个media下的每个carmodel中，又包含很多IP，IP是字符串，有时会重复出现。
问题：我需要计算出，在每个media下的每个carmodel中，所包含全部IP的出现次数s0，所有重复出现三次以上的IP的和s1，以及s1/s2的比值。请问这程序该怎么写最方便。

数据的结构如图所示：

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：sumif Sum MIF UMI carmod 字符串 如图所示 media 程序

sumif 是什么函数？

用 tapply

1. data_test <- cbind(sample(letters[1:5],1000,T),sample(letters[1:5],1000,T),sample(letters[1:5],1000,T))
   
2. char_vec <- apply(data_test,1,function(x) paste(x[2],x[3],sep="-"))
   
3. fac <- factor(char_vec)
   
4. table(data_test[,1],fac)  ##ip count here
   
5. ##or use ftable function
   
6. dimnames(data_test)[[2]] <- c("A","B","C")
   
7. ftable(A~B+C,data=data_test)

复制代码

nuomin 发表于 2013-12-15 10:09

还准备写ftable的呢， 你就加了， 啊哈

后面最好 data=as.data.frame(ftable())
             data[data$Freq!=0,]

jmpamao 发表于 2013-12-15 11:25
还准备写ftable的呢， 你就加了， 啊哈

后面最好 data=as.data.frame(ftable())

补充的好