函数切口（XXX， “SEC”）不削减时间由第二正确

当我使用切口（TMP $时间， “SEC”）进行函数切口（XXX， “SEC”）不削减时间由第二正确

 time lasting elec 
39 2013-04-18 13:06:25 8355222 -66.4 
40 2013-04-18 13:06:25 8696122 -20.9 
41 2013-04-18 13:06:27 9310817 -21.2 
42 2013-04-18 13:06:25 9715650 -21.0 
43 2013-04-18 13:06:26 338875 -29.6

结果表明

[1] 2013-04-18 13:06:25 2013-04-18 13:06:25 2013-04-18 13:06:27 2013-04-18 13:06:25 
[5] 2013-04-18 13:06:25

但我认为[5]应该是2013-04-18 13:06:26。问题是什么？

来源

2017-08-29 Tracy Pan

你必须向我们展示了使用'dput（头（TMP））的数据'所以我们确切地知道是什么滋味 –

我无法重现你的错误，一切都似乎是正确的。在你的输出中，你缺少'cut'返回的因子的级别。你可以发布'str（head（tmp））'吗？ –

这工作正常，你可能想检查你的日期格式。

library(lubridate) 
df <- data.frame(time = ymd_hms(c('2013-04-18 13:06:25', 
            '2013-04-18 13:06:25', 
            '2013-04-18 13:06:27', 
            '2013-04-18 13:06:25', 
            '2013-04-18 13:06:26'))) 

cut(df$time, "sec") 

[1] 2013-04-18 13:06:25 2013-04-18 13:06:25 2013-04-18 13:06:27 2013-04-18 13:06:25 
[5] 2013-04-18 13:06:26 
Levels: 2013-04-18 13:06:25 2013-04-18 13:06:26 2013-04-18 13:06:27

来源

2017-08-29 07:24:41

函数切口（XXX， “SEC”）不削减时间由第二正确

回答

相关问题