在 R 中减去日期时如何将日期舍入到该月的第一天

Question

我需要计算当前月份和上个月之间的差异。 我这样做

library(lubridate)
last_month <- Sys.Date() - months(1)

结果

> last_month
[1] "2022-12-04"

这是正确的答案，但我需要接收日期始终从第一天开始，例如"2022-12-01" 。

也就是说，四舍五入到该月的第一天？

例如，当我在 2 月 4 日执行此操作时，结果将是"2023-01-04" ，但我需要它是"2023-01-01" 。

像这样减去日期时如何将日期四舍五入到该月的第一天？ 感谢您的帮助

Answer 1

您可以使用基于月份的floor_date的lubridate ，如下所示：

library(lubridate)
last_month <- Sys.Date() - months(1)
floor_date(last_month, "month")
#> [1] "2022-12-01"

^{创建于 2023-01-04，使用reprex v2.0.2}

Answer 2

您可以使用format ，即

format(Sys.Date() - months(1), '%Y-%m-01')
#[1] "2022-12-01"