R语言如何求多个向量中某元素重复出现的总次数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

假设我有一个list，1：a b c d
2：b c d e
3：a b c d
等等，请教，如何求出每个字母总共出现的次数呢？
求教，谢谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 list IST 如何 元素 字母

没有人回答吗？那我先来抛砖引玉一下，抛一个Perl上来：

1. #!/usr/bin/perl -w
   
2. #@gds=qw(GDS1220 GDS1375 GDS1479 GDS2545 GDS2947 GDS3057 GDS3096 GDS3097 GDS3233 GDS3341 GDS3516 GDS3592 GDS3838 GDS4167 GDS4275 GDS4282 GDS4336 GDS4562 GDS5093);
   
3. $dir="/Users/wangxiao/Desktop";
   
4. chdir($dir);
   
5. @gds=(1,2,3);
   
6. foreach $gds (@gds){
   
7.         #$file="./datasets/${gds}_score_rank.txt";
   
8.         $file="./test${gds}.txt";
   
9.         open I, $file or die $!;
   
10.         <I>;
    
11.         while (<I>){
    
12.                 chomp;
    
13.                 @line=split ("\t");
    
14.                 $gene=$line[0];
    
15.                 $time{$gene}++;
    
16.         }
    
17. }
    
18. 
    
19. foreach $gene (sort {$time{$a}<=>$time{$b}} keys %time){
    
20.         $stat{$time{$gene}}++;
    
21. }
    
22. 
    
23. #$out="./results/overlap.txt";
    
24. $out="./out.txt";
    
25. open O, ">$out" or die;
    
26. foreach $time (sort {$a<=>$b} keys %stat){
    
27.         print O "$time\t$stat{$time}\n";
    
28. }
    
29. close O;

复制代码

table(unlist(z))

wang138699 发表于 2015-6-7 21:32
table(unlist(z))

额。。。perl写了那么长，R竟然只要这么短，好讽刺。。。多谢~

wang138699 发表于 2015-6-7 21:32
table(unlist(z))

高手~

之前为了解决一个类似的问题大费周章 还自己写函数 结果一个table就能解决 want 狗带

水舞者 发表于 2015-6-7 20:35
没有人回答吗？那我先来抛砖引玉一下，抛一个Perl上来：

【赞】

可以使用table()函数，统计元素出现的次数