In class activity 9/29

In class activity for 9/29

library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──

## ✓ ggplot2 3.3.5     ✓ purrr   0.3.4
## ✓ tibble  3.1.4     ✓ dplyr   1.0.7
## ✓ tidyr   1.1.3     ✓ stringr 1.4.0
## ✓ readr   1.4.0     ✓ forcats 0.5.1

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

commute <- readr::read_rds("~/Downloads/commute.rds")
names(commute)

##  [1] "JWTR"           "transport_type" "avg_time"       "med_time"      
##  [5] "min_time"       "max_time"       "q25_time"       "q75_time"      
##  [9] "n"              "n_missing"      "state"          "state_n"       
## [13] "prop"           "state_name"

com <- commute %>%
  filter(state%in%c("ca","or","ak","wa","id","nv")) %>%
  arrange(state, desc(max_time))

ggplot(com, aes(state, max_time, fill=state)) + 
  stat_summary(fun.y=NULL, geom="bar") + 
  facet_wrap(facets=vars(transport_type))

## Warning: `fun.y` is deprecated. Use `fun` instead.

## Warning: Removed 6 rows containing non-finite values (stat_summary).

## No summary function supplied, defaulting to `mean_se()`

## No summary function supplied, defaulting to `mean_se()`
## No summary function supplied, defaulting to `mean_se()`
## No summary function supplied, defaulting to `mean_se()`
## No summary function supplied, defaulting to `mean_se()`
## No summary function supplied, defaulting to `mean_se()`
## No summary function supplied, defaulting to `mean_se()`
## No summary function supplied, defaulting to `mean_se()`
## No summary function supplied, defaulting to `mean_se()`
## No summary function supplied, defaulting to `mean_se()`
## No summary function supplied, defaulting to `mean_se()`