-1

次のようなカテゴリ文字列があります。

categoryVector <- c("1_100_1_2_3")

また、各カテゴリに対応する時間もあります。

timeVector <- c("2013-03-07 05:16:50,617_2013-03-07 05:19:24,984_2013-03-07 05:21:06,002_2013-03-07 05:21:06,833_2013-03-07 05:21:10,713")

カテゴリ 1 と 2 に費やされた時間を計算したい

Time spent in category 1: (Time in 100 - Time in 1) + (Time on 2 - Time on 1)
Time spent in category 2: Time on 3 - Time on 2

200K 以上のレコードに対してこれらの計算を繰り返す必要があります。Rでこれを行う効率的な方法はありますか?

4

1 に答える 1

0 
 inp <- read.table(text=gsub("_", "\n", timeVector), sep=",")
 inp$V1 <- as.POSIXct(inp$V1)
 inp2 <- read.table(text=gsub("_", "\n", categoryVector))

inp$diffs <- c( difftime(inp$V1[-1], inp$V1[-nrow(inp)]), NA)
inp <- cbind(inp,inp2)
                   V1  V2 diffs  V1
1 2013-03-07 05:16:50 617   154   1
2 2013-03-07 05:19:24 984   102 100
3 2013-03-07 05:21:06   2     0   1
4 2013-03-07 05:21:06 833     4   2
5 2013-03-07 05:21:10 713    NA   3
# should probably rename those columns
 tapply(inp$diffs, inp[,4], sum, na.rm=TRUE)
#  1   2   3 100 
#154   4   0 102
于 2013-04-18T18:32:32.920 に答える