如何导入与头信息的Excel数据为datetime

Question

我从电动submeters趋势的能量。列标题是日期，时间（例如：1/13/2017 0:00，1/13/2017 0:15 ...），下面这些头是在整数亚米级消费读数。

当我执行read_excel()头进入R像"424509.0129493"字符格式。下面的列数据是数字。然后我执行命令gather，当我做头日期时间小数都截断为整数，它去除了我的时间间隔的信息。任何帮助极大的赞赏。

meter_reads <- read_excel("_Jan to Feb meter data for Yardi.xlsx")
BoonShort <-  gather(meter_reads, Date, Value, 3:ncol(meter_reads))

Answer 1

我会通过分离的日期部分使用来自tydir单独小时部分开始。

*假定DF = “meter_reads”，以及日期时间列= “dateTimePart”

nuevoDf<-separate(data = meter_reads, col = dateTimePart, into = c("date","time"),sep = "\\.")

现在，Excel中为您提供了表示已通过12月30日，1899年打完了天数的数值，我们需要做的日期列转换为真正的日期是补充：

nuevoDf$realDate<- nuevaFecha<-as.POSIXct("1899-12-30")+nuevoDf$date*3600*24

**，基本上我们（以1天的秒数）加入从那时起的秒数通过获取3600 * 24通知

好吧，最后，得到的时间：所以，EXCEL基本上给你，因为上午12点已经过去了一天的分数。我们所要做的就是拿到分数，并将其转换为秒，这样一样：

nuevoDf$seconds<-nuevoDf$time*3600*24

然后，就在秒添加到您的真实日期：

nuevoDf$realDate + nuevoDf$seconds