Exploratory analysis

A short description of the post.

  1. Load the R package we will use.
  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 34

ggplot(faithful) + 
   geom_point(aes(x = eruptions, y = waiting, 
                  colour = waiting > 76))   

Question: Modify intro-slide 35

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

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 = "triangle", size = 7, alpha =0.5)   

Question: Modify geom-ex-2

ggplot(faithful) + 
   geom_histogram(aes(x = eruptions, fill = eruptions > 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')
ggsave(here::here("_posts/2021-03-28-exploratory-analysis/preview.png"))

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 = "purple", 
  shape = "asterisk", size = 7 )