進度確認 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")

第 4 章圖 3.003

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

第 4 章圖 3.004

第 4 章圖 3.006

第 4 章圖 3.007

第 4 章圖 3.008

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)

第 4 章圖 3.009

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

第 4 章圖 3.010

R 的探索式資料分析