快速版本是我想在某些值的一定距离内找到所有匹配项。例子:
library(data.table)
reads <- structure(list(seqnames = c(1, 1, 1, 1, 1, 1, 1), start = c(100,
100, 100, 130, 130, 132, 133), end = c(130, 130, 131, 160, 160,
155, 160), strand = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = "+", class = "factor")), row.names = c(NA,
-7L), class = c("data.table", "data.frame"), .internal.selfref = <pointer: 0x15af570>, sorted = c("start",
"end", "strand"))
# take only the end position
p3 <- reads[, list(N3 = .N), by = c("seqnames", "end", "strand")]
setnames(p3, "end", "loc.3p")
# take only the start position
p5 <- reads[, list(N5 = .N), by = c("seqnames", "start", "strand")]
setnames(p5, "start", "loc.5p")
# find the start positions close to the end positions
p3[, loc := loc.3p]
p5[, loc := loc.5p]
p3[p5, roll=50, rollends=c(FALSE, TRUE), nomatch=0, on = c("seqnames", "strand", "loc")]
seqnames loc.3p strand N3 loc loc.5p N5
1: 1 130 + 2 130 130 2
2: 1 131 + 1 132 132 1
3: 1 131 + 1 133 133 1
这有效,但只返回第一个匹配项。我现在的目标是找到所有匹配项(在指定的 50 范围内)。预期输出:
seqnames loc.3p strand N3 loc loc.5p N5
1: 1 130 + 2 130 130 2
2: 1 130 + 2 130 132 1
3: 1 130 + 2 133 133 1
4: 1 131 + 1 132 132 1
4: 1 131 + 1 133 133 1
注意loc.3p
130 也应该与loc.5p
132 和 132 匹配。
怎么做?我需要为下一组操作保留分数。
生物信息学版本,我试图找到所有下游 5' 读取到一定距离(在同一条链中)。对于这个例子,我只使用“+”链,但对于“-”链我也必须这样做。由于这将针对数百万次读取完成,data.table
因此似乎是合适的。我调查了GenomicRanges
但保留两组数据(5' 和 3' 位置)的元数据有点复杂。