-1

以下のようなデータセットがあります。

money   date1    date2
"300"  "10/30 " " 11/1" 
"400"  "10/28 " " 10/31"
"360"  "10/28 " " 10/30"
"440"  "10/25 " " 10/28"
"620"  "10/21 " " 10/28"

最初の行で 10/30、10/31、11/1 などの 2 つの日付の間の日数を抽出したいと考えています。さらに、私のコードは、抽出された各日に番号を割り当てる必要があります。この数値は、金額/(日数) である必要があります。例として、10/30、10/31、および 11/1 と 300/3 (つまり = 100)、300/3,300/3 をそれぞれ取得したいと思います。誰かこれについて何か考えがありますか？

4

1 に答える 1

1

これにより、期間中の毎日の合計が得られます

data$date1<-as.Date(paste(data$date1,"/2012"),  "%m/%d/%Y")
data$date2<-as.Date(paste(data$date2,"/2012"),  "%m/%d/%Y")
data$perday<-with(data, money/(date2-date1))
period <- as.Date(min(data$date1):max(data$date2), origin = "1970-01-01")
sum <- sapply(period, function(x) sum(data[x >= data$date1 & x <= data$date2, 'perday']))
sumperday<-as.data.frame(period, sum)
于 2012-11-15T01:06:43.747 に答える