日付の操作について、ご紹介します。 lubridate、RcppBDTライブラリがあります。
年・月・日を取得する(基本関数で)
date <- as.Date("2017-05-08") year <- substr(date,1,4) month <- substr(date,6,7) day <- substr(date,9,10)
年・月・日を取得する(lubridateライブラリ)
library(lubridate) year <- year(date) month <- month(month) date <- day(month)
月初にする(基本関数で)
paste(year,month,day,sep="-")
月初にする(lubridateライブラリ)
date - day(date) + 1
第3水曜日を取得(RcppBDTライブラリ)
library(RcppBDT) getNthDayOfWeek(third, Wed, month(d), year(d)),date)