Pie Charts are Evil Project

library(ggplot2)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

commute <- readRDS("commute.rds")
# a subset of states for class
states <- c("or", "ak", "ca", "wa", "id", "nv")
commute_nw <- filter(commute, state %in% states)

ggplot(commute_nw) +
  geom_bar(aes(x = "", y = prop, fill = factor(transport_type)), 
    stat = "identity", width = 1) +
  facet_wrap(~ state_name) +
  coord_polar(theta = "y") +
  theme_minimal(18) + 
  xlab("") + ylab("") +
  theme(axis.text = element_blank())

commute_nw_bicycle <- filter(commute, state %in% states) %>%
  filter(transport_type == "Bicycle")

ggplot(commute_nw_bicycle, aes(x=state)) +
  geom_bar(aes(fill=prop))

ggplot(commute_nw_bicycle, aes(x = "", y = prop, fill = factor(transport_type))) +
  geom_bar(stat = "identity", width = 1) +
  facet_wrap(~ state) +
  theme_minimal(18) + 
  xlab("") + ylab("") +
  theme(axis.text = element_blank())