visualization bonus

The “Viz” Bonus opportunity allows you to earn up to an additional 10 points in this course.

Create up to 5 data visualizations from the ma206data package to earn up to 2 points a piece. Charts should be of different types (recommended: geom_point(), geom_bar(), geom_dotplot(), geom_histogram(), etc). Consult you book for information about the dataset you choose and use appropriate labels so that an audience can easily understand the variables and question the data addresses. Create all in a single .Rmd script (details to follow) and submit the html output to your instructor before the TEE

Resources to consult:

• ggplot cheatsheet
• ggplot flipbook

How to get ma206data package:

• in console -> install.package("remotes")
• in console -> remotes::install_github("EvaMaeRey/ma206data")

Example 1

library(tidyverse)
library(ma206data)
# Example of two plots in script; your plots should have labs(title = ?) clarifying chart contents ->   
head(ma206data::chap5_Smoking) # preview a few rows of raw data

## # A tibble: 6 × 2
##   parents child
##   <chr>   <chr>
## 1 smokers girl 
## 2 smokers girl 
## 3 smokers girl 
## 4 smokers girl 
## 5 smokers girl 
## 6 smokers girl

ggplot(data = ma206data::chap5_Smoking) +
  aes(x = parents) +
  geom_bar() +
  aes(fill = child)

ggplot(data = ma206data::chap5_Smoking) +
  aes(x = parents) +
  geom_bar(position = "fill") +
  aes(fill = child)

Example 2

library(tidyverse)
library(ma206data)
# Example of two plots in script; your plots should have labs(title = ?) clarifying chart contents ->   
head(ma206data::chap10_HeightHaircut) # preview a few rows of raw data

## # A tibble: 6 × 2
##   height haircut
##    <dbl>   <dbl>
## 1     69      30
## 2     68      22
## 3     66      10
## 4     76      18
## 5     71      21
## 6     73      10

ggplot(data = ma206data::chap10_HeightHaircut) +
  aes(x = height, y = haircut) +
  geom_point(alpha = .4)