For my task I have to draw a scatterplot. Which I have done here:

```
plot(airbnb$distance_center,airbnb$price,pch=13,xlab="distance_center",ylab="price",bty="n")
```

Then I have to include regression lines that show the correlation of price and distance_center for all 6 characteristics of my variable "number_of_people"

Here my model:

```
mod<-lm(price~number_people+distance_center)
```

My try:

```
abline(mod$coeff[1]+mod$coeff[3],mod$coeff[2],col=2,lwd=2)
abline(mod$coeff[2]+mod$coeff[3],mod$coeff[2],col=2,lwd=2)
abline(mod$coeff[3]+mod$coeff[3],mod$coeff[2],col=2,lwd=2)
```

it shows 3 increasing ablines but I don't quite understand this way, I am not sure how to include all 6 as even if I increase it only shows 3. And I don't think this is right, has anyone a right idea?