月をまたいでいる場合の月ごとの合計を算出

Question

Rを使っているものです。

現在扱っている以下のようなデータを扱っています。

ID 使用日　 使用月 使用期間(day)
1 2020-01-01 2020-01 4
2 2020-01-01 2020-01 40
3 2020-12-01 2020-12 40

このデータから、月ごとの使用日数の合計を算出したいです。
具体的には以下のようなデータに加工したいと考えています。

ID 使用日　 使用月 使用期間(day)
1 2020-01-01 2020-01 4
2 2020-01-01 2020-01 31
2 2020-02 9
3 2020-12-01 2020-12 31
3 2021-01 9

IDごとに使用期間が月をまたいだ場合、翌月または翌年の1月に繰り越したいのですが、何か良い方法があるでしょうか？
ご教授いただけると幸いです。

Comments

[KojiDoi]

問題の状況が理解できません。使用日が2020-01-01なのに使用月が2020-02ってどういうこと？

[Y_amemiya]

ご質問ありがとうございます。
紛らわしくなってしまいました。申し訳ないです。
使用月がわかればよいので、使用日は特に変更しなくても大丈夫です。
ですので、新たに追加された行のなかで、使用日はNAでも構いません。

[KojiDoi]

> 使用月がわかればよいので、使用日は特に変更しなくても大丈夫です。

その「使用月」の手がかりになるデータが何一つ見当たらない。31と9という数字をどうやって出しているのですか？ これで良い方法をと言われても誰も答えられないでしょう。

[Y_amemiya]

使用月は使用日の年月をそのままもってきています。
また、「31」は2020-01-01から2020-01-31までの経過日数です。
「9」は使用期間40から1月分の使用期間31を引いて算出しています。

[KojiDoi]

やっと少しわかってきた。「使用日」っていうのは正しくは「使用開始日」だってことですね。
Date型オブジェクトを使えば楽に対処できるんじゃないかと思います。気力が続くようなら後で考えてみましょう。

Answer 1

注目すべき期間の最後の日とその間の日々の月のデータをDate型を活用して割り出し、which()、length()、sapply()を組み合わせて月ごとの日数に変換します。

> startdate <- "2020-01-01"
> day <- 40
> d1 <- as.Date(date1, "%Y-%m-%d")
> d2 <- d1+day-1
> d2
[1] "2020-02-09"
> m <- as.integer(sapply(d1:d2, function(x){format(as.Date.numeric(x, "1970-01-01"), "%m")}))
> m
 [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2
> sapply(min(m):max(m), function(x){length(which(m==x))})
[1] 31  9

考え方としては以上でどうでしょう。
解析相手をデータフレームにしてスクリプト化する部分は考えてみてください。

Comments

[Y_amemiya]

ご返信、誠にありがとうございます！
sapplyでカラムを指定する方法はないでしょうか？

[KojiDoi]

質問の意図を理解できてるか自信ないけど、示したコードのstartdateとかdayとかの定義部分を「カラム」を指し示すものに差し替えればいいんじゃないですか？

Answer 2

X月のデータを全て取り出して、それぞれのレコードの使用日数で合計を出せばいいのではないでしょうか。