如何得到这样的数据框

1. x1<-c("a","a","a","a","a","a","b","b","b","b")
   
2. x2<-c("f","m","f","n","o","p","m","m","m","f")
   
3. tmp1<-data.frame(x1,x2)
   
4. tmp1
   
5. 
   
6. 
   
7. # 如何得到数据框
   
8. # x1 x2 n11 n1. n.1
   
9. # a  f   2  6   3
   
10. # a  m   1  6   4
    
11. # a  n   1  6   1
    
12. # a  o   1  6   1
    
13. # a  p   1  6   1
    
14. # b  f   1  4   3
    
15. # b  m   3  4   4

复制代码

要求见图，谢谢！

问题写得太混乱了
虽然不知道你的x1、非x1是什么东西，不过大概看明白了。

1. as.data.frame(table(tmp1))->mytab1
   
2. as.data.frame(table(x1))->mytab2
   
3. as.data.frame(table(x2))->mytab3
   
4. tmp=merge(mytab1,mytab2,by="x1",all.x=TRUE)
   
5. tmp=merge(tmp,mytab3,by="x2",all.x=TRUE)

复制代码

再重新排序、重命名一下变量名就可以了