r - 将日期中的月份更改为第一天 (01)

Question

我想在Date当前月份的开始日期（01）中设置月份中的某天。现在我使用以下内容：

currentDate <- Sys.Date()  #for getting current system date eg:2012-11-06
formatDate <- format(currentDate, "%Y-%m")  #it return 2012-11
startDate <- as.Date(paste(formatDate, "-01", sep = ""))
# 2012-11-01 

有什么简单的方法可以做到这一点？

Answer 1

是的，有一个使用函数的单行代码cut：

cut(Sys.Date(), "month")
[1] 2012-11-01
Levels: 2012-11-01

Answer 2

还有一行使用格式功能：

format(Sys.Date(),"01-%m-%Y")
[1] "01-06-2017"

Answer 3

lubridate'sfloor_date保持日期

library(lubridate)

floor_date(Sys.Date(), "month")

Answer 4

as.Date(paste0(format(Sys.Date(), "%Y-%m"), "-01"))

Answer 5

使用lubridate（也与sec, min, hour,mon等一起使用year ）

library(lubridate)

dt <- Sys.Date()
day(dt) <- 01

dt
# [1] "2018-01-01"