library
(tidyverse)
library
(geojsonio)
library
(RColorBrewer)
library
(rgdal)
us_data <-
geojson_read
(
"us_states_hexgrid.geojson"
,
what =
"sp"
)
us_data@data = us_data@data %>%
mutate
(google_name =
gsub
(
" \\(United States\\)"
,
""
, google_name))
library
(broom)
us_data@data = us_data@data %>%
mutate
(
google_name =
gsub
(
" \\(United States\\)"
,
""
, google_name))
us_data_fortified <-
tidy
(us_data,
region =
"google_name"
)
/holtzy/R-graph-gallery/master/DATA/State_mariage_rate.csv",
sep =
","
, na.strings=
"---"
, header = T)
data %>%
ggplot
(
aes
(x = y_2015)) +
geom_histogram
(bins = 10, fill=
'#69b3a2'
, color=
'white'
)
us_data_fortified <- us_data_fortified %>%
left_join
(. , data, by=
c
(
"id"
=
"state"
))
ggplot
() +
geom_polygon
(data = us_data_fortified,
aes
(
fill = y_2015, x = long, y = lat, group = group)) +
scale_fill_gradient
(trans =
"log"
) +
coord_map
()