Подтвердить что ты не робот

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

Игра с датой и часовым поясом может быть сложной в 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?

4b9b3361

Ответ 1

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

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

Ответ 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"