在R中将包含时区的日期字符串转换为POSIXct答案

【问题标题】：Convert date string that contains time zone to POSIXct in R在R中将包含时区的日期字符串转换为POSIXct
【发布时间】：2015-10-22 16:47:18
【问题描述】：

我有一个带有这种格式日期的向量（前 6 行的示例）：

 Dates<-c(
   "Sun Oct 04 20:33:05 EEST 2015",
   "Sun Oct 04 20:49:23 EEST 2015",
   "Sun Oct 04 21:05:25 EEST 2015",
   "Mon Sep 28 10:02:38 IDT 2015", 
   "Mon Sep 28 10:17:50 IDT 2015",
   "Mon Sep 28 10:39:48 IDT 2015")

我尝试使用as.Date() 函数将这个变量Dates 读取到R：

as.Date(Dates,format = "%a %b %d %H:%M:%S %Z %Y")

但由于输入中不支持%Z 参数，该过程失败。整个向量中的时区不同。根据时区正确读取数据的替代方法是什么？

【问题讨论】：

您显示的“时区”是缩写，可能不明确。您需要确定它们所代表的实际时区（通常通过 Country/City 指定）。

标签： r timezone as.date

【解决方案1】：

此解决方案需要一些简化假设。假设您的向量中有许多元素，最好的方法是使用时区偏移数据库来确定每次是什么（在选定的语言环境中，例如 GMT）。我使用的时区数据是来自https://timezonedb.com/download的timezone.csv文件

#Create sample data
Dates<-c(
  "Sun Oct 04 20:33:05 EEST 2015",
  "Sun Oct 04 20:49:23 EEST 2015",
  "Sun Oct 04 21:05:25 EEST 2015",
  "Mon Sep 28 10:02:38 IDT 2015", 
  "Mon Sep 28 10:17:50 IDT 2015",
  "Mon Sep 28 10:39:48 IDT 2015")

#separate timezone string from date/time info
no_timezone <- paste(substr(Dates, 1, 19), substr(Dates, nchar(Dates)-3, nchar(Dates)))
timezone <- as.data.frame(substr(Dates, 21, nchar(Dates)-5))
colnames(timezone) <- "abbreviation"

#reference timezone database to get offsets from GMT
timezone_db <- read.csv(file="timezonedb/timezone.csv", header=FALSE)
colnames(timezone_db) <- c("zone_id", "abbreviation", "time_start", "gmt_offset", "dst")
timezone_db <- timezone_db[timezone_db$dst == 0, ]
timezone_db <- unique(timezone_db[,c("abbreviation", "gmt_offset")])
timezone_db <- timezone_db[!duplicated(timezone_db$abbreviation), ]

#adjust all time to GMT
time_adjust <- merge(timezone, timezone_db, all.x=TRUE, by="abbreviation")
gmt_time <- strptime(no_timezone, format = "%a %b %d %H:%M:%S %Y", tz="GMT")

#final data
Dates_final <- gmt_time - time_adjust$gmt_offset

根据您的数据需要的准确程度，如有必要，请小心调整夏令时。另外，我对时区了解不多，但我注意到出于某种原因，某些时区可以有多个偏移量。在原始数据库中，出于某种原因，CLT（智利时间）可能与 GMT 相差 3-5 小时。

对于这个练习，我的代码只是从数据库中获取每个时区的第一个偏移量，并假设没有夏令时。如果您的工作不需要如此精确，这可能就足够了，但您应该以任何一种方式对您的工作进行 QA 和验证。

另外，请注意，此解决方案对于日期更改也应该是稳健的。例如，如果将时间从凌晨 1 点调整到晚上 11 点，则日期应返回一天。

【讨论】：