去本月的第一天

假設我們想要去一個月的第一天:

date <- as.Date("2017-01-20")

> as.POSIXlt(cut(date, "month"))
[1] "2017-01-01 EST"