如何将日期和时间从 UTC 转换为 R 中的本地时间？

Question

我有一个如下所示的数据vlinder （ vlinder ），其中日期和时间戳（UTC）位于不同的列中：

date      time.utc variable  
1/04/2020 0:00:00  12  
1/04/2020 0:05:00  54 

在第一步中，我使用以下代码将date和time变量合并到一个名为dateandtime列中：

vlinder$dateandtime <- paste(vlinder$date, vlinder$time.utc)

这导致数据帧vlinder中的额外列：

date      time.utc variable  dateandtime
1/04/2020 0:00:00  12        1/04/2020 0:00:00
1/04/2020 0:05:00  54        1/04/2020 0:05:00

我想将 UTC 时间转换为本地时间（即 CEST，因此时差为 2 小时）。

我尝试使用以下代码，但我得到了完全不同的东西。

vlinder$dateandtime <- as.POSIXct(vlinder$dateandtime, tz = "UTC")
vlinder$dateandtime.cest <- format(vlinder$dateandtime, tz = "Europe/Brussels", usetz = TRUE) 

这导致：

date         time.utc variable   dateandtime   dateandtime.cest
1/04/2020    0:00:00  12         0001-04-20    0001-04-20 00:17:30 LMT
1/04/2020    0:05:00  54         0001-04-20    0001-04-20 00:17:30 LMT

我该如何解决这个问题？ 非常感谢！

Answer 1

as.POSIXct的默认格式需要按年-月-日排序的日期。 因此，日期 01/04/2020 被转换为第 1 年的 4 月 20 日。

您只需要将时间as.POSIXct添加到as.POSIXct ：

vlinder$dateandtime <- as.POSIXct(vlinder$dateandtime, tz = "UTC", format = "%d/%m/%Y %H:%M:%S")

format(vlinder$dateandtime, tz = "Europe/Brussels", usetz = TRUE) 

Answer 2

这是一个lubridate和tidyverse答案。 一些数据整理，数据类型改变，然后bam。 检查lubridate::OlsonNames()是否有效时区 ( tz )。 （我不肯定我选择了正确的tz 。）

library(tidyverse)
library(lubridate)

df <- read.table(header = TRUE, 
                 text = "date      time.utc variable 
                        1/04/2020 00:00:00  12  
                        1/04/2020 00:05:00  54")


df <- df %>%
  mutate(date = mdy(date),
         datetime_utc = as_datetime(paste(date, time.utc)),
         datetime_cest = as_datetime(datetime_utc, tz = 'Europe/Brussels'))

        date time.utc variable        datetime_utc       datetime_cest
1 2020-01-04 00:00:00       12 2020-01-04 00:00:00 2020-01-04 01:00:00
2 2020-01-04 00:05:00       54 2020-01-04 00:05:00 2020-01-04 01:05:00