使用開始和結束位置之間的值創建列表

Question

我有一個這種格式的文本文件

begin    end   
1        10    
25       35
40       50
37       48
...      ...

我使用這些命令創建一個列表，其中包含“begin”和“end”列之間值的所有值

x <- read.table("in.txt")

result <- vector("list",486)
      for(i in 1:486){
      result[[i]] <- c(x[i,1]:x[i,2])
      }
lapply(result, write, "out.txt", append=TRUE, ncolumns = 1) 

因此，我得到一個包含1列的文件，其中所有值都在不同的行上。 現在我想做一些額外的事情。

我只有兩個額外的列，而不是只包含'begin'和'end'列的輸入文件，如下所示：

begin    end    A    B
1        10     x    0
25       35     x    1
40       50     x    2
37       48     y    0

我現在想要這些其他列的值也出現在我的輸出中，所以我得到這樣的東西

position    A    B
1           X    0
2           X    0
3           X    0
...
10          X    0
...
40          X    2
41          X    2
...
37          Y    0        

如何更改我的功能，以便輸出看起來像這樣？

Answer 1

這是一個data.table解決方案：

require(data.table)
DT <- data.table(DF, key=c("A", "B"))
DT[, list(pos = seq(begin, end, by=1)),by=key(DT)]

Answer 2

這是一個基本答案：

lapply(1:nrow(x), function(u) cbind(position=x$begin[u]:x$end[u], x[u,3:4]))

HTH