как вынуть второй и третий элементы (например, c (3,5), c (5,7)) через каждые 1500 столбцов за один раз и сообщить одну матрицу

Question

a <- list(c(1,3,5), c(22,5,7),c(7,9,10))

1500 списков (например, c (1,3,5), c (22,5,7) в одном списке. Я хотел бы убрать второй и третий элементы (например, c (3,5), c (5,7)) через каждые 1500 столбцов за один раз и сообщите одну матрицу. Как это сделать?

Answer 1

Мы можем использовать tail

sapply(a, tail, 2)
#      [,1] [,2] [,3]
#[1,]    3    5    9
#[2,]    5    7   10

Answer 2

Наверное, вам нужно:

sapply(a, `[`, 2:3)

#     [,1] [,2] [,3]
#[1,]    3    5    9
#[2,]    5    7   10