生成季节性假人

Question

我想创建一个季节性的假人。具体来说，我希望变量在每个六月等于1，否则等于0。我想要存储在mat1 [，2]

中的虚拟变量输出

设置：

start = as.Date("1926-07-01")
end = as.Date("2019-07-01")
dates = seq(from = start, to = end, by = "month")
mat1 <- matrix(nrow =1117, ncol =2)
mat1[,1] = dates

Answer 1

从日期中提取月份，并检查月份是否为“六月”。

data.frame(dates = dates, isJune = +(format(dates, "%m") == "06"))

我们还可以使用regex来确定是否是第六个月

data.frame(dates = dates, isJune = +(grepl(".*-06-.*", dates)))