R语言 如何把一列数中的连续的数字分出来？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

比如 6  7 12 13 14 15 46 52
我想把这串数字分成 6 7、12 13 14 15、46、52 四组，代码应该怎么写呢？或者有没有可以直接调用的函数能够实现？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 有没有

1. a = c(6,8,12,13,14,15,46,1,2,3)
   
2. result = vector("list", 100)
   
3. b = c(a[-1],0)
   
4. c = b - a
   
5. k = 1
   
6. result[[1]] = a[1]
   
7. for(i in 1:length(c))
   
8. {
   
9.         
   
10.         if(c[i] == 1)
    
11.         {
    
12.                 result[[k]] = c(result[[k]], a[i+1])
    
13.         }
    
14.         if(c[i] != 1)
    
15.         {
    
16.                 k = k+1
    
17.                 result[[k]] = a[i+1]
    
18.         }
    
19.         
    
20. }
    
21. result = result[1:(k-1)]

复制代码

假设数据存储在a里，代码中result = vector("list", 100)的100需要是一个比较大的数，最后的result应该是你需要的结果，希望没有编写错误。变量reslult是一个list

conbrownkkk 发表于 2019-12-28 08:32
假设数据存储在a里，代码中result = vector("list", 100)的100需要是一个比较大的数，最后的result应该是你 ...

太感谢了！我好好看看！

太不R style 了，还带着浓浓的C语言的风格，在R语言里，这样解决：
split(a, a %/% 10)

cheetahfly 发表于 2019-12-28 20:07
太不R style 了，还带着浓浓的C语言的风格，在R语言里，这样解决：
split(a, a %/% 10)

大神！！

cheetahfly 发表于 2019-12-28 20:07
太不R style 了，还带着浓浓的C语言的风格，在R语言里，这样解决：
split(a, a %/% 10)

Great!

cheetahfly 发表于 2019-12-28 20:07
太不R style 了，还带着浓浓的C语言的风格，在R语言里，这样解决：
split(a, a %/% 10)

Great!

cheetahfly 发表于 2019-12-28 20:07
太不R style 了，还带着浓浓的C语言的风格，在R语言里，这样解决：
split(a, a %/% 10)

如果a <- c(6, 7, 8, 9, 10, 13, 14, 15, 20, 21, 52)，这行代码就不正确了。