> x<-c("x","x","y","y","y")
> y<-c(0,1,1,1,0)
> type<-levels(as.factor(x))
> freqoftype<-as.numeric(table(as.factor(x)))
> z<-tapply(y,x,table)
> as.numeric(z$x)[1]/freqoftype[1] #0在x中出现的频率
[1] 0.5
> as.numeric(z$y)[1]/freqoftype[2] #0在y中出现的频率
[1] 0.3333333

R 这么麻烦的命令啊

如果是stata，处理这个数据更容易

. table type,c(count indicator mean indicator) format(%9.2f)
------------------------------------------
     type |    N(indica~r)  mean(indica~r)
----------+-------------------------------
        A |              3            0.67
        B |              2            0.50
        C |              3            0.33
------------------------------------------

Make sense. 谢谢帮助

客气了~