1

元のデータ フレームは、複数の個人 (Ring で識別) について、約 2 週間にわたる 1 つの変数 (act、秒単位で測定) の変化を示しています。私の問題は、この変数が日付の変更 (つまり真夜中) にまたがるということです。私はそれを 2 つに分割したいと考えていました: time[i] から真夜中まで、および真夜中から time[i+1] まで。これら 2 つの操作を計算するために必要な変数をいくつか追加しました。

  1. i 番目の行を変更して (日付が変更された場合のみ)、午前 0 時より前に act[i] の部分を取得できるようにします。
  2. 余分な行を 1 つ挿入し (日付が変わる場合のみ)、act[i] の他の部分に割り当てます。

例えば：

ith row: 01-01-2000 23:55:00 act= 360 seconds

i+1th row: 02-01-2000 00:01:00 act= 30 seconds

i+2th row: 02-01-2000 00:01:30 act= 50 seconds

.
.
.

私の目標は取得することです：

ith row: 01-01-2000 23:55:00 act= 300 seconds # modified row

i+1th row: 02-01-2000 00:00:00 act= 60 seconds # inserted row

i+2th row: 02-01-2000 00:01:00 act= 30 seconds # previously row i+1th

i+3th row: 02-01-2000 00:01:30 act= 30 seconds #previously row i+2th

.
.
.

各個人 (リング) に関連付けられたデータは、異なる期間に及ぶため、考慮すべきではない個人間の日付の変更が生じます。以下は、個人 (Ring) 内および個人 (Ring) と次のコードの間の日付の変更を示す ~ 90000 行のデータフレーム (xact) の選択です。

       Ring              time  act  wd     date    clock             timepos     timemn actmn   jul
156 6106933 09/06/11 21:37:45  267 dry 09/06/11 21:37:45 2011-06-09 21:37:45 2011-06-10  8535 15134
157 6106933 09/06/11 21:42:12 3417 wet 09/06/11 21:42:12 2011-06-09 21:42:12 2011-06-10  8268 15134
158 6106933 09/06/11 22:39:09   51 dry 09/06/11 22:39:09 2011-06-09 22:39:09 2011-06-10  4851 15134
159 6106933 09/06/11 22:40:00 7317 wet 09/06/11 22:40:00 2011-06-09 22:40:00 2011-06-10  4800 15134
160 6106933 10/06/11 00:41:57   24 dry 10/06/11 00:41:57 2011-06-10 00:41:57 2011-06-11 83883 15135
529 6106933 11/06/11 22:41:57  3177 wet 11/06/11 22:41:57 2011-06-11 22:41:57 2011-06-12  4683 15136
530 6106933 11/06/11 23:34:54     6 dry 11/06/11 23:34:54 2011-06-11 23:34:54 2011-06-12  1506 15136
531 6106933 11/06/11 23:35:00  1779 wet 11/06/11 23:35:00 2011-06-11 23:35:00 2011-06-12  1500 15136
532 6106933 12/06/11 00:04:39   594 dry 12/06/11 00:04:39 2011-06-12 00:04:39 2011-06-13 86121 15137
533 6106933 12/06/11 00:14:33 18840 wet 12/06/11 00:14:33 2011-06-12 00:14:33 2011-06-13 85527 15137
7024 6134701 24/07/11 15:24:14   6 dry 24/07/11 15:24:14 2011-07-24 15:24:14 2011-07-25 30946 15179
7025 6134701 24/07/11 15:24:20   6 wet 24/07/11 15:24:20 2011-07-24 15:24:20 2011-07-25 30940 15179
7026 6134701 24/07/11 15:24:26 810 dry 24/07/11 15:24:26 2011-07-24 15:24:26 2011-07-25 30934 15179

R = unique(xact$Ring)
for ( m in R ) {
for ( i in 1:nrow(xact) ) {
if( xact$jul[i] < xact$jul[i+1] ) {
   # modify row i (jul= Julian date)
xact[i] <- c( xact$Ring[i], xact$time[i], xact$actmn[i], xact$wd[i], xact$date[i], xact$clock[i], xact$timepos[i], xact$timemn[i], xact$actmn[i], xact$jul[i] )
   # add new row between row i and row i+1
r <- i
newrow <- c( xact$Ring[i], xact$timemn[i], as.numeric(xact$timepos[i+1] - xact$timemn[i]), xact$wd[i], xact$date[i+1], xact$clock[i+1], xact$timemn[i], xact$timemn[i], xact$actmn[i], xact$jul[i+1] )
insertRow <- function( xact, newrow, r ) {
xact[seq( r+1, nrow(xact) + 1), ] <- xact[seq( r, nrow(xact) ), ]
xact[r,] <- newrow
xact
}
}
}
}

既存のコードを適応させようとしました 特定の行インデックスで新しい行をデータフレームに追加しますが、追加されませんか? しかし、次のメッセージが生成されます。

助けていただければ幸いです。

サンティ

4

1 に答える 1