#Chay Bagan CIS 430 HW2
RidingMowers = read.csv("RidingMowers.csv", header = TRUE)
plot(x = RidingMowers$Lot_Size,
     y = RidingMowers$Income,
     xlab = "Lot Size (in 1000s of sqft)",
     ylab = "Income (in $1000s)",
     pch=16,
     col = ifelse (RidingMowers$Ownership == "Owner",'blue','red'),
     main = "Lot Size vs Income",
     )
legend("topleft",c("Owner","Nonowner"),pch=16,col=c('blue','red'))