5 秒ごとに 1 週間のデータが読み取られます。データの例を以下に示します。
9/1/2012 00:00:00 1
9/1/2012 00:00:05 2
9/1/2012 00:00:10 3
毎日の時間平均を計算したい。次に、さまざまな日付を表す線で「1 時間あたりの平均読み取り値と時間」の複数線プロットを作成します。
ここにあるのは週平均です
data$date = as.POSIXct(strptime(data$date,
format = "%d/%m/%Y %H:%M","GMT"))
means <- aggregate(data["nox"], format(data["date"],"%Y-%U"),
mean, na.rm = TRUE)
1 日平均では、
data$date = as.POSIXct(strptime(data$date,
format = "%d/%m/%Y %H:%M","GMT"))
means <- aggregate(data["nox"], format(data["date"],"%Y-%j"),
mean, na.rm = TRUE)
毎日の時間平均を計算する方法は誰でも知っています。