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

合并重叠索引

intervals merge dataframe r

dan · 技术社区 · 4 年前

我有一份数据。具有开始和结束索引(已排序)的帧,例如:

df <- data.frame(start.idx = c(1,2,5),
                 end.idx = c(2,3,6))

我正在寻找一个可以合并行的函数 i i-1 如果 start.idx[i] == end.idx[i-1] ,这样新行的 start.idx 将 start.idx[i-1] end.idx 将 end.idx[i] .

对于上面的示例,将生成新(合并)数据。框架将是:

res.df <- data.frame(start.idx = c(1,5),
                     end.idx = c(3,6))

1 回复 | 直到 4 年前

Ronak Shah 4 年前

如果存在重叠,可以创建包含同一组中的行的组,然后选择 first 和 last 分别用于开始和结束的值。

library(dplyr)

df %>%
  arrange(start.idx) %>%
  group_by(group = cumsum(start.idx > lag(end.idx, default = 0))) %>%
  summarise(start.idx = first(start.idx), 
            end.idx = last(end.idx)) %>%
  select(-group)


#  start.idx end.idx
#      <dbl>   <dbl>
#1         1       3
#2         5       6

推荐文章

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

Daniel Estévez · 扩展数据帧以包含不存在的值

1 年前

T Richard · 根据条件交换分组数据中的字符串或值

1 年前

Homer Jay Simpson · R中flextable的标题字体和垂直合并

1 年前

RKIDEV · Panda迭代行并将第n行值乘以下一(n+1)行值

1 年前

Ssong · 如何有条件地运用资本化?

1 年前

Marcio Lino · 在Pandas中转换多个值列

1 年前

Ray · 在Python pandas包中使用groupby函数时,输出结果存在差异的原因是什么?

1 年前

RobertF · 如果列没有表头,如何在R数据帧中引用变量名?

1 年前

Homer Jay Simpson · ggplot2`geom_label()中的警告消息`

1 年前