Есть ли способ извлечь непрерывный объект в 2D массив

Question

скажем, у меня есть массив чисел

a <- c (1,2,3,6,7,8,9,10,20) </p>

если есть способ указать R выводить только диапазон непрерывной последовательности из "a" например, непрерывные последовательности в «а» являются следующими

1,3 6,10 20

Большое спасибо! Derek

Answer 1

Я не думаю, что есть прямой путь, но вы могли бы создать два логических вектора, сообщающих вам, является ли следующий / предыдущий элемент 1 наибольшим / наименьшим. E.g.:

data.frame(
  a,
  is_first = c(TRUE,diff(a)!=1),
  is_last = c(diff(a)!=1,TRUE)
)
# Gives you:
   a is_first is_last
1  1     TRUE   FALSE
2  2    FALSE   FALSE
3  3    FALSE    TRUE
4  6     TRUE   FALSE
5  7    FALSE   FALSE
6  8    FALSE   FALSE
7  9    FALSE   FALSE
8 10    FALSE    TRUE
9 20     TRUE    TRUE

Итак, диапазоны:

cbind(a[c(TRUE,diff(a)!=1)], a[c(diff(a)!=1,TRUE)])
[1,]    1    3
[2,]    6   10
[3,]   20   20

Answer 2

Я сделал это (не так элегантно, признаюсь), если вы хотите, чтобы все номера каждой последовательности в списке

a <- c(1,2,3,6,7,8,9,10,20)

z <- c(1,which(c(1,diff(a))!=1))

g <- lapply(seq(1:length(z)),function(i) {
if (i < length(z)) a[z[i] : (z[i+1] - 1)] 
else a[z[i] : length(a)] 
})


[[1]]
[1] 1 2 3

[[2]]
[1]  6  7  8  9 10

[[3]]
[1] 20

Тогда вы можете получить 2D массив с чем-то вроде этого

sapply(g,function(x) c(x[1],x[length(x)]))

     [,1] [,2] [,3]
[1,]    1    6   20
[2,]    3   10   20

Answer 3

> a <- c(1,2,3,6,7,8,9,10,20)
> N<-length(a)
> k<-2:(N-1)
> z<-(a[k-1]+1)!=a[k] | (a[k+1]-1)!=a[k]
> c(a[1],a[k][z],a[N])
[1]  1  3  6 10 20