Pie_Charts.Rmd

---
title: "R Notebook"
output: html_notebook
---
This portion works
[ggplot pie chart](http://www.sthda.com/english/wiki/ggplot2-pie-chart-quick-start-guide-r-software-and-data-visualization)
```{r}
library(ggplot2)
library(scales)

bp<- ggplot(washington_crimes, aes(x="Crime", y=Count, fill=Crime))+
geom_bar(width = 1, stat = "identity")
bp


pie <- bp + coord_polar("y", start=0) + scale_fill_brewer(palette="Paired")
pie
```

This portion still has issues
```{r}
blank_theme <- theme_minimal()+
  theme(
  axis.title.x = element_blank(),
  axis.title.y = element_blank(),
  panel.border = element_blank(),
  panel.grid=element_blank(),
  axis.ticks = element_blank(),
  plot.title=element_text(size=14, face="bold")
  )

pie +  blank_theme +
  theme(axis.text.x=element_blank()) +
  geom_text(aes(y = Count/10 + c(0, cumsum(Count)[-length(Count)]), 
            label = percent(Count/100)), size=5)
```