Rでの時間の差を計算したい

Question

R初心者です。データフレームの時間の差を計算したいです。
イメージはこの図の通りです。

時間1	時間2	その差
2017-01-05 18:00:00	2017-01-05 11:00:00	07:00:00
2017-01-05 18:00:00	2017-01-04 11:00:00	31:00:00

日をまたぐ場合も同様に出力したいです。

言葉不足な点があるかと思いますがよろしくお願い致します。

Answer 1

timediffオブジェクトを使います。

difftime2hms <- function(dt1){
  # dt1: difftime object
  h <- as.numeric(dt1, units="secs") %/% 3600
  m <- as.numeric(dt1, units="mins") %% 60
  s <- as.numeric(dt1, units="secs") %% 60
  return(sprintf("%02d:%02d:%02d", h, m, s))
}

intimeform  <- "%Y-%m-%d %H:%M:%S"

# test data
timedf <- data.frame(
  time1 = c("2017-01-05 18:00:00", "2017-01-05 18:00:00"), 
  time2  =c("2017-01-05 11:00:00", "2017-01-04 11:00:00"),
stringsAsFactors = F)

timedf$diff <- difftime2hms(
  difftime(
    strptime(timedf$time1, intimeform),
    strptime(timedf$time2, intimeform),
    unit="secs"
  )
)
print(timedf)