R 如何填补缺失的时间间隔

我有一个数据帧，在不同的时间间隔进行测量：

df <- data.frame(
  A_aoi = c("C", "C", "C", "B"),
  starttime_ms = c(49, 1981, 6847, 7180),
  endtime_ms = c(1981, 6115, 7048, 10080)
)

然而，这仍然远远没有达到预期的输出：

   A_aoi starttime_ms endtime_ms 
1     C           49        1981
2     C         1981        6115
3    NA         6115        6847
4     C         6847        7048
5    NA         7048        7180
6     B         7180       10080

dfa_aoi starttime_ms endtime_ms
#>1 C 49 1981
#>2 C 1981 6115
#>3 C 6847 7048
#>4 B 7180 10080
x A_aoi开始时间\u ms结束时间\u ms
#>1 C 49 1981
#>2 C 1981 6115
#> 3           6115       6847
#>4 C 6847 7048
#> 5           7048       7180
#>6 B 7180 10080

由（v1.0.0）创建于2021-03-03 #>1 C 49 1981 #>2 C 1981 6115 #>3 C 6847 7048 #>4 B 7180 10080 x A_aoi开始时间\u ms结束时间\u ms #>1 C 49 1981 #>2 C 1981 6115 #> 3 6115 6847 #>4 C 6847 7048 #> 5 7048 7180 #>6 B 7180 10080

---

由（v1.0.0）于2021-03-03创建，您可以使用

数据。表
包如下：

library(data.table)

unq <- sort(unique(setDT(df)[, c(starttime_ms, endtime_ms)]))

df[.(unq[-length(unq)], unq[-1]), on=c("starttime_ms", "endtime_ms")]

# A_aoi starttime_ms endtime_ms     
#     C           49       1981    
#     C         1981       6115     
#  <NA>         6115       6847    
#     C         6847       7048   
#  <NA>         7048       7180    
#     B         7180      10080   

库（data.table）
unq您可以使用
数据。表
包如下：

library(data.table)

unq <- sort(unique(setDT(df)[, c(starttime_ms, endtime_ms)]))

df[.(unq[-length(unq)], unq[-1]), on=c("starttime_ms", "endtime_ms")]

# A_aoi starttime_ms endtime_ms     
#     C           49       1981    
#     C         1981       6115     
#  <NA>         6115       6847    
#     C         6847       7048   
#  <NA>         7048       7180    
#     B         7180      10080   

库（data.table）
unq