Stats 449 hw0.pdf - install.packages c ggplot2 devtools...

install.packages(c("ggplot2", "devtools", "dplyr", "stringr"))
install.packages(c("maps", "mapdata","ggmap"))
library(ggplot2)
library(ggmap)
library(maps)
library(mapdata)
usa <- map_data("usa")
dim(usa)
head(usa)
#Problem 1: Make a map of the USA and add points for Los Angeles and New York City.
usa <- map_data("usa")
ggplot() + geom_polygon(data = usa, aes(x=long, y = lat, group = group)) +
coord_fixed(1.3)
ggplot() +
geom_polygon(data = usa, aes(x=long, y = lat, group = group),
fill = NA, color = "red") +
coord_fixed(1.3)
gg1 <- ggplot() +
geom_polygon(data = usa, aes(x=long, y = lat, group = group),
fill = "yellow", color = "blue") +
coord_fixed(1.3)
gg1
labs <- data.frame(
long = c(-118.243683, -73.935242),
lat = c(34.052235, 40.7306107),
names = c("Los Angeles", "New York City"),
stringsAsFactors = FALSE
)
gg1 +
geom_point(data = labs, aes(x = long, y = lat), color = "black", size = 3)
#Problem 2
states <- map_data("state")
dim(states)
head(states)
tail(states)
mi_df <- subset(states, region == "michigan")
head(mi_df)
counties <- map_data("county")