plot(hackdat[brand=="Whole Foods Market",.(daily_traffic_avg,home_air_distance_kilometers_median)],pch=19,col='green4',xlab="Avg traffic",ylab="Median home distance")
points(hackdat[brand=="Trader Joe's",.(daily_traffic_avg,home_air_distance_kilometers_median)],pch=19,col='red')
points(hackdat[brand=="Sprouts Farmers Market",.(daily_traffic_avg,home_air_distance_kilometers_median)],pch=19,col='blue')
legend('topright',pch=19,legend=c("WF","TJ","S"),col=c('green4','red','blue'))