library(tidyverse)
library(readxl)
library(sf)
library(devtools)
devtools::install_github('hrbrmstr/albersusa')
Skipping install of 'albersusa' from a github remote, the SHA1 (cf69f038) has not changed since last install.
  Use `force = TRUE` to force installation
library(albersusa)
library(viridis)

Read in the Exercise data from the Excel file, and read in the US map data.

exercise <- read_excel("week16_exercise.xlsx")

us_laea <- usa_sf("laea")

Create the map.

us_laea %>% 
  rename(state = name) %>%           # rename 'name' to 'state' so they are named the same in both 
  inner_join(exercise) %>%           # join exercise data with states map data
  rename(Percent = adults) %>%       # rename the variable that will be the fill
  ggplot() +                         # create graph
  geom_sf(aes(fill = Percent)) +     # color states with Percent
  scale_fill_viridis() +             # use the viridis colors
  ggtitle("Percent of People Meeting Federal Exercise Guidelines") +        # title
  coord_sf(datum = NA) +             # remove coordinates
  theme_minimal()                    # remove background
Joining, by = "state"
Column `state` joining factor and character vector, coercing into character vector

LS0tCnRpdGxlOiAiRXhlcmNpc2UgaW4gdGhlIFVTIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpgYGB7cn0KbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkocmVhZHhsKQpsaWJyYXJ5KHNmKQpsaWJyYXJ5KGRldnRvb2xzKQpkZXZ0b29sczo6aW5zdGFsbF9naXRodWIoJ2hyYnJtc3RyL2FsYmVyc3VzYScpCmxpYnJhcnkoYWxiZXJzdXNhKQpsaWJyYXJ5KHZpcmlkaXMpCmBgYAoKUmVhZCBpbiB0aGUgRXhlcmNpc2UgZGF0YSBmcm9tIHRoZSBFeGNlbCBmaWxlLCBhbmQgcmVhZCBpbiB0aGUgVVMgbWFwIGRhdGEuCmBgYHtyfQpleGVyY2lzZSA8LSByZWFkX2V4Y2VsKCJ3ZWVrMTZfZXhlcmNpc2UueGxzeCIpCgp1c19sYWVhIDwtIHVzYV9zZigibGFlYSIpCmBgYAoKQ3JlYXRlIHRoZSBtYXAuCmBgYHtyfQp1c19sYWVhICU+JSAKICByZW5hbWUoc3RhdGUgPSBuYW1lKSAlPiUgICAgICAgICAgICMgcmVuYW1lICduYW1lJyB0byAnc3RhdGUnIHNvIHRoZXkgYXJlIG5hbWVkIHRoZSBzYW1lIGluIGJvdGggCiAgaW5uZXJfam9pbihleGVyY2lzZSkgJT4lICAgICAgICAgICAjIGpvaW4gZXhlcmNpc2UgZGF0YSB3aXRoIHN0YXRlcyBtYXAgZGF0YQogIHJlbmFtZShQZXJjZW50ID0gYWR1bHRzKSAlPiUgICAgICAgIyByZW5hbWUgdGhlIHZhcmlhYmxlIHRoYXQgd2lsbCBiZSB0aGUgZmlsbAogIGdncGxvdCgpICsgICAgICAgICAgICAgICAgICAgICAgICAgIyBjcmVhdGUgZ3JhcGgKICBnZW9tX3NmKGFlcyhmaWxsID0gUGVyY2VudCkpICsgICAgICMgY29sb3Igc3RhdGVzIHdpdGggUGVyY2VudAogIHNjYWxlX2ZpbGxfdmlyaWRpcygpICsgICAgICAgICAgICAgIyB1c2UgdGhlIHZpcmlkaXMgY29sb3JzCiAgZ2d0aXRsZSgiUGVyY2VudCBvZiBQZW9wbGUgTWVldGluZyBGZWRlcmFsIEV4ZXJjaXNlIEd1aWRlbGluZXMiKSArICAgICAgICAjIHRpdGxlCiAgY29vcmRfc2YoZGF0dW0gPSBOQSkgKyAgICAgICAgICAgICAjIHJlbW92ZSBjb29yZGluYXRlcwogIHRoZW1lX21pbmltYWwoKSAgICAgICAgICAgICAgICAgICAgIyByZW1vdmUgYmFja2dyb3VuZApgYGAKCg==