确定两个给定整数/行之间的整数/行 数据

如何解决确定两个给定整数/行之间的整数/行 数据

我在 r 中处理了大量文本，并且我已经确定了包含关键文本的行号。我将这些存储为两个不同的对象：location1 和 location2

我现在想创建一个位于 location1 和 location2 之间的行的列表。

location1  int [1:393] 4 21 38 57 75 93 110 127 144 166 ...
location2  int [1:393] 6 23 41 59 77 95 112 129 147 168 ...

所以我正在寻找看起来像这样的输出：

5 22 39 40 58 76 111 128 145 146 167 

这比 location1 + 1 更复杂，因为在某些情况下，location1 和 location2 之间有多条线。例如，当 location1 为 38 且 location2 为 41 时，我希望在输出中得到 39 和 40。

我该怎么做？

谢谢！

解决方法

 unlist(Map(seq,location1 + 1,location2 - 1))
 [1]   5  22  39  40  58  76  94 111 128 145 146 167

,

我们可以使用Map

unlist(Map(`:`,location2 - 1))
#[1]   5  22  39  40  58  76  94 111 128 145 146 167

---

或者使用 Vectorize 的 repd 方法

v1 <- location2 - location1 -1
rep(location1,v1) + sequence(v1)
#[1]   5  22  39  40  58  76  94 111 128 145 146 167

---

或者使用 map2

library(purrr)
map2(location1 + 1,location2 - 1,`:`)

也可以改成

tmp <- sweep(df11,2,c(1,-1),`+`)

do.call(Map,c(f = `:`,unname(tmp)))

数据

location1 <- c(4,21,38,57,75,93,110,127,144,166)

location2 <- c(6,23,41,59,77,95,112,129,147,168)
df1 <- data.frame(location1,location2)