你可以改自己的帖子。

老给我论坛币   我都不好意思了

感谢yywan0913和CRouGD的分享。
对于CRouGD的方法，得到结果如下，但如果数据量大，会出2个table（一个是, , value = 0，一个是, , value = 1），不过可以用table(data3)[,,2] #取第2个table（等于1的交叉表）
, , value = 1
   variable
Age C3_1 C3_2 C3_3 C3_4
  1    0    1    1    1
  2    3    2    4    2
  3    1    2    2    3

对于yywan0913的方法，得到的结果如下。感觉对于Age的顺序有问题，是否缺少一次排序？
  C3_1 C3_2 C3_3 C3_4
2    0    1    1    1
1    3    2    4    2
3    1    2    2    3

抱歉    感觉楼上方法挺好的

对于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

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

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() 我觉得你可以试试看。