Check-in 2

Exploratory Data Analysis in R

Andrew Bray

Assistant Professor, Reed College

Spam and images

email %>%
  mutate(has_image = image 0) %>%
  ggplot(aes(x = as.factor(has_image), fill = spam)) +
  geom_bar(position = "fill")

ch4_3.003.png

Exploratory Data Analysis in R

Spam and images

email %>%
  mutate(has_image = image 0) %>%
  ggplot(aes(x = spam, fill = has_image)) +
  geom_bar(position = "fill")

ch4_3.004.png

Exploratory Data Analysis in R

Ordering bars

ch4_3.006.png

Exploratory Data Analysis in R

Ordering bars

ch4_3.007.png

Exploratory Data Analysis in R

Ordering bars

ch4_3.008.png

Exploratory Data Analysis in R

Ordering bars

email <- email %>%
  mutate(zero = exclaim_mess == 0)

levels(email$zero)
NULL
email$zero <- factor(email$zero, 
  levels = c("TRUE", "FALSE"))
Exploratory Data Analysis in R

Ordering bars

email %>%
  ggplot(aes(x = zero)) +
  geom_bar() +
  facet_wrap(~spam)

ch4_3.009.png

Exploratory Data Analysis in R

Ordering bars..

email %>%
  ggplot(aes(x = zero)) +
  geom_bar() +
  facet_wrap(~spam)

ch4_3.010.png

Exploratory Data Analysis in R

Let's practice!

Exploratory Data Analysis in R

Preparing Video For Download...