Chris Riederer dodger487

## floating_green_rectangles.R
library(tidyverse)
library(shades)

n_rectangles <- 10000
rect_scale_factor <- 1.5
canvas_size <- 100
xlims <- c(0, canvas_size)
ylims <- c(0, canvas_size)
height <- 2
width <- 7

## babynames_tweets.R
library(babynames)
library(tidyverse)
library(scales)


theme_set(theme_bw())


################################################################################
## Tweets Day 1
	library(tidyverse)
	library(shades)

	n_rectangles <- 10000
	rect_scale_factor <- 1.5
	canvas_size <- 100
	xlims <- c(0, canvas_size)
	ylims <- c(0, canvas_size)
	height <- 2
	width <- 7
	library(babynames)
	library(tidyverse)
	library(scales)


	theme_set(theme_bw())


	################################################################################
	## Tweets Day 1