去本月的第一天

假设我们想要去一个月的第一天:

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

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