take_2

---

title: "Read Me Doc Edit for Take 2" author: "Laura Lynch" date: 2019-09-14 output: html_document

library(tidyverse)

The purpose of this file is to present a couple of basic plots using ggplot.

First we create a dataframe containing variables for our plots.

set.seed(1234)

plot_df = tibble(
  x = rnorm(1000, sd = .5),
  y = 1 + 2 * x + rnorm(1000)
)

First we show a histogram of the x variable.

ggplot(plot_df, aes(x = x)) + geom_histogram()

Next we show a scatterplot of y vs x.

ggplot(plot_df, aes(x = x, y = y)) + geom_point()