r - 根据公共(public)值组合 R 中的数据框行

Question

给定一个数据框:

    > df <- data.frame( L=c('a','b','b'), t0=c(1,10,20), t1=c(9,19,39))
    > df
      L t0 t1
    1 a  1  9
    2 b 10 19
    3 b 20 39

    I want:
    > df
        L t0 t1
      1 a  1  9
      2 b 10 39

df$L 的相同值等于 "b"表示 'b' 的第一个实例的开始 (t0) 应该是新的 't0' 值和 ( contiguous) 'b' 应该是新的 't1' 值。实际上，如果 t0 和 t1 是时间，那么我想合并具有相同 'L' 值的相邻行的持续时间。

Answer 1

按 'L' 分组后，summarise 取 't0' 的 first 值和 't1' 的 last 值(或min 和 max)

df %>%
   group_by(L) %>%
    summarise(t0 = first(t0), t1 = last(t1))
# A tibble: 2 x 3
#  L        t0    t1
#  <fct> <dbl> <dbl>
#1 a         1     9
#2 b        10    39

---

根据 OP 的评论，如果我们还按 'L' 中相邻的相似元素进行分组，请使用 rleid

library(data.table)
df1 %>% 
    group_by(grp = rleid(L), L) %>%
    summarise(t0 = first(t0), t1 = last(t1))

数据

df1 <- data.frame( L=c('a','b','b','a','b','b'), 
        t0=c(1,10,20,40,60,70), t1=c(9,19,39,49,69,79))