Ich habe einige numerische Datumsdaten aus Excel:

> df <- data.frame(c(42613, 42612, 42614), c(42614.61, 42613.97, 42612.12))
> names(df) <- c("Closetime", "Opentime")

BeideClosetime undOpentime sindnumeric. Ich möchte die Stunden- / Minuten- / Sekunden-Daten von @ beibehalteOpenTime und addiere die Zeit '00: 00: 00 'zu jedem Datum inClosetime:

> df$Closetime <- paste(as.Date(df$Closetime, origin = '1900-01-01'), c('00:00:00'))

Einfach genug zu tunClosetime, aber wenn ich versuche mitlubridate::date_decimal aufOpentime, alles geht zur Hölle.

> df$Opentime <- date_decimal(df$Opentime)
> df
            Closetime             Opentime
1 2016-09-02 00:00:00 42614-08-11 15:36:00
2 2016-09-01 00:00:00 42613-12-21 01:12:00
3 2016-09-03 00:00:00 42612-02-13 22:04:48

Wie kann ich beides bekommenOpentime undClosetime vom selben Typ / Format sein? Ich versuche irgendwann, die Differenz in Stunden zwischen den Zeiten in jeder Spalte als Referenz zu ermitteln.