如何使timeSeries以本地时区显示时间？

Question

我使用timeSeries包进行操作和绘制时间序列。我可以使用GMT时间创建timeSeries对象，然后通过将finCenter属性设置为＆＃34; NewYork＆＃34;我在纽约当地时区打印时间。 plot()函数也需要FinCenter参数，人们会认为通过设置它会在x轴上绘制局部时间。但它对我来说并不起作用，无论我做什么，它仍然以GMT显示。

a <- Sys.timeDate() + 1:5
a
# NewYork
# [1] [2015-09-29 21:54:50] [2015-09-29 21:54:51] [2015-09-29 21:54:52]
# [4] [2015-09-29 21:54:53] [2015-09-29 21:54:54]
at <- timeSeries(1:5, a)
at
# NewYork
#                     TS.1
# 2015-09-29 21:54:50    1
# 2015-09-29 21:54:51    2
# 2015-09-29 21:54:52    3
# 2015-09-29 21:54:53    4
# 2015-09-29 21:54:54    5
plot(at)
plot(at, FinCenter = "NewYork")

两个plot函数在GMT中呈现相同的x轴标签。有谁知道如何解决它？