Chron to POSIXct

Question

我有一个大型数据集，在前两列中包含字符类型的日期/时间信息。

        Date     Time                    Current
1 28.02.2013 23:58:50                       NA
2 28.02.2013 23:58:50                      0.3
3 28.02.2013 23:58:51                      0.3
4 28.02.2013 23:58:51                      0.3
5 28.02.2013 23:58:57                      0.3
6 28.02.2013 23:58:58                      0.3

由于我希望稍后将其转换为xts对象，因此使用以下代码将这两列转换为包含日期和时间的POSIXct类型之一：

bigdata <- ldply (files, read.table,header=TRUE, sep = "\t", dec=".", as.is= 1:2 ) #read the tables keeping the charater format of the first two columns 
library("chron")
Time<-chron(bigdata$Date, bigdata$Time, format= c(dates= "d.m.y", times="h:m:s")) 
Time2<- as.POSIXct(paste(as.Date(dates(Time)),times(Time)%%1)) #to POSIXct

Time2中的结果是一个POSIXct对象，其中日期和时间在单个列中，并给出了所需的结果：

"2013-02-01 00:02:09 CET" "2013-02-01 00:02:12 CET" "2013-02-01 00:02:13 CET" "2013-02-01 00:02:13 CET" "2013-02-01 00:02:13 CET".....

(我知道时间不同，因为我使用了以前的结果，但想法是相同的)

然而，出于一些奇怪的原因，对于一些与我之前展示的特征相同的数据集，我为Time2得到的结果是：

"2013-02-28 CET" "2013-02-28 CET" "2013-02-28 CET" "2013-02-28 CET" "2013-02-28 CET" "2013-02-28 CET"

(这一次的时间与上面显示的数据集中的摘录相同)

"Time“部分被完全删除，只留下日期。我已经对不同的数据集应用了相同的代码，对于大多数数据集来说，它工作得很好，但是其中一个出现了这个问题。

你知道为什么我会得到不同的结果吗？

我在对象Time和Time 2上都运行了命令dput，结果如下：

> dput( head( Time2))
structure(c(1362006000, 1362006000, 1362006000, 1362006000, 1362006000, 
1362006000), class = c("POSIXct", "POSIXt"), tzone = "")

> dput( head( Time))
structure(c(15764.9991898148, 15764.9991898148, 15764.9992013889, 
15764.9992013889, 15764.9992708333, 15764.9992824074), format = structure(c("d.m.y", 
"h:m:s"), .Names = c("dates", "times")), origin = structure(c(1, 
1, 1970), .Names = c("month", "day", "year")), class = c("chron", 
"dates", "times"))

Answer 1

为什么不在一次操作中完成，而不是通过chron类对象呢？

Time2<-as.POSIXct(paste(bigdata$Date, bigdata$Time), 
                  format= "%d.%m.%Y %H:%M:%S")

##########
bigdata <- read.table(text="    Date     Time                    Current
1 28.02.2013 23:58:50                       NA
2 28.02.2013 23:58:50                      0.3
3 28.02.2013 23:58:51                      0.3
4 28.02.2013 23:58:51                      0.3
5 28.02.2013 23:58:57                      0.3
6 28.02.2013 23:58:58                      0.3", header=TRUE, 
      stringsAsFactors=FALSE)

library("chron")
Time<-chron(bigdata$Date, bigdata$Time, format= c(dates= "d.m.y", times="h:m:s")) 
Time2<- as.POSIXct(paste(as.Date(dates(Time)),times(Time)%%1))
Time2
[1] "2013-02-28 23:58:50 PST" "2013-02-28 23:58:50 PST" "2013-02-28 23:58:51 PST"
[4] "2013-02-28 23:58:51 PST" "2013-02-28 23:58:57 PST" "2013-02-28 23:58:58 PST"