你可以先将你的小时数转换成R POSIXct对象，然后如果end.time早于start.time，则给end.time加上一天。最后使用difftime计算它们的小时数差，并删除任何不需要的列（最后一个select函数）。

library(dplyr)

df %>% mutate(across(ends_with("time"), ~as.POSIXct(.x, format = '%H:%M'), .names = "{.col}2"),
              end.time2 = if_else(end.time2 < start.time2, end.time2 + 1*60*60*24, end.time2),
              difftime = difftime(end.time2, start.time2)) %>% 
  select(-ends_with("2"))

  id start.time end.time difftime
1  1      18:00     2:00  8 hours
2  2      18:00    20:00  2 hours
3  3       2:00     4:00  2 hours

字符串

下面的代码将实现您正在寻找的功能，尽管它可能很难泛化。

data<-data.frame(
  id=c(1,2,3),
  start.time=c("18:00","18:00","2:00"),
  end.time=c("2:00","20:00","4:00")
)
library(tidyverse)
data<-mutate(data,
             start.time=as.numeric(gsub("\\:.*","",start.time)),
             end.time=as.numeric(gsub("\\:.*","",end.time)),
             diff=ifelse(end.time>start.time,end.time-start.time,
                         (24-start.time)+end.time))

字符串
如果end.time较大，则只需从start.time中减去end.time。如果start.time较大，则先从24中减去start.time，然后加上end.time。这取决于分钟是否无关紧要，因为我使用gsub()删除了:之后的所有内容。

您可以将24*60^2秒（一天）添加到行差小于零的日期时间。由于结果将是秒，因此我们将其除以60^2。matrixStats::rowDiffs在这里将是 lightning 般的快。

> transform(dat, 
+           diff=sapply(dat[2:3], as.POSIXct, format='%H:%M') |>
+             {\(.) {
+               nw_dy <- matrixStats::rowDiffs(.) < 0
+               .[nw_dy, 2] <- .[nw_dy, 2] + 24*60^2
+               unname(.)
+             }}() |>
+             matrixStats::rowDiffs()/60^2)
  id start.time end.time diff
1  1      18:00     2:00    8
2  2      18:00    20:00    2
3  3       2:00     4:00    2

字符串
如果没有 matrixStats，你可以做以下事情，当然，这会更慢：

> transform(dat, 
+           diff=sapply(dat[2:3], as.POSIXct, format='%H:%M') |>
+             {\(.) {
+               nw_dy <- .[, 'end.time'] - .[, 'start.time'] < 0
+               .[nw_dy, 2] <- .[nw_dy, 2] + 24*60^2
+               unname(.)
+             }}() |>
+             apply(1, diff)/60^2)
  id start.time end.time diff
1  1      18:00     2:00    8
2  2      18:00    20:00    2
3  3       2:00     4:00    2

型

• 数据：*

> dput(dat)
structure(list(id = 1:3, start.time = c("18:00", "18:00", "2:00"
), end.time = c("2:00", "20:00", "4:00")), class = "data.frame", row.names = c(NA, 
-3L))

型