7

自動的にログに記録されたデータを生成する実験を行っています。ソフトウェアは、形式のタイムスタンプを生成します41149.014850。この 10 進数のタイムスタンプを に変換したいと思い28.08.2012 00:21:23ます。Rでこれを最もエレガントに行うにはどうすればよいですか?

関数と原点を指定しstrsplitた関数、関数を使ってみました。しかし、役に立たない。関数とでアクセスできる 2 つの数値にタイムスタンプを分割する際に問題があります。as.Datetimesas.Datetimes

ここにいくつかのデモコードがあります:

myDatetime <- c(41149.004641, # 28.08.2012  00:06:41
41149.009745, # 28.08.2012  00:14:02
41149.014850, # 28.08.2012  00:21:23
41149.019954) # 28.08.2012  00:28:44

## not working out for me
Dat.char <- as.character(myDatetime)
date.split <- strsplit(Dat.char, split = "\\.")
## how to proceed from here, if it is a good way at all
4

2 に答える 2

10

日付は Excel のような日付形式 (1900 年 1 月 1 日からの日数) であるため、R 日付形式に変換する必要があります。その後、日時形式に変換できます ( POSIXct)。

# first convert to R Date
datetime <- as.Date(myDatetime-1, origin="1899-12-31")
# now convert to POSIXct
(posixct <- .POSIXct(unclass(datetime)*86400, tz="GMT"))
# [1] "2012-08-28 00:06:40 GMT" "2012-08-28 00:14:01 GMT"
# [3] "2012-08-28 00:21:23 GMT" "2012-08-28 00:28:44 GMT"
# times are sometimes off by 1 second, add more digits to seconds to see why
options(digits.secs=6)
posixct
# [1] "2012-08-28 00:06:40.9823 GMT" "2012-08-28 00:14:01.9680 GMT"
# [3] "2012-08-28 00:21:23.0399 GMT" "2012-08-28 00:28:44.0256 GMT"
# round to nearest second
(posixct <- round(posixct, "sec"))
# [1] "2012-08-28 00:06:41 GMT" "2012-08-28 00:14:02 GMT"
# [3] "2012-08-28 00:21:23 GMT" "2012-08-28 00:28:44 GMT"
# now you can convert to your desired format
format(posixct, "%d.%m.%Y %H:%M:%S")
# [1] "28.08.2012 00:06:41" "28.08.2012 00:14:02"
# [3] "28.08.2012 00:21:23" "28.08.2012 00:28:44"
于 2012-08-28T15:09:45.187 に答える
3

これは近いです: 数字は、1900 年 1 月 1 日に近い日付からの秒数を示します。

as.POSIXct(x*3600*24, origin=as.Date("1900-01-01")-2, tz="UTC")
[1] "2012-08-28 01:06:40 BST" "2012-08-28 01:14:01 BST" "2012-08-28 01:21:23 BST"
[4] "2012-08-28 01:28:44 BST"

そこにはまだタイムゾーンのオフセットがあります。

于 2012-08-28T15:12:00.903 に答える