# Set libPaths.
.libPaths("/Users/HidetakaKo/.exploratory/R/3.3")

# Load required packages.
library(lubridate)
library(tidyr)
library(urltools)
library(stringr)
library(broom)
library(RcppRoll)
library(tibble)
library(dplyr)
library(exploratory)

# Data Analysis Steps
 readRDS("/Users/HidetakaKo/Desktop/question_tags_select_4.rds") %>%
  exploratory::clean_data_frame() %>%
  mutate(CreationDate = as.Date(CreationDate)) %>%
  mutate(ClosedDate = as.Date(ClosedDate)) %>%
  mutate(DeletionDate = as.Date(DeletionDate)) %>%
  mutate(Tag = str_clean(Tag)) %>%
  mutate(Tag = str_to_title(Tag)) %>%
  mutate(Tag = str_trim(Tag)) %>%
  filter(Tag == "Javascript" | Tag == "Python" | Tag == "Java" | Tag == "Ruby" | Tag == "Php" | Tag == "C++" |  Tag  == "C#") %>%
  mutate(CreationDate_wday = wday(CreationDate, label = TRUE)) %>%
  mutate(Weekend = if_else(CreationDate_wday  %in% c("Sun","Sat"),"Weekend","Weekday")) %>%
  group_by(Tag, Weekend, AnswerCount) %>%
  summarize(Tag_n = n())