Question

假设我们有这三个日期：

original_dates<-  c("2015-12-31T07:00:00", "2015-12-31T08:00:00", "2015-12-31T09:00:00")

和这个载体：

vector<- c("a", "b", "c")

我们将日期转换为POSIXct格式：

original_dates2<- as.POSIXct(original_dates, format="%Y-%m-%dT%H", tz = "GMT")

并构建一个xts：

my_xts<- xts(vector, order.by = original_dates2, frequency = "hourly")

所以我们有以下xts对象：

> my_xts
                    [,1]
2015-12-31 07:00:00 "a" 
2015-12-31 08:00:00 "b" 
2015-12-31 09:00:00 "c" 
Warning message:
timezone of object (GMT) is different than current timezone ().

如果我想更改为当地时间，我会更改时区：

indexTZ(my_xts)<- "America/Los_Angeles"

但是这会产生错误的结果，因为我知道2015-12-31 07:00:00 GMT应该等于2015-12-31 00:00:00 LA时间（即7小时之前），而不是2015 -12-30 23:00:00（即8小时前）

> my_xts
                    [,1]
2015-12-30 23:00:00 "a" 
2015-12-31 00:00:00 "b" 
2015-12-31 01:00:00 "c" 
Warning message:
timezone of object (America/Los_Angeles) is different than current timezone ().

我想这是因为时区转换indexTZ(my_xts)<- "America/Los_Angeles"不考虑夏令时（dst），如dst函数所示：

> dst(my_xts)
[1] FALSE FALSE FALSE

问题是，如何更改时区以便dst得到处理？

更多详情：

> Sys.timezone()
[1] "Europe/Paris"
> R.version
               _                           
platform       x86_64-w64-mingw32          
arch           x86_64                      
os             mingw32                     
system         x86_64, mingw32                                
version.string R version 3.3.1 (2016-06-21)

Answer 1

你说：

但是这会产生错误的结果，因为我知道2015-12-31 07:00:00 GMT应该等于2015-12-31 00:00:00 LA时间（即7小时之前），而不是2015 -12-30 23:00:00（即8小时前）

这是不正确的。太平洋时区在标准时间内为UTC-8，在白天时间为UTC-7。 12月，标准时间生效。因此，您看到的结果与预期一致。

以xts更改时区以照顾dst（夏令时）

1 个答案: