如何计算r中两列之间的差距

Question

我正在计算前一个“结束”数字与下一个“开始”数字之间的差距。 参考附上的数据，作为例子，结果在df$gap中。 在第一行，数字是 df$gap=df$start[1]-1。 其余的结果将是 df$start[n]-df$end[n-1]。 我可以在 Excel 中轻松地做到这一点，但是，我很难弄清楚如何在没有循环的情况下在 R 中做到这一点。

如果有人可以提供解决方案，那将不胜感激！

df = read.table(text="start  end
   172  635
   766 1699
  1817 1891
  2015 2320", header=T)

预期结果：

  start  end  gap
   172  635   171
   766 1699   131
  1817 1891   118
  2015 2320   124

Answer 1

使用dplyr这是使用lag的解决方案

df %>% mutate(gap = start - lag(end))%>%
           mutate(gap = ifelse(row_number() == 1,start -1,gap))

输出：

    start  end gap
1   172  635 171
2   766 1699 131
3  1817 1891 118
4  2015 2320 124

Answer 2

在基础 R 中：

df$gap <- df$start - c(1L, head(df$end, -1))

给出：

df
  start  end gap
1   172  635 171
2   766 1699 131
3  1817 1891 118
4  2015 2320 124

Answer 3

如果我得到你的问题，一个解决方案可能是dplyr lag函数

例如：

df[,'gap']  = df[,'start'] - lag(df[,"end"], n = 1)

Answer 4

dplyr加上一个小技巧可以帮助解决这个问题：

library(dplyr)

df = read.table(text="start  end
   172  635
   766 1699
  1817 1891
  2015 2320", header=T)

df$temp <- c(1, df$end[-length(df$end)])

mutate(df, gap = start - temp) |> select(-temp)

输出：

  start  end gap
1   172  635 171
2   766 1699 131
3  1817 1891 118
4  2015 2320 124

Answer 5

包data.table一种可能的解决方案

请在下面找到reprex。

REPREX

library(data.table)

DT <- setDT(df)

DT[, end_lead := shift(end,1)][, `:=` (gap = start - end_lead, end_lead = NULL)]

setnafill(DT, fill = DT$start[1] - 1)

DT
#>    start  end gap
#> 1:   172  635 171
#> 2:   766 1699 131
#> 3:  1817 1891 118
#> 4:  2015 2320 124

^{由reprex 包(v0.3.0) 于 2021 年 10 月 13 日创建}