R - Générer une séquence de nombres

Je suis en train de créer des séquences de nombre de 6 cas, mais avec 144 cas des intervalles.

Comme celui-ci par exemple

c(1:6, 144:149, 288:293)

1   2   3   4   5   6 144 145 146 147 148 149 288 289 290 291 292 293

Comment ai-je pu générer automatiquement une séquence de ce type avec

seq

ou avec une autre fonction ?

source d'informationauteur giacomo | 2015-06-29

  1. 16

    - Je trouver les sequence fonction pour être utile dans ce cas. Si vous avez eu vos données dans une structure comme ceci:

    (info <- data.frame(start=c(1, 144, 288), len=c(6, 6, 6)))
#   start len
# 1     1   6
# 2   144   6
# 3   288   6

    alors vous pourriez le faire dans une ligne avec:

    sequence(info$len) + rep(info$start-1, info$len)
#  [1]   1   2   3   4   5   6 144 145 146 147 148 149 288 289 290 291 292 293

    Noter que cette solution fonctionne, même si les séquences que vous êtes à la combinaison de différentes longueurs.

  2. 6

    Voici une approche:

    unlist(lapply(c(0L,(1:2)*144L-1L),`+`,seq_len(6)))
# or...
unlist(lapply(c(1L,(1:2)*144L),function(x)seq(x,x+5)))

    Voici une que j'aime un peu mieux:

    rep(c(0L,(1:2)*144L-1L),each=6) + seq_len(6)

    Généraliser...

    rlen  <- 6L
rgap  <- 144L
rnum  <- 3L

starters <- c(0L,seq_len(rnum-1L)*rgap-1L)

rep(starters, each=rlen) + seq_len(rlen)
# or...
unlist(lapply(starters+1L,function(x)seq(x,x+rlen-1L)))
  3. 5

    Cela peut aussi être fait en utilisant seq ou seq.int

    x = c(1, 144, 288)
c(sapply(x, function(y) seq.int(y, length.out = 6)))

#[1]   1   2   3   4   5   6 144 145 146 147 148 149 288 289 290 291 292 293

    @Frank mentionné dans les commentaires ici est une autre façon d'obtenir ce à l'aide de @josilber la structure de données (C'est particulièrement utile quand il est nécessaire de différentes longueur de la séquence pour différents intervalles) 

    c(with(info, mapply(seq.int, start, length.out=len)))

#[1]   1   2   3   4   5   6 144 145 146 147 148 149 288 289 290 291 292 293
  4. 0

    Je suis à l'aide de R 3.3.2. OSX 10.9.4

    J'ai essayé:

    a<-c()  # stores expected sequence
f<-288  # starting number of final sub-sequence
it<-144 # interval
for (d in seq(0,f,by=it))
{
    if (d==0)
    {
        d=1
    }
    a<-c(a, seq(d,d+5))
    print(d)
}
print(a)

    ET de la séquence de magasins dans un.

    [1] 1 2 3 4 5 6 144 145 146 147 148 149 288 289 290 291 292 293

    Et un autre essai:

    a<-c()  # stores expected sequence
it<-144 # interval
lo<-4   # number of sub-sequences
for (d in seq(0,by=it, length.out = lo))
{
    if (d==0)
    {
        d=1
    }
    a<-c(a, seq(d,d+5))
    print(d)
}
print(a)

    Le résultat:

    [1] 1 2 3 4 5 6 144 145 146 147 148 149 288 289 290 291 292 293 432 433 434 435 436 437