R提取向量中连续相等的数值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现有一个向量1，2，3，3，3，3，2，1，5，5，5，2，2，2，2，2 如何编写R代码提取出向量中连续相等的4个及4个以上元素？
如这个例子中得到的结果应为3，3，3，3，2，2，2，2，2
求大神代码，紧急在线等，万分感谢！！！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

1. seq3 = c(1,2,3,3,3,3,2,1,5,5,5,2,2,2,2,2)
   
2. 
   
3. # 关键函数：?rle
   
4. runs = rle(seq3)
   
5. runs
   
6. 
   
7. myruns = which(runs$lengths >= 4)
   
8. 
   
9. runs.lengths.cumsum = cumsum(runs$lengths)
   
10. ends = runs.lengths.cumsum[myruns]
    
11. 
    
12. newindex = ifelse(myruns>1, myruns-1, 0)
    
13. starts = runs.lengths.cumsum[newindex] + 1
    
14. if (0 %in% newindex) starts = c(1,starts)
    
15. 
    
16. print(starts)
    
17. print(ends)
    
18. 
    
19. print(seq3[starts[1]:ends[1]])
    
20. print(seq3[starts[2]:ends[2]])

复制代码

参考：https://masterr.org/r/how-to-find-consecutive-repeats-in-r/