将dataframe转换为xts对象会显示小时/分钟信息

我有一个3x3数据帧。其中一行包含日期和时间信息。当我将dataframe转换为xts对象时，转换会从数据中去除时间，只留下日期。我一定是打错代码了。然而，我相信我正确地遵循了说明。欢迎任何帮助

library(xts)
library(data.table)

DATSB <- structure(list(DateTime = c("3/28/2016 20:37", "3/28/2016 20:36","3/28/2016 20:35"), Last = c(1221.7, 1221.8, 1221.9), Volume = c(14L,2L, 22L)), .Names = c("DateTime", "Last", "Volume"), row.names = c(NA,3L), class = "data.frame")
setDF(DATSB)
DATSB$DateTime <- strptime(DATSB$DateTime, format = "%m/%d/%Y %H:%M") 
DATSBxts <- as.xts(DATSB[, -1], order.by = as.Date(DATSB$DateTime, "%Y/%m/%d %H:%M"))


Output for data.frame DATSB:

DateTime               Last Volume
1 2016-03-28 20:37:00 1221.7     14
2 2016-03-28 20:36:00 1221.8      2
3 2016-03-28 20:35:00 1221.9     22


Output for xts object DATSBxts:

            Last Volume
2016-03-28 1221.7     14
2016-03-28 1221.8      2
2016-03-28 1221.9     22

库（xts）
库（数据表）
DATSB像这样删除as.Date
DATSBxts像这样删除as.Date
DATSBxts真棒，非常感谢。想将此作为回答，以便我可以将问题标记为已回答。。。。或者最好删除这个太基本的问题？没必要。只需添加答案并接受即可。干杯