如何将15分钟数据转换为日期时间格式的时间序列，以便我可以使用quantmod进行绘图？

Question

所以我得到了这个我想要转换成xts的数据，所以我可以用quantmod绘制它。 （这是15米的图表）

 > sample
                    Date   Open   High   Low  Close Vol.at.Price Volume
515 2016-06-15 pm 1:15:00 1.7381 1.7600 1.710 1.7399       1.7399 176000
516 2016-06-15 pm 1:30:00 1.7389 1.7400 1.725 1.7350       1.7350 152900
517 2016-06-15 pm 1:45:00 1.7350 1.7650 1.720 1.7550       1.7550 179900
518 2016-06-15 pm 2:00:00 1.7550 1.7600 1.740 1.7500       1.7500 130800
519 2016-06-15 pm 2:15:00 1.7550 1.7800 1.745 1.7800       1.7800 188400
520 2016-06-15 pm 2:30:00 1.7800 1.7899 1.730 1.7300       1.7300 256700
521 2016-06-15 pm 2:45:00 1.7300 1.7800 1.730 1.7664       1.7664 151900
522 2016-06-15 pm 3:00:00 1.7600 1.7700 1.740 1.7600       1.7600  74100
523 2016-06-15 pm 3:15:00 1.7501 1.8000 1.750 1.7850       1.7850 232300
524 2016-06-15 pm 3:30:00 1.7900 1.8200 1.760 1.7600       1.7600 183300
525 2016-06-15 pm 3:45:00 1.7600 1.7700 1.730 1.7400       1.7400 151600
526 2016-06-15 pm 4:00:00 1.7400 1.7599 1.650 1.7150       1.7150 443500
527 2016-06-15 pm 4:15:00 1.7100 1.7100 1.710 1.7100       1.7100   4628
528 2016-06-15 pm 6:30:00 1.7100 1.7100 1.710 1.7100       1.7100   2000
529 2016-06-15 pm 7:00:00 1.6900 1.6900 1.680 1.6900       1.6900   1050
530 2016-06-15 pm 8:00:00 1.6900 1.6900 1.690 1.6900       1.6900    100
> class(sample)
   [1] "data.frame"

起初，我认为使用xts函数可以完成这项工作，但后来我意识到它只是切断了分钟部分。

> sampled.after<-xts(sample[2:ncol(sample)],as.Date(sample$Date))
> sampled.after
             Open   High   Low  Close Vol.at.Price Volume
2016-06-15 1.7381 1.7600 1.710 1.7399       1.7399 176000
2016-06-15 1.7389 1.7400 1.725 1.7350       1.7350 152900
2016-06-15 1.7350 1.7650 1.720 1.7550       1.7550 179900
2016-06-15 1.7550 1.7600 1.740 1.7500       1.7500 130800
2016-06-15 1.7550 1.7800 1.745 1.7800       1.7800 188400
2016-06-15 1.7800 1.7899 1.730 1.7300       1.7300 256700
2016-06-15 1.7300 1.7800 1.730 1.7664       1.7664 151900
2016-06-15 1.7600 1.7700 1.740 1.7600       1.7600  74100
2016-06-15 1.7501 1.8000 1.750 1.7850       1.7850 232300
2016-06-15 1.7900 1.8200 1.760 1.7600       1.7600 183300
2016-06-15 1.7600 1.7700 1.730 1.7400       1.7400 151600
2016-06-15 1.7400 1.7599 1.650 1.7150       1.7150 443500
2016-06-15 1.7100 1.7100 1.710 1.7100       1.7100   4628
2016-06-15 1.7100 1.7100 1.710 1.7100       1.7100   2000
2016-06-15 1.6900 1.6900 1.680 1.6900       1.6900   1050
2016-06-15 1.6900 1.6900 1.690 1.6900       1.6900    100

如何将其转换为时间序列，以便绘制蜡烛图？

Answer 1

as.Date只返回时间戳的日期部分。 使用as.POSIXct来保留完整的时间戳。 此外，您需要提供format参数，以便as.POSIXct了解您的日期格式。 如果没有format参数，它只会截断日期部分的时间戳。 这里有一些例子：

as.Date仅返回日期

as.Date("2016-06-15 pm 1:15:00")  

 [1] "2016-06-15" 

没有format参数的as.POSIXct返回date加上默认时区

as.POSIXct("2016-06-15 pm 1:15:00")  

 [1] "2016-06-15 PDT" 

将正确的format添加到as.POSIXct以获取完整时间戳

as.POSIXct("2016-06-15 pm 1:15:00", format="%Y-%m-%d %p %I:%M:%S")

 [1] "2016-06-15 13:15:00 PDT" 

有关如何解释上述format参数的详细信息，请参阅strptime的帮助。

添加正确的format和tz到as.POSIXct ，以获得完整的时间戳和正确的时区

请注意， as.POSIXct还将我的本地时区添加到结果（PDT）。 因此，您可能还应添加时区参数以确保应用正确的时区（特别是如果您在不同时区的交换中有引号）。 例如：

as.POSIXct("2016-06-15 pm 1:15:00", format="%Y-%m-%d %p %I:%M:%S", tz="America/New_York")

 [1] "2016-06-15 13:15:00 EDT"