Построить график разброса продажной цены относительно жилой площади для двух групп

Question

Это домашнее задание на R. Профессор никогда ничего не объяснял, просто дал нам примеры кодов. Я не могу получить этот участок с двумя разными значениями фактора жилой площади. И я не очень понимаю, почему термин взаимодействия включен.

"Построить график разброса продажной цены относительно жилой площади для двух групп: Central Air = 1 и = 0. Объясните, почему термин взаимодействия включен. "

Я работаю с моделью множественной регрессии, включая жилую зону, «Central Air» (индикатор переменная кодируется как 1, если дом имеет центральное кондиционирование, 0 в противном случае), и их взаимодействие. Я предсказываю цену. Я сделал все из своего проекта, но я не знаю, как построить это.

 m2<-lm(Price~Living.Area+Central.Air+Living.Area*Central.Air,data=hp)

 summary(m2);

Графики ниже - те, которые я пробовал

plot(Price~Living.Area,data=hp,col="red",Central.Air=1,xlab="Living Area",ylab="Price");

plot(Price~Living.Area,data=hp,col="blue",Central.Air=0,xlab="Living Area",ylab="Price");

Я ничего не ожидаю, я не знаю, как это должно выглядеть.

Answer 1

Помогает ли это?

living.area <- rnorm(n=100, 2, .5)
group = sample(rep(c(1,2), times = 50), size = 100, replace = FALSE)
#simulate an interaction
Price <- 10 + group*living.area + rnorm(n = 100, 0, 1)
data <- data.frame(list(Price = Price, 
                        Living_Area = living.area,
                        Air = group))
head(data)
Price Living_Area Air
1 12.02447    2.200390   1
2 12.70794    1.843377   1
3 14.56353    1.985669   2
4 14.68870    2.039686   2
5 12.35291    1.165078   2
6 13.52741    2.228445   2

Вот это сюжет

plot(data$Living_Area ,data$Price, col = data$Air+1)
abline(lm(Price ~ Living_Area, data = data[data$Air == 1,]),col=2,lwd=3)
abline(lm(Price ~ Living_Area, data = data[data$Air == 2,]),col=3,lwd=3)
abline(lm(Price ~ Living_Area, data = data),lty = 2)