R 创建在开始位置和结束位置之间具有值的列表

我有一个这种格式的文本文件

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

我使用这些命令创建一个列表，其中包含“开始”和“结束”列中的值之间的所有值

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) 

现在，我希望这些其他列的值也出现在我的输出中，这样我可以得到如下结果

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

---

如何更改函数，以使输出如下所示？

以下是

数据。表
解决方案：

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

require（data.table）
DT下面是一个基本答案：

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

HTH
+1哇，我感谢你提供了这么好的解决方案，但我不会因为你让我头疼而感谢你：）我发现使用
seq（begin，end，by=1）
更好，因为它在
begin>end
时会抛出一个错误。在某些情况下，这可能是可取的。
lapply(1:nrow(x), function(u) cbind(position=x$begin[u]:x$end[u], x[u,3:4]))