#IVMOOC Assignment 3 Code

gistfile1.r

library(plyr)
library(gdata)
library(ggmap)
library(ggplot2)

setwd("/Users/Jake/Documents/MOOCs/IVMOOC")

data <- read.csv("NSF Master LandL.csv")
data.state <-ddply(data, .(state, Latitude, Longitude), summarize, expected_total_amount=sum(expected_total_amount))
 
usa <- get_map(location = 'united states', zoom = 4, color="color", maptype='road')
g <- guide_legend("Amount of Funding (USD)")

ggmap(usa) +
  geom_point(aes(x=Longitude, y=Latitude, show_guide = TRUE, size=expected_total_amount, color=expected_total_amount),data = data.state) + 
  scale_colour_gradient(low="#e7e1ef", high="#dd1c77") +
  guides(colour = g, size = g) +
  theme(legend.position = "bottom") +
  ggtitle("Geocoding of NSF Funding of Engineering Education Research") +
  xlab("Longitude") +
  ylab("Latitude")