I can plot the state of Louisiana just fine...
require(ggplot2)
require(ggmap)
require(maps)
LA <- map_data("state", region="louisiana")
ggplot(LA, aes(x=long, y=lat))+geom_polygon()
Now, I have data on how many sales calls were made to particular cities in LA. How would I add a point for each city where a sales call was made to the plot?
salesCalls <- data.frame(State=rep("louisiana",5),
City=c("Baton Rouge", "New Orleans", "Shreveport", "Lafayette", "Mandeville"),
Calls=c(10,5,8,13,2))
salesCalls
State City Calls
1 louisiana Baton Rouge 10
2 louisiana New Orleans 5
3 louisiana Shreveport 8
4 louisiana Lafayette 13
5 louisiana Mandeville 2
require(ggplot2)
require(ggmap)
require(maps)
LA <- map_data("state", region="louisiana")
salesCalls <- data.frame(State=rep("louisiana",5),
City=c("Baton Rouge", "New Orleans", "Shreveport",
"Lafayette", "Mandeville"),
Calls=c(10,5,8,13,2))
salesCalls <- cbind(geocode(as.character(salesCalls$City)), salesCalls)
salesCalls
# lon lat State City Calls
# 1 -91.14032 30.45828 louisiana Baton Rouge 10
# 2 -90.07153 29.95107 louisiana New Orleans 5
# 3 -93.75018 32.52515 louisiana Shreveport 8
# 4 -92.01984 30.22409 louisiana Lafayette 13
# 5 -90.06563 30.35825 louisiana Mandeville 2
ggplot(LA, aes(x=long, y=lat)) +
geom_polygon() +
coord_map() +
geom_point(data=salesCalls, aes(x=lon, y=lat, size=Calls), color="orange")
On a Google Map:
ggmap(get_map(location = 'Louisiana', zoom = 7)) +
geom_point(data=salesCalls, aes(x=lon, y=lat, size=Calls), color="orange")
If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With