Week 4: Apply 3

Import data

# excel file
data <- read_excel("data/myData.xls")

## New names:
## • `` -> `...1`

data

## # A tibble: 10,992 × 11
##     ...1 city          country description location state state_abbrev longitude
##    <dbl> <chr>         <chr>   <chr>       <chr>    <chr> <chr>        <chr>    
##  1     1 Ada           United… "Ada witch… Ada Cem… Mich… MI           -85.5048…
##  2     2 Addison       United… "A little … North A… Mich… MI           -84.3818…
##  3     3 Adrian        United… "If you ta… Ghost T… Mich… MI           -84.0356…
##  4     4 Adrian        United… "In the 19… Siena H… Mich… MI           -84.0175…
##  5     5 Albion        United… "Kappa Del… Albion … Mich… MI           -84.7451…
##  6     6 Albion        United… "A mysteri… Riversi… Mich… MI           -84.7530…
##  7     7 Algoma Towns… United… "On a wind… Hell's … Mich… MI           NA       
##  8     8 Algonac       United… "Morrow Ro… Morrow … Mich… MI           -82.5762…
##  9     9 Allegan       United… "People re… Elks Lo… Mich… MI           -85.8415…
## 10    10 Allegan       United… "Various g… The Gri… Mich… MI           -85.8575…
## # ℹ 10,982 more rows
## # ℹ 3 more variables: latitude <chr>, city_longitude <chr>, city_latitude <chr>

Plot data

data %>%
    
    ggplot(aes(state)) +
    geom_bar()