1

ミリ秒データのデータセットがあり、次のコードを使用して日付/時刻に変換しました。

> cl1$date <- strptime(cl1[,1], "%Y-%m-%d %H:%M:%OS")
> head(cl1$date)

[1] "2012-06-06 10:30:00.4" "2012-06-06 10:30:00.5" "2012-06-06 10:30:00.6"
[4] "2012-06-06 10:30:00.7" "2012-06-06 10:30:00.8" "2012-06-06 10:30:00.9"
...    
[71935] "2012-06-27 10:59:55.28" "2012-06-27 10:59:55.38" "2012-06-27 10:59:55.48"
[71938] "2012-06-27 10:59:55.58" "2012-06-27 10:59:55.68" "2012-06-27 10:59:55.78"

しかし、今はそれらを転送したいです"2012-06-27 10:59:55.28"（"2012-06-27 10:59:55.3"つまり、ミリ秒の10進数のみ）。変更するにはどうすればよいですか？

4

1 に答える 1

2 
ttt<-as.POSIXlt("2012-06-27 10:59:55.28")

options(digits.secs=1)
ttt
[1] "2012-06-27 10:59:55.2"

options(digits.secs=2)
ttt
[1] "2012-06-27 10:59:55.28"

ttt$sec<-round(ttt$sec,1)
ttt
[1] "2012-06-27 10:59:55.3"

as.character(ttt)
[1] "2012-06-27 10:59:55.3"
于 2012-07-12T19:06:53.393 に答える