Harris McGehee harrismcgehee

## label_ends_of_ecdf.Rmd
---
title: "ecdf"
output:
  html_document:
    keep_md: yes
---

```{r}
suppressPackageStartupMessages(library(tidyverse))
```

## circle_map_annotation

# Prep ----
library(ggplot2)
crimes <- data.frame(state = tolower(rownames(USArrests)), USArrests)
crimesm <- reshape2::melt(crimes, id = 1)
states_map <- map_data("state")

# Make your map ------
  map <- ggplot(crimes, aes(map_id = state)) +
    geom_map(aes(fill = UrbanPop), map = states_map) +
	---
	title: "ecdf"
	output:
	html_document:
	keep_md: yes
	---

	```{r}
	suppressPackageStartupMessages(library(tidyverse))
	```

	# Prep ----
	library(ggplot2)
	crimes <- data.frame(state = tolower(rownames(USArrests)), USArrests)
	crimesm <- reshape2::melt(crimes, id = 1)
	states_map <- map_data("state")

	# Make your map ------
	map <- ggplot(crimes, aes(map_id = state)) +
	geom_map(aes(fill = UrbanPop), map = states_map) +