求教思路

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现在想做对一万条数据，得出任何一个元素前后2个元素，求这些元素那个最多，举个例子，就是比如序列W,A,B,C,D,A,C,A,B,E,这个序列里面的B， 分别为 W,A,B,C,D和C,A,B,E， 那么合起来就是W,A,B,C,D,C,A,B,E,除去B本身，出现最多的是A2次，现在就是想把那个元素最多以及出现的次数求出来，现在没有什么好的实现方式。一种想法是按照窗口分割，一种想法是取特定元素所在行前后两个的元素，但是效率都比较低，求教大神是否有好的办法 谢谢！！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：元素

1. N<-10000
   
2. pat<-'B'
   
3. strs<-sample(LETTERS,N,rep=TRUE)
   
4. indB<-which(strs==pat)
   
5. indBs<-c(indB-2,indB-1,indB,indB+1,indB+2)
   
6. indBss<-sort(indBs[indBs>=1 & indBs<=N])
   
7. strBs<-strs[indBss]
   
8. resu<-table(strBs)
   
9. resu[order(resu)]
   
10. strBs
    
11.   E   H   A   V   K   Q   R   D   J   L   M   U   C   Z   W   Y   X   F   O   P   G   S   T   I   N
    
12. 43  44  45  47  50  50  51  52  52  53  54  54  55  55  57  57  58  60  60  61  62  62  62  64  72
    
13.   B
    
14. 410

复制代码

1. library(stringr)
   
2. N<-10000
   
3. pat<-'B'
   
4. strs<-paste(sample(LETTERS,N,rep=TRUE),collapse='')
   
5. resu<-str_extract_all(strs,'[A-Z]{2}B[A-Z]{2}')[[1]]#未判断两端情况
   
6. pats<-paste(resu,collapse='')
   
7. patss<-table(str_extract_all(pats,'[A-Z]{1}'))
   
8. patss[order(patss)]

复制代码

多谢楼上两位