Extrae cada enésimo elemento de un vector

Me gustaría crear un vector en el que cada elemento sea el i+6thelemento de otro vector.

Por ejemplo, en un vector de longitud 120 quiero crear otro vector de longitud 20 en el que cada elemento sea el valor i, i+6, i+12, i+18...del vector inicial, es decir, quiero extraer cada sexto elemento del original.

a <- 1:120
b <- a[seq(1, length(a), 6)]

Otro truco para obtener piezas secuenciales (más allá de la solución seq ya mencionada) es usar un vector lógico corto y usar el reciclaje de vectores:

foo[ c( rep(FALSE, 5), TRUE ) ]

Creo que estás preguntando dos cosas que no son necesariamente lo mismo

Quiero extraer cada sexto elemento del original

Puede hacer esto indexando una secuencia:

foo <- 1:120
foo[1:20*6]

Me gustaría crear un vector en el que cada elemento sea el elemento i + 6 de otro vector.

Una manera fácil de hacer esto es complementar un factor lógico con FALSE hasta que i+6:

foo <- 1:120
i <- 1
foo[1:(i+6)==(i+6)]
[1]   7  14  21  28  35  42  49  56  63  70  77  84  91  98 105 112 119

i <- 10
foo[1:(i+6)==(i+6)]
[1]  16  32  48  64  80  96 112

Para seleccionar cada enésimo elemento desde cualquier posición inicial en el vector

nth_element <- function(vector, starting_position, n) { 
  vector[seq(starting_position, length(vector), n)] 
  }

# E.g.
vec <- 1:12

nth_element(vec, 1, 3)
# [1]  1  4  7 10

nth_element(vec, 2, 3)
# [1]  2  5  8 11