如何在R语言中写一段函数，可以报出一段向量中连续最多次的次数？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如题，举个例子，如果一段向量是(a,a,b,e,f,f,s,s,s,a,v,a,a,a)，那么如果我想求的字母是a，得到的结果应该是3。因为在这一段向量中，《连续》出现a的次数最多的一次是3次。先谢谢解答的朋友

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 编程 R语言

1. #示例数据，向量的元素并不限于单字符，字符串或数字均可
   
2. dt <- sample(LETTERS[1:5], 100, replace = TRUE)
   
3. 
   
4. #函数，只负责你要的结果，别管过程啦
   
5. maxConRep <- function (dt) {
   
6.   sc <- rep(1, length(dt))
   
7.   sn <- rep(0, length(dt))
   
8.   j <- 1
   
9.   for (i in 2:length(dt)) {
   
10.     if (dt[i] == dt[i - 1]) {
    
11.       sc[j] <- sc[j] + 1
    
12.       sn[j] <- dt[i]
    
13.     }
    
14.     else
    
15.       j <- j + 1
    
16.   }
    
17.   paste("元素", sn[which.max(sc)], "从向量下标", sum(sc[1:which.max(sc) - 1]) + 1, "起连续重复最大次数", max(sc))
    
18. }
    
19. 
    
20. #查询，看看是不是你要的东西
    
21. maxConRep(dt)

复制代码

不用谢

1. arr <- c('a','a','b','e','f','f','s','s','s','a','v','a','a','a')
   
2. x <- 'a'
   
3. 
   
4. findx <- function(arr, x){
   
5.   # convert to binary arr
   
6.   arr <- arr == x
   
7.   # initialization
   
8.   result <- count <- 0
   
9.   
   
10.   # hit FALSE reset count, hit TRUE update count
    
11.   for(i in 1:length(arr)){
    
12.     if(!arr[i])
    
13.       count <- 0
    
14.     else{
    
15.       count <- count + 1
    
16.       result <- max(result, count)
    
17.     }
    
18.   }
    
19.   return(result)
    
20. }
    
21. 
    
22. findx(arr, x)

复制代码

参考

https://www.geeksforgeeks.org/maximum-consecutive-ones-or-zeros-in-a-binary-array/