在r中加入一秒鐘到特定時間

Question

請問如何在從__：59結束的日期時間添加一秒鐘？

即，從這樣的：

   dateTime rain_mm 
1 2012-12-01 00:00:00  1.0 
2 2012-12-01 00:06:00  0.0 
3 2012-12-01 00:11:59  0.0 
4 2012-12-01 00:17:59  0.0 
5 2012-12-01 00:24:00  0.2 
6 2012-12-01 00:30:00  0.0 
7 2012-12-01 00:36:00  1.0 
8 2012-12-01 00:42:00  0.0 
9 2012-12-01 00:48:00  0.8 
10 2012-12-01 00:53:59  0.2 

到：

   dateTime rain_mm 
1 2012-12-01 00:00:00  1.0 
2 2012-12-01 00:06:00  0.0 
3 2012-12-01 00:12:00  0.0 
4 2012-12-01 00:18:00  0.0 
5 2012-12-01 00:24:00  0.2 
6 2012-12-01 00:30:00  0.0 
7 2012-12-01 00:36:00  1.0 
8 2012-12-01 00:42:00  0.0 
9 2012-12-01 00:48:00  0.8 
10 2012-12-01 00:54:00  0.2 

任何幫助嗎？ 預先感謝您

Answer 1

您可以檢查as.integer(format(x, "%S") == "59")，當轉換成整數將成爲無論是1或0，你可以方便地添加到x因爲POSIXct是幾秒鐘（通常1970-01-01措施：00： 00:00或在某些情況下，任意來源）。

x = structure(c(1354342319, 1354343040), class = c("POSIXct", "POSIXt"), tzone = "") 
x 
#[1] "2012-12-01 00:11:59 CST" "2012-12-01 00:24:00 CST" 
x + as.integer(format(x, "%S") == "59") 
#[1] "2012-12-01 00:12:00 CST" "2012-12-01 00:24:00 CST"