求助！如何用R选出连续重复的数据

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

求助如何选出连续重复的数据！用R来解决。用不用编程序？或者有没有其他软件的建议，谢谢！
例如
       x   y     z
       A  110  1
       A  110  2
       A  111  1
       A  112  1
       A  111  1
       B  113  1
       B  114  1
       B  114  2
       B  115  1
       B  113  1

主要根据y列来选，最后输出 A 110 1，B 114 1。希望能给点思路！

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：如何用 编程序 有没有 如何 程序 软件

问题好像没说清楚。究竟最后的输出应该是什么? 你所谓的“连续重复”， 是分别对y(“重复”)和z(“连续”)而言的吗？(若如此，则z列也是选择的标准)

1. x <- rep(c("A", "B"), each = 5)
   
2. y <- c(110,110,111,112,111,113,114,114,115,113)
   
3. z <- c(1,2,1,1,1,1,1,2,1,1)
   
4. dat <- data.frame(x=x, y=y, z=z)
   
5. dat[-cumsum(rle(dat$y)$lengths), ]

复制代码

hugebear 发表于 2015-4-13 11:21
问题好像没说清楚。究竟最后的输出应该是什么? 你所谓的“连续重复”， 是分别对y(“重复”)和z(“连续”)而 ...

是指针对于y选择，但是最后输出是一整行包括xyz。

1. dat[which(diff(dat$y)==0),]

复制代码

希望可以推及到有大量数据的时候使用，给个思路也行~谢谢各位~

dataorz 发表于 2015-4-13 13:40

如果y那一列中有非数字项，例如字母。是不是可以删除后再使用你给的code？能跟我说下如何删除么？例如：x                                 y            
18745110280179816       Z_S_On  16:40:09
18745110280179816       Z_S_On  16:40:09
18745110280179816      00000001 16:40:33
18745110280179816      63910241 16:40:34
18745110280179816       Z_T_On  16:42:49
18745110280179816         Z_R_4  16:43:18
18745110280179816         Z_E_R  16:43:40
18745110280179816      63912449 16:43:58
18745110280179816      63912449 16:48:59
18745110280179816      63912449 16:53:59
18745110280179816      63912409 16:54:48

1. y1 <- as.vector(dat$y)
   
2. y2 <- c(y1[-1],paste(y1[length(y1)]," "))
   
3. dat[y1==y2,]

复制代码

dataorz 发表于 2015-4-14 10:05

谢谢大神！那如果字母也有可能有重复的，可是我只想选出数字的，是不是还是先筛一下数据，只留下y里是数字的更好？

正则表达式，替换非数字