This map plots grocery stores with at least 30 employees, as of 2008. The map begins with a black and white Google terrain map and plots locations by latitude and longitude coordinates. I am working on getting more current data, but I can say that the food deserts haven’t changed much.
Here’s the code I used. This requires the ggmap library.
qmap(“philadelphia”, zoom = 12, maptype=”terrain”, color=”bw”) +
geom_point(data=grocer, aes(x=long, y=latitude), colour=”blue”, alpha=.9,
size=4) +
labs(x=””, y=””, title=”Large Grocery Stores in 2008″) +
theme(plot.title = element_text(size=rel(1.8), face=”bold”, vjust=1.5,
family=”Times”), axis.ticks=element_blank(), axis.text.x=element_blank(),
axis.text.y=element_blank())
