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

また、フォーマット関数を使用した1行：

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

Answer 3

lubridatefloor_dateはそれを日付に保ちます

library(lubridate)

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

Answer 4

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

Answer 5

使用するlubridate（、、、、などでもsec機能し ます）minhourmonyear

library(lubridate)

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

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