---
title: Practice Class 27
date: January 11, 2021
author: Andres Aravena, Ph.D.
output: 
  html_document: 
    self_contained: no
---

```{r message=FALSE, warning=FALSE}
library(readr)
library(dplyr)
library(ggplot2)
students <- read_delim("students2018-2020-tidy.tsv",
"\t", escape_double = FALSE, 
    col_types = cols(
        sex = col_factor(levels = c("Male", "Female")), 
    handedness = col_factor(levels = c("Left", "Right"))),
trim_ws = TRUE)
knitr::opts_chunk$set(dev="svg")
```

```{r plot1, dev="png"}
ggplot(students, aes(x=height_cm, y=weight_kg)) + geom_point()
```

```{r plot2, dev="svg"}
ggplot(students, aes(x=height_cm, y=weight_kg)) + geom_point()
```

```{r plot3, dev="jpg"}
ggplot(students, aes(x=height_cm, y=weight_kg)) + geom_point()
```

```{r plot4}
ggplot(students, aes(x=height_cm, y=weight_kg)) + geom_point()
```
