4

イベントに登録された人数とともに、開始日と終了日を含むデータ フレームがあります。特定の時間枠 (例: 07:00 - 17:00) 内で各パーティーが存在する時間数を計算したいと思います。

次の例の data.frame を使用すると...

d <- data.frame(startDate = c(as.POSIXct("2011-06-04 08:00:00"), as.POSIXct("2011-06-03 08:00:00"),
                          as.POSIXct("2011-09-12 10:00:00")),
            endDate = c(as.POSIXct("2011-06-06 11:00:00"), as.POSIXct("2011-06-04 11:00:00"),
                        as.POSIXct("2011-09-12 18:00:00")),
            partysize = c(124,442,323))
open <- "07:00"
close <- "17:00"

結果セットを次のようにしたいと思います。

day                     numhours  partysize
2011-06-04                     9        124
2011-06-05                    10        124
2011-06-06                     4        124
2011-06-03                     9        442
2011-06-04                     4        442
2011-09-12                     7        323

注: numhours は、開始時間と終了時間の間に日付が含まれていた時間数です。

よろしくお願いします。 --JT

4

1 に答える 1

3

乱雑で申し訳ありませんが、open と close の代わりに 7 と 17 を使用しました

app.days<-mapply(function(x,y){x+y*60*60*24},as.POSIXct(format(d$startDate,"%Y-%m-%d")),lapply(floor(-(d$startDate-d$endDate)/24),seq,from=0))
start.date<-mapply(function(x,y){pmax(x+7*60*60,y)},app.days,d$startDate)
end.date<-mapply(function(x,y){pmin(x+17*60*60,y)},app.days,d$endDate)
app.hours<-mapply(function(x,y){as.numeric(x-y)},end.date,start.date)
res<-mapply(function(x,y,z){data.frame(day=as.Date(x),numhours=y,partysize=z)},app.days,app.hours,as.list(d$partysize))
res1<-data.frame(day=as.Date(unlist(res[1,]),origin="1970-01-01"),numhours=unlist(res[2,]),partysize=unlist(res[3,]))

> res1
         day numhours partysize
1 2011-06-04        9       124
2 2011-06-05       10       124
3 2011-06-06        4       124
4 2011-06-03        9       442
5 2011-06-04        4       442
6 2011-09-12        7       323

基本的に、各パーティーサイズの滞在日数を特定します。特定の日について、該当する始値と終値を見つけます。次に、終値から始値を引きます。データフレームは最終的に形成されますが、おそらく res<- ステップで作成された可能性があります.....

于 2012-06-14T00:31:16.093 に答える