R如何计算多选题的频次？交叉表

对于yywan0913的方法我大概理解了，多谢。
如果是把C3_1到_4放到side上，我试了试，可行（代码如下）。但CRouGD的方法，我还没找到办法，如何转置。也就是结果为：         1 2 3
C3_1 3 0 1
C3_2 2 1 2
C3_3 4 1 2
C3_4 2 1 3

1. #side和top互换
   
2. filepath <- c("E:/DataMulti.csv")
   
3. t=read.table(filepath ,sep=",",header=T)
   
4. Age=t[,2]
   
5. a=unique(Age)
   
6. tt=matrix(ncol=length(a),nrow=4)
   
7. for(i in 1:length(a)){
   
8. tt[,i]=apply(t[Age==a[i],][6:9],2,sum)
   
9. }
   
10. colnames(tt)=sort(a)
    
11. rownames(tt)=colnames(t)[6:9]
    
12. tt

复制代码

kiclee 发表于 2013-12-26 21:38
对于yywan0913的方法我大概理解了，多谢。
如果是把C3_1到_4放到side上，我试了试，可行（代码如下）。但C ...

1. library(reshape)
   
2. t=read.table("11.txt",header=T)
   
3. data1=t[,c(2,6:9)]
   
4. data2=melt(data1,id="Age")
   
5. data3=data2[data2[,3]==1,]
   
6. table=table(data3[,1:2])
   
7. table=t(table)
   
8. table

复制代码

哦了，谢谢。刚弄R，有些函数还真不清楚。

yywan0913是程序员出身吗？

kiclee 发表于 2013-12-27 12:29
yywan0913是程序员出身吗？

不是，只是大学的时候学过VB和C++， 然后工作了开始学shell，R和python，最近在整些PHP和html
所以 其实没几样精通的。

真是感谢！

用ddply这个也可以：
vars <- c("all","a191","a192","a193","a194","a195")
md<-df[,vars]
md<-melt(md,id=c("all"))
md2<-subset(md,value==1,)
ddply(md,.(variable),summarise,sum=sum(value,na.rm=TRUE),p1=sum/nrow(df),p2=sum/nrow(md2))

多选题分析案例以及操作步骤可以参考下文：
https://bbs.pinggu.org/thread-10762005-1-1.html

R里面有个函数叫proc_freq() 我觉得你可以试试看。