R: Извлечь элементы из вектора, заданного положения начала / остановки

Question

Есть ли простой способ извлечь элементы из вектора в R, если я знаю индексы начала / конца для каждого извлечения? Например, у меня есть:

v <- c("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t")
start <- c(1, 4, 11, 15)
end <- c(2, 7, 11, 19)

Результат должен быть: c("a", "b", "d", "e", "f", "g", "k", "o", "p", "q", "r", "s")

Answer 1

Может быть, вы можете попробовать

unlist(Map(function(x,y) v[x:y], start,end))

или

v[!!findInterval(seq_along(v),sort(c(start,end+1)))%%2]

Answer 2

Один из вариантов может быть:

v[unlist(Map(`:`, start, end))]

 [1] "a" "b" "d" "e" "f" "g" "k" "o" "p" "q" "r" "s"

Answer 3

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

library(purrr)
library(dplyr)
map2(start, end, ~ v[.x:.y]) %>%
       flatten_chr
#[1] "a" "b" "d" "e" "f" "g" "k" "o" "p" "q" "r" "s"

Answer 4

другой вариант

unlist(sapply(1:4, function(x) v[start[x]:end[x]]))