機能カット（xxxは、 "秒"）が正しく秒で時間をカットしない

Question

私は

 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 

を進めるために、カット（TMP $時間、 "秒"）を使用すると、結果が

[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にする必要があります。問題は何ですか？

Answer 1

これは問題なく動作しますが、日付形式を確認することができます。

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