四分之一假人的線性回歸

Question

我正在嘗試對以下數據進行線性回歸

Power<-mutate(Power,Year=format(Date,"%Y"),Quarter=quarters(Date),Month=format(Date,"%m"))
head(Power)
       Date    YY    XX  Year    Quarter
2007-01-01     NA     NA 2007      Q1
2007-01-02     NA     NA 2007      Q1
2007-01-03  55.90  71.40 2007      Q1
2007-01-04  55.25  70.75 2007      Q1

該模型是

lm(YY~XX+as.factor(Quarter,ref="Q1"),data=Power)

這很好。 但是，它會自動為三個季度創建三個假人。 有沒有辦法只包含一個假人，例如在該模型中的Q2？

Answer 1

可以說，最常見的方法是使用I()創建一個二分變量。

lm(YY ~ XX + I(Quarter=="Q2"), data=Power)

這包括模型中的二進制預測變量，當Quarter=="Q2"時為1，否則為0。

Answer 2

最簡單的方法是使用所需信息創建新變量。

Power$Q2dummy <- 0
Power$Q2dummy[which(Power$Quarter == 'Q2')] <- 1
lm(YY~XX+Q2dummy,data=Power)

但是，很難說，因為您沒有提供數據甚至是摘要（什么是變量Quarter？我猜有4個狀態的因子？）。

Answer 3

一種可能是使用ifelse(rule, if TRUE, if FALSE)命令：

例如：

Power$Q2dummy <- ifelse(Power$Quarter == "Q2",1,0)
lm(YY~XX+Q2dummy,data=Power)