签到 2

R 中的探索性数据分析

Andrew Bray

Assistant Professor, Reed College

垃圾邮件与图片

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

ch4_3.003.png

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

ch4_3.004.png

ch4_3.006.png

ch4_3.007.png

ch4_3.008.png

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

levels(email$zero)

NULL

email$zero <- factor(email$zero, 
  levels = c("TRUE", "FALSE"))

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

ch4_3.009.png

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

ch4_3.010.png

R 中的探索性数据分析