Exploratory analysis

Data visualization, part 1. Code for Quiz 7.

  1. Load the R packages we will use

Question: modify slide 34

ggplot(faithful) + 
  geom_point(aes(x= eruptions, y= waiting, color = waiting > 57))

Question: modify intro-slide 35

ggplot(faithful) +
  geom_point(aes(x = eruptions, y = waiting),
             colour = "blueviolet")

Question: Modify intro-slide 36

ggplot(faithful) +
  geom_histogram(aes(x = waiting))

Question: Modify geom-ex-1

ggplot(faithful) +
  geom_point(aes(x = eruptions, y = waiting), 
             shape = "plus", size = 1, alpha = 0.4)

Question: Modify geom-ex-2

ggplot(faithful) +
  geom_histogram(aes(x = eruptions, fill = "time" > 3.2))

Question: Modify stat-slide-40

ggplot(mpg) +
  geom_bar(aes(x = manufacturer))

Question: Modify stat-slide-41

mpg_counted <- mpg %>% 
  count(manufacturer, name = 'count')
ggplot(mpg_counted) +
  geom_bar(aes(x = manufacturer, y = count), stat = 'identity')

Question: Modify stat-slide-43

ggplot(mpg) + 
  geom_bar(aes(x = manufacturer, y = after_stat(100 * count / sum(count))))

Question: Modify answer to stat-ex-2

ggplot(mpg) + 
  geom_jitter(aes(x = class, y = hwy), width = 0.2) +
  stat_summary(aes(x = class, y = hwy), geom = "point", 
               fun = "median", color = "purple3", 
               shape = "diamond", size = 4)