R语言 如何求连续数据的最大个数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现有一组数据如下： 001111000011101000011111000

     请问如何使用R语言求取连续的1的个数，并取得最大的连续个数。如上数据，第一组连续的1的个数为4，第二组为3，第三组为1，第四组为5，那么最大的连续数为5.

     该如何用R编程来实现呢？

扫码加我 拉你入群

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

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

分享0 收藏4 回帖

关键词：R语言 连续个数 如何使用 最大的 如何用 R语言 编程 连续个数

一个粗略的代码

1. rm(list=ls())
   
2. x<-sample(c(0,1),20,rep=T)
   
3. x
   
4. find <- function(x){
   
5.   n <- length(x)
   
6.   start <- rep(0,n)
   
7.   end <- rep(0,n)
   
8.   for (i in 1:n) {
   
9.     if(x[i] == 1) {
   
10.       start[i] <- i
    
11.       j <- i
    
12.       while (x[j] == 1 & j <= n){
    
13.         end[i] = j
    
14.         j <- j + 1
    
15.       }
    
16.     }
    
17.   }
    
18.   
    
19.   c <- end - start
    
20.   ind <- which.max(c)
    
21.   xs <- start[ind]
    
22.   xe <- end[ind]
    
23.   return(xe-xs+1)
    
24. }
    
25. find(x)

复制代码

kaifengedu 发表于 2015-1-29 19:55
一个粗略的代码

   新手表看不懂，能说说思路吗

用gsub函数把0替换为空格，再用strsplit分割，然后对每个元素求长度

1. a <- "001111000011101000011111000"
   
2. a <- gsub("0+",",",a)         #  将1或多个0 替换为 ","
   
3. b <- strsplit(a,",")               #  将 a 按照","分割为多个字符串
   
4. b <- sapply(b,nchar)          #  获取每个字符串的长度
   
5. which.max(b)                     #  获取最大值

复制代码

kaifengedu 发表于 2015-1-29 19:55
一个粗略的代码

谢谢，很好的思路，学习啦！

dataorz 发表于 2015-1-30 09:15

哈哈，这个思路真的很奇特，赞一个！

ryoeng 发表于 2015-1-30 12:48
这个也行。

赞！我只能表示无限的崇拜···

李会超 发表于 2015-1-29 22:27
用gsub函数把0替换为空格，再用strsplit分割，然后对每个元素求长度

谢谢啦！赞一个！