有关table函数的两个问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. aaa<- data.frame(x=c(1,1,2,2,1,NA,1),
   
2.                  group1=c(1,2,1,2,2,2,3),
   
3.                  group2=c("A","B","A","B","A","B",NA), stringsAsFactors=FALSE)
   
4. 
   
5. myfunc<-function(ds,row,col) {
   
6.     table(ds[,row],ds[,col],useNA="ifany"))
   
7. }
   
8. myfunc(ds=aaa,row="x",col="group2")

复制代码

1. 如何在 table(ds[,row],ds[,col] useNA="ifany")) 中使ds[,col]不为NA?

2. 如何使table(ds[,row],ds[,col] useNA="ifany")) 的结果存在dataframe？
格式如下：
            A B  
  1        2 1  
  2        1 1
  <NA> 0 1  

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Table ABLE ABL tab

1. aaa<- data.frame(x=c(1,1,2,2,1,NA,1),
   
2.                
   
3. group1=c(1,2,1,2,2,2,3),
   
4.                
   
5. group2=c("A",NA,"B","A","B","A","B"), stringsAsFactors=FALSE)
   
6. 
   
7. 
   
8. 
   
9. myfunc<-function(ds,row,col) {
   
10.    
    
11. table(ds[,row],ds[,col],useNA="ifany")
    
12. }
    
13. 
    
14. p=myfunc(ds=aaa,row="x",col="group2")
    
15. 
    
16. #anwser 1
    
17. p[,-ncol(p)]
    
18. #anwser 2
    
19. matrix(as.vector(p),nc=ncol(p),nr=nrow(p),dimnames=list(rownames(p),colnames(p)))

复制代码