Изменить часовой пояс в объекте POSIXct

Question

Играть с dateTimes и часовым поясом может быть сложно в R. Вот мой вопрос: я хочу изменить часовой пояс на POSIXct объект

R) data <- data.frame(x=c(1,2),dateTime=as.POSIXct(c("2010-03-11 03:30:00.432","2010-03-15 03:30:00.432"),format="%Y-%m-%d %H:%M:%S",tz="America/Montreal"))
R) data
  x            dateTime
1 1 2010-03-11 03:30:00
2 2 2010-03-15 03:30:00
R) str(data)
'data.frame':   2 obs. of  2 variables:
 $ x       : num  1 2
 $ dateTime: POSIXct, format: "2010-03-11 03:30:00" "2010-03-15 03:30:00"

Но если я хочу изменить часовой пояс, единственное, что я нашел, это:

R) data$dateTime2 = format(data$dateTime,tz="Europe/Paris")
R) str(data)
'data.frame':   2 obs. of  3 variables:
 $ x        : num  1 2
 $ dateTime : POSIXct, format: "2010-03-11 03:30:00" "2010-03-15 03:30:00"
 $ dateTime2: chr  "2010-03-11 09:30:00" "2010-03-15 08:30:00"

Или же

R) data$dateTime2 = as.POSIXlt(data$dateTime,tz="Europe/Paris")
R) str(data)
'data.frame':   2 obs. of  3 variables:
 $ x        : num  1 2
 $ dateTime : POSIXct, format: "2010-03-11 03:30:00" "2010-03-15 03:30:00"
 $ dateTime2: POSIXlt, format: "2010-03-11 09:30:00" "2010-03-15 08:30:00"

Бог (или кто-то на SO) знает, почему это не работает с POSIXct

R) data$dateTime2 = as.POSIXct(data$dateTime,tz="Europe/Paris")
R) str(data)
'data.frame':   2 obs. of  3 variables:
 $ x        : num  1 2
 $ dateTime : POSIXct, format: "2010-03-11 03:30:00" "2010-03-15 03:30:00"
 $ dateTime2: POSIXct, format: "2010-03-11 03:30:00" "2010-03-15 03:30:00"

Нужно ли конвертировать в character и отбросить POSIXct?

Answer 1

Не работает с POSIXct так как base::as.POSIXct.default просто возвращается x если это уже POSIXct, Вы можете изменить часовой пояс через tzone атрибут:

attr(data$dateTime, "tzone") <- "Europe/Paris"

Answer 2

В lubridate пакет есть функция with_tz который изменяет атрибут часового пояса (фактически то, что описал Джошуа).

dttm <- as.POSIXct("2016-01-01 10:10:10", tz = "UTC")
dttm
[1] "2016-01-01 10:10:10 UTC"

Изменить часовой пояс с UTC в CET

with_tz(dttm, "CET")
[1] "2016-01-01 11:10:10 CET"

Answer 3

По состоянию на 23.07.2021 г. indexTZ устарел. tzone хорошо использовать.

tzone(data$dateTime) <- "Europe/Paris"