日付を丸める関数はlubridateパッケージを見よ

いつも忘れるのでメモ。
round_date()は気をきかせすぎな気もするのでfloor_date()をとりあえず使っていこう。

library("lubridate")
> floor_date(as.Date("2017-03-22"),"month")
[1] "2017-03-01"
> round_date(as.Date("2017-03-22"),"month")
[1] "2017-04-01"