7: Exploratory-analysis-II

Data visualization, part 2. Code for Quiz 8.

  1. Load the R package we will use.
library(tidyverse)
library(patchwork)  #install before using 
  1. Quiz questions
  1. Pick one of your plots to save as your preview plot. Use the ggsave command at the end of the chunk of the plot that you want to preview.

Question: modify slide 51

ggplot(data = ???) + 
   ???(aes(x = ???, y = ???)) +
   ???(facets = vars(???))

Question: modify facet-ex-2

ggplot(???) + 
  ???(aes(y = ???)) + 
  ???(vars(???), scales = "???", space = "???")

Question: spend_time

To help you complete this question use:

Download the file spend_time.csv from moodle into directory for this post. Or read it in directly:

read_csv("https://estanny.com/static/week8/spend_time.csv")

spend_time  <- read_csv("???")

Start with spend_time

p1  <- spend_time %>% filter(year == "???")  %>% 
ggplot() + 
  ???(???(x = ???, y = ???, ??? = activity)) +
  ???(breaks = seq(0, 6, by = 1)) +
  labs(subtitle = "???", x = NULL, y = NULL)

p1 

Start with spend_time

p2  <- ???  %>% 
ggplot() + 
  geom_col(aes(x = year, y = avg_hours, fill = activity)) +
  ???(subtitle  = "Avg hours per day: 2010-2019", x = NULL, y = NULL) 

p2

Use patchwork to display p1 on top of p2

p_all  <-  ??? / ??? 

???

Start with p_all

p_all_no_legend  <- p_all & theme(??? = 'none')
p_all_no_legend

Start with p_all_no_legend

p_all_no_legend  +
 ???(??? = "How much time Americans spent on selected activities", 
                  ??? = "Source: American Time of Use Survey, https://data.bls.gov/cgi-bin/surveymost?tu")

Question: Patchwork 2

use spend_time from last question patchwork slides

Start with spend_time

p4  <- 
spend_time %>% ???(activity == "???")  %>% 
ggplot() + 
  ???(aes(x = year, y = avg_hours)) ???
  ???(aes(??? = year, ??? = avg_hours)) +
  ???(breaks = seq(2010, 2019, by = 1)) +
  ???(subtitle = "???", x = NULL, y = NULL) 

p4

Start with p4

p5 ???  p4 + ???(ylim = c(0, 6))
p5

Start with spend_time

p6   <- 
 spend_time  %>% 
ggplot() + 
  ???(aes(x = year, y = avg_hours, color = activity, ??? = activity)) +
  ???(aes(x = year, y = avg_hours, color = activity, group = activity)) +
  ???(breaks = seq(2010, 2019, by = 1)) +
  ???(ylim = c(0, 6)) + 
  labs(x = NULL, y = NULL) 

p6

Use patchwork to display p4 and p5 on top of p6

??? p4 | p5 ??? / p6