2

これが私のデータのサブセットです：

Fr         Sig  Code NumDet    Date.Time          Aerial
62  150102 102   15    195 2012-09-14 18:28:00      1
63  150102 102   15    189 2012-09-14 18:32:00      1
64  150102 106   15    213 2012-09-14 18:36:00      1
65  150102 102   15    152 2012-09-14 18:40:00      1
66  150102 105   15    190 2012-09-14 18:46:00      1
67  150102  97   15      4 2012-09-14 18:51:00      2

Aerial1での最初の検出からAerial2での最初の検出までの時間を計算しようとしています。したがって、このデータセットでは23分になります。

バリエーションを試してみdifftimeましたが、空中番号から特定の時間を選択できないようです。

私が試してみました：

a <- difftime(table$Date.Time[2:length(table$Aerial == "1")], 
              table$Date.Time[2:length(table$Aerial == "2")])

しかし、それも近くではありません。

4

1 に答える 1

1

このコマンドを使用してdifftime

difftime(table$Date.Time[table$Aerial == "2"][1],
         table$Date.Time[table$Aerial == "1"][1])

戻ります

Time difference of 23 mins
于 2012-10-31T21:06:31.780 に答える