代码之家 › 专栏 › 技术社区 › dan

按距离截止对线性间隔进行分组

intervals distance dataframe r

dan · 技术社区 · 3 年前

我有一个 R data.frame 线性间隔:

df <- data.frame(id = paste0("i",1:15),
                 start = c(6575,7156,7949,45835,46347,47168,126804,127276,128127,157597,158074,158902,199129,199704,200507),
                 end = c(6928,7392,8260,46104,46610,47485,127079,127542,128417,157872,158340,159219,199374,199951,200938))

我还有一个区间距离截止点:

inter.interval.distance.cutoff <- 3243

df 按排序 start 和 end . 第一个间隔标记为属于 group g1 从这里开始,任何间隔被其前面的间隔隔开一段距离(定义为 开始 当前间隔减去 终止 等于或小于 inter.interval.distance.cutoff 已分配给 组 否则它将启动一个新组( 组 索引增加1,这是ew获取新 组 标签)。

以下是我想要的结果:

df$group <- c(rep("g1",3), rep("g2",3), rep("g3",3), rep("g4",3), rep("g5",3))

有什么快速的方法吗?

1 回复 | 直到 3 年前

Onyambu 3 年前

df$group <- paste0('g', cumsum(c(1, diff(df$start)>inter.interval.distance.cutoff)))

    id  start    end  f
1   i1   6575   6928 g1
2   i2   7156   7392 g1
3   i3   7949   8260 g1
4   i4  45835  46104 g2
5   i5  46347  46610 g2
6   i6  47168  47485 g2
7   i7 126804 127079 g3
8   i8 127276 127542 g3
9   i9 128127 128417 g3
10 i10 157597 157872 g4
11 i11 158074 158340 g4
12 i12 158902 159219 g4
13 i13 199129 199374 g5
14 i14 199704 199951 g5
15 i15 200507 200938 g5

推荐文章

Joke O. · 为循环添加条件,以使用R中的ClassInt为n个类较少的区域生成类间隔

1 年前

Omar · 如何在R中的直方图图中设置特定的间隔?

2 年前

dan · 按距离截止对线性间隔进行分组

3 年前

CodeRic · 导航时的clearInterval()。推式反应器

3 年前

rayray · 查找Swift 4中作为字符串存储的2次之间的差异

7 年前

kjdion84 · 间隔造成的不必要延迟

7 年前

Hans Wurst · Numpy查找数组小范围内最大值的索引

7 年前

Leron · 查找最长重叠周期

7 年前

Banana jqurious · 为什么Pyinterval算术在numpy中失败。浮动64

7 年前

Mohammed · Oracle查询中的H2加减间隔秒

7 年前