Event Distribution over Weekdays in ICEWS

icewsWeekdays.R

if(!require("devtools")){
  install.packages("devtools")
  library("devtools")
}
install_github("aaboyles/phoxy")
library("phoxy")
library("data.table")
library("lubridate")
library("ggplot2")

icews <- data.table(ingest_icews("rawdata"))

daily <- icews %>%
  group_by(Event.Date) %>%
  summarise(Weekday = wday(ymd(Event.Date), label = TRUE), NumEvents = n()) %>%
  filter(!is.na(Weekday))

perweekdays <- daily %>%
  group_by(Weekday) %>%
  summarise(SumEvents = sum(NumEvents)) %>%
  filter(!is.na(Weekday))

ggplot(perweekdays, aes(Weekday, SumEvents)) +
  geom_bar(stat="identity", aes(fill=Weekday)) +
  labs(y="Total Number of Events", title="Event distribution over Weekdays in ICEWS") +
  theme(legend.position="none")