日付の操作について、ご紹介します。 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
第３水曜日を取得(RcppBDTライブラリ)
library(RcppBDT) getNthDayOfWeek(third, Wed, month(d), year(d)),date)
