数字列表
a
1
2
3
6
7
8
9
10
11
12
15
16
19
20
21
22
23
24
25
提取 3 个不重复的连续值。 结果应该是这样的
这就像每 3 行连续到列，但我们可以看到 7,8,9 也是连续的，但忽略了删除重复项
a b c
1 2 3
6 7 8
9 10 11
19 20 21
22 23 24
提前致谢
【问题讨论】：
标签： r
有点不整洁，但能胜任：
d <- data.frame(a=a[-(1:2)], diff=diff(a, 2))
d$br <- 0
for (i in 1:nrow(d)) {
if (i==1 & d$diff[1]==2) {
d$br[1] <- 1
} else if (i==2 & d$diff[2]==2 & d$br[1]!=1) {
d$br[2] <- 1
}
if (d$diff[i]==2 & !any(sum(d$br[c(i-1, i-2)])>0)) d$br[i] <- 1
}
t(sapply(d$a[d$br==1], function(x) (x-2):x))
# [,1] [,2] [,3]
# [1,] 1 2 3
# [2,] 6 7 8
# [3,] 9 10 11
# [4,] 19 20 21
# [5,] 22 23 24
将所有内容包装到一个函数中，并使用另一个序列进行测试：
getConsec <- function(a) {
d <- data.frame(a=a[-(1:2)], diff=diff(a, 2))
d$br <- 0
for (i in 1:nrow(d)) {
if (i==1 & d$diff[1]==2) {
d$br[1] <- 1
} else if (i==2 & d$diff[2]==2 & d$br[1]!=1) {
d$br[2] <- 1
}
if (d$diff[i]==2 & !any(sum(d$br[c(i-1, i-2)])>0)) d$br[i] <- 1
}
t(sapply(d$a[d$br==1], function(x) (x-2):x))
}
a <- sort(sample(1:30, 20))
# [1] 1 2 3 4 6 10 12 14 15 16 17 18 19 20 21 23 25 27 28 30
getConsec(a)
# [,1] [,2] [,3]
# [1,] 1 2 3
# [2,] 14 15 16
# [3,] 17 18 19
【讨论】：
getConsec 正是我上面描述的功能。我编辑了我的答案以明确这一点。
如果我理解正确，这应该可以完成工作
matrix(unique(a),ncol=3, byrow=T)
它会忽略重复的值，然后用它们逐行填充一个 3 列矩阵
【讨论】：