POSIXct объекты и часовые пояса

Question

У меня есть таблица данных даты и времени, импортированная из Excel, и столбец даты / времени в числовом формате (т. Е. 43596.22).Я использовал следующий код для преобразования числа в формат даты и времени с часовым поясом UTC:

 info_dt1$Date_time<-convertToDateTime(info_dt1$date_time, origin = "1900-01-01",tx="UTC")

Я использую функцию forverlaps из data.table, чтобы объединить эту таблицу данных с другой таблицей данных по дате ивремя.Когда я впервые запустил следующий код:

info_dt3 = foverlaps(info_dt2, info_access3, by.x=c("Date_time", "dummy"), nomatch=NA)[, dummy := NULL]

, я получил сообщение об ошибке, в котором говорилось, что два поля даты и времени имеют разные часовые пояса.Часовой пояс для другой таблицы данных также был указан как UTC.

Я использовал функцию attr, чтобы установить для столбцов даты и времени обеих таблиц данных значение UTC:

   #make sure all date/times have same time zone
attr(info_access2$Start_time, "tzone") <- "UTC"
attr(info_access2$End_time, "tzone") <- "UTC"
attr(info_dt1$Date_time, "tzone") <- "UTC"

Когда я это сделаю,время таблицы данных info_dt1 перемещается на 4 часа вперед, и полученное объединение выключено.Я хотел бы знать, что я делаю неправильно при настройке формата и часового пояса для обеих таблиц данных для слияния, чтобы работать правильно.

Some example data and code:

    #first data table reduced example 

        info_dt1<-
        structure(list(date_time = c(NA, 43596.2284722222, 43596.2285069444, 
        43596.2285416667, 43596.2285763889, 43596.2286111111, 43596.2286458333, 
        43596.2286805556, 43596.2287152778, 43596.22875), Temp = c(NA, 
        22.75, 22.66, 22.57, 22.49, 22.37, 22.28, 22.16, 22.08, 21.99
        ), Depth = c(NA, 0.19, 0.27, 0.7, 0.27, 0.27, 0.27, 0.19, 0.19, 
        0.19), Angle = c(NA, -3, -4, -3, -1, 1, -1, -2, 1, -6)), .Names = c("date_time", 
        "Temp", "Depth", "Angle"), row.names = c(NA, 10L), class = "data.frame")

        #convert date time to POSIXct
         info_dt1$Date_time<-convertToDateTime(info_dt1$date_time, origin = "1900-01-01",tx="UTC")

        #second example data set
        info_access2<-
        structure(list(Tow = 201905001:201905010, Start_time = structure(c(1557554271, 
        1557564948, 1557569853, 1557573081, 1557577149, 1557582317, 1557586050, 
        1557588636, 1557590697, 1557593679), class = c("POSIXct", "POSIXt"
        ), tzone = "UTC"), End_time = structure(c(1557555117, 1557565710, 
        1557570765, 1557573846, 1557577974, 1557583210, 1557586797, 1557589428, 
        1557591441, 1557594511), class = c("POSIXct", "POSIXt"), tzone = "UTC"), 
            time_interval = structure(c(846, 762, 912, 765, 825, 893, 
            747, 792, 744, 832), start = structure(c(1557554271, 1557564948, 
            1557569853, 1557573081, 1557577149, 1557582317, 1557586050, 
            1557588636, 1557590697, 1557593679), class = c("POSIXct", 
            "POSIXt"), tzone = "UTC"), tzone = "UTC", class = structure("Interval", package = "lubridate"))), .Names = c("Tow", 
        "Start_time", "End_time", "time_interval"), row.names = c(NA, 
        10L), class = "data.frame")

    library(data.table)

    #make info_dt2 and info_access2 data.tables
    info_access3<-as.data.table(info_access2)
    info_dt2<-as.data.table(info_dt1)

    #remove NA from info_dt2
    info_dt2<-info_dt2[complete.cases(info_dt2),]

    #set dummy column for info_dt2
    info_dt2[, dummy := Date_time]

    #define setkey for info_access2
    setkey(info_access3, Start_time, End_time)

    #if I run the code like this I get the error message about different time zones

    #use foverlaps to merge info_access3 and info_dt2
    info_dt3 = foverlaps(info_dt2, info_access3, by.x=c("Date_time", "dummy"), nomatch=NA)[, dummy := NULL]

    #if I run this chunk of code the times in info_dt1 are moved forward 4 hours
     #make sure all date/times have same time zone
        attr(info_access2$Start_time, "tzone") <- "UTC"
        attr(info_access2$End_time, "tzone") <- "UTC"
        attr(info_dt1$Date_time, "tzone") <- "UTC"

#make info_dt2 and info_access2 data.tables
    info_access3<-as.data.table(info_access2)
    info_dt2<-as.data.table(info_dt1)

    #remove NA from info_dt2
        info_dt2<-info_dt2[complete.cases(info_dt2),]


    #but the foverlaps to merge info_access2 and info_dt2 doesn't give an error message
        info_dt3 = foverlaps(info_dt2, info_access3, by.x=c("Date_time", "dummy"), nomatch=NA)[, dummy := NULL]

Answer 1

Вы можете использовать lubridate::force_tz(), чтобы изменить временную метку, которая имела неточный часовой пояс, когда она была прочитана:

lubridate::force_tz(Sys.time(), "UTC")
#[1] "2019-06-25 14:04:32 UTC"

Это изменит базовую временную метку double, тогда как простое изменение атрибута не будет.