HW02

#1. Pick a dataset
library(datasets)
data("women")

#2. The data description The data gives the average heights and weights for American women aged 30-39

#3. 
summary(women)

##      height         weight     
##  Min.   :58.0   Min.   :115.0  
##  1st Qu.:61.5   1st Qu.:124.5  
##  Median :65.0   Median :135.0  
##  Mean   :65.0   Mean   :136.7  
##  3rd Qu.:68.5   3rd Qu.:148.0  
##  Max.   :72.0   Max.   :164.0

4. The mean height for American women aged 30-39 is 65 and the mean weight is 136.7333333.

mean(women$height)

## [1] 65

mean(women$weight)

## [1] 136.7333

#5. 
library(tidyverse)

## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --

## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.4     v dplyr   1.0.7
## v tidyr   1.2.0     v stringr 1.4.0
## v readr   2.0.1     v forcats 0.5.1

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

ggplot(data=women) +
  geom_point(mapping=aes(x=height, y=weight))