Interactive visualization for youtube viewing data!
library(shiny)
library(tidyverse)
data <- read.csv("~/Documents/Intro To Data Science/USvideos.txt")
data_cleaned<- data %>%
filter(category_id %in% c("1", "2", "10", "15", "17", "19", "22", "23", "24", "26", "27", "28")) %>%
mutate(time_string = toString(publish_time)) %>%
mutate(day = substr(time_string, 9, 10)) %>%
mutate(likes = as.numeric(likes, na.rm = TRUE)) %>%
mutate(dislikes = as.numeric(dislikes, na.rm = TRUE))%>%
mutate(like_dislike_ratio = likes / (dislikes + 1))%>%
select(title, category_id, tags, views, likes, comment_count, dislikes, like_dislike_ratio)
data_cleaned <- data_cleaned %>%
mutate(category = ifelse(category_id == "1", "Autos & Vehicles", ifelse(category_id == "2", "Music", ifelse(category_id == "10", "Comedy",
ifelse(category_id == "15", "Science & Technology", ifelse(category_id == "17", "Science & Technology",
ifelse(category_id == "17", "Movies", ifelse(category_id == "19", "Action/Adventure", ifelse(category_id == "22", "Documentary",
ifelse(category_id == "23", "Drama", ifelse(category_id == "24", "Family", ifelse(category_id == "26", "Horror",
ifelse(category_id == "27", "Sci-Fi/Fantasy", "Thriller")))))))))))))
graphdata <- data_cleaned %>%
mutate(category_id_c = as.character(category)) %>%
group_by(category_id_c) %>%
mutate(views = as.numeric(views, na.rm = TRUE)) %>%
mutate(comment_count = as.numeric(comment_count, na.rm = TRUE)) %>%
summarise(totallikes = sum(likes, na.rm = TRUE), totaldislikes = sum(dislikes, na.rm = TRUE),
totalviews = sum(views, na.rm = TRUE), totalcomment = sum(comment_count, na.rm = TRUE),
totalvideos = n(), likes_per_video = totallikes/totalvideos,
dislikes_per_video = totaldislikes/ totalvideos, views_per_video = totalviews/totalvideos,
comment_count_per_video = totalcomment/totalvideos, like_dislike_ratio_per_video = mean(like_dislike_ratio, na.rm = TRUE))
ui <- fluidPage(
title = "Youtube Recommendation",
sidebarLayout(
sidebarPanel(
conditionalPanel(
'input.dataset === "Users Manual"',
helpText("Here is the user's manual")
),
conditionalPanel(
'input.dataset === "Likes"',
selectInput("category1",
"Category",
choices = list("Autos & Vehicles" = "1", "Music" = "2", "Comedy" = "10", "Science & Technology" = "15", "Movies" = "17", "Action/Adventure" = "19",
"Documentary" = "22", "Drama" = "23", "Family" = "24", "Horror" = "26", "Sci-Fi/Fantasy" = "27", "Thriller" = "28")),
checkboxGroupInput("show_vars1","Columns to show:",
list("Title" = "title", "Views" = "views", "Likes" = "likes",
"Comment Count" = "comment_count", "Dislikes" = "dislikes", "Like Dislike Ratio" = "like_dislike_ratio"),
selected = list("title", "likes"))
),
conditionalPanel(
'input.dataset === "Dislikes"',
selectInput("category2",
"Category",
choices = list("Autos & Vehicles" = "1", "Music" = "2", "Comedy" = "10", "Science & Technology" = "15", "Movies" = "17", "Action/Adventure" = "19",
"Documentary" = "22", "Drama" = "23", "Family" = "24", "Horror" = "26", "Sci-Fi/Fantasy" = "27", "Thriller" = "28")),
checkboxGroupInput("show_vars2","Columns to show:",
list("Title" = "title", "Views" = "views", "Likes" = "likes",
"Comment Count" = "comment_count", "Dislikes" = "dislikes", "Like Dislike Ratio" = "like_dislike_ratio"),
selected = list("title", "dislikes"))
),
conditionalPanel(
'input.dataset === "Comment Count"',
selectInput("category3",
"Category",
choices = list("Autos & Vehicles" = "1", "Music" = "2", "Comedy" = "10", "Science & Technology" = "15", "Movies" = "17", "Action/Adventure" = "19",
"Documentary" = "22", "Drama" = "23", "Family" = "24", "Horror" = "26", "Sci-Fi/Fantasy" = "27", "Thriller" = "28")),
checkboxGroupInput("show_vars3","Columns to show:",
list("Title" = "title", "Views" = "views", "Likes" = "likes",
"Comment Count" = "comment_count", "Dislikes" = "dislikes", "Like Dislike Ratio" = "like_dislike_ratio"),
selected = list("title", "comment_count"))
),
conditionalPanel(
'input.dataset === "Views"',
selectInput("category4",
"Category",
choices = list("Autos & Vehicles" = "1", "Music" = "2", "Comedy" = "10", "Science & Technology" = "15", "Movies" = "17", "Action/Adventure" = "19",
"Documentary" = "22", "Drama" = "23", "Family" = "24", "Horror" = "26", "Sci-Fi/Fantasy" = "27", "Thriller" = "28")),
checkboxGroupInput("show_vars4","Columns to show:",
list("Title" = "title", "Views" = "views", "Likes" = "likes",
"Comment Count" = "comment_count", "Dislikes" = "dislikes", "Like Dislike Ratio" = "like_dislike_ratio"),
selected = list("title", "views"))
),
conditionalPanel(
'input.dataset === "Like Dislike Ratio"',
selectInput("category5",
"Category",
choices = list("Autos & Vehicles" = "1", "Music" = "2", "Comedy" = "10", "Science & Technology" = "15", "Movies" = "17", "Action/Adventure" = "19",
"Documentary" = "22", "Drama" = "23", "Family" = "24", "Horror" = "26", "Sci-Fi/Fantasy" = "27", "Thriller" = "28")),
checkboxGroupInput("show_vars5","Columns to show:",
list("Title" = "title", "Views" = "views", "Likes" = "likes",
"Comment Count" = "comment_count", "Dislikes" = "dislikes", "Like Dislike Ratio" = "like_dislike_ratio"),
selected = list("title", "like_dislike_ratio"))
),
conditionalPanel(
'input.dataset === "Ranking Plot"',
selectInput("Vars",
"Ranking Categories of Video according to:",
choices = list("Views Per Video" = "views", "Likes Per Video" = "likes",
"Comment Count Per Video" = "comment_count", "Dislikes Per Video" = "dislikes", "Average Like Dislike Ratio" = "like_dislike_ratio"))
),
conditionalPanel(
'input.dataset === "Distribution of Likes by Categories"',
checkboxGroupInput("Categoreis","Categories to be included in the Visulization",
list("Autos & Vehicles" = "Autos & Vehicles", "Music" = "Music", "Comedy" = "Comedy", "Science & Technology" = "Science & Technology", "Movies" = "Movies", "Action/Adventure" = "Action/Adventure",
"Documentary" = "Documentary", "Drama" = "Drama", "Family" = "Family", "Horror" = "Horror", "Sci-Fi/Fantasy" = "Sci-Fi/Fantasy", "Thriller" = "Thriller"),
selected = ("Autos & Vehicles")
)
)
),
mainPanel(
tabsetPanel(
id = 'dataset',
tabPanel("Users Manual", tags$h2("User's Manual"), htmlOutput("manual")),
tabPanel("Likes", DT::dataTableOutput("mytable_likes")),
tabPanel("Dislikes", DT::dataTableOutput("mytable_dislikes")),
tabPanel("Comment Count", DT::dataTableOutput("mytable_comment_count")),
tabPanel("Views", DT::dataTableOutput("mytable_views")),
tabPanel("Like Dislike Ratio", DT::dataTableOutput("mytable_like_dislike_ratio")),
tabPanel("Ranking Plot", plotOutput(outputId = "Rankplot")),
tabPanel("Distribution of Likes by Categories", plotOutput(outputId = "Boxplot"))
)
)
)
)
server <- function(input, output) {
output$mytable_likes <- DT::renderDataTable({
data_cleaned %>%
mutate(likes = as.numeric(likes)) %>%
filter(category_id == input$category1) %>%
arrange(desc(likes)) %>%
select(input$show_vars1)
})
output$mytable_dislikes <- DT::renderDataTable({
data_cleaned %>%
mutate(dislikes = as.numeric(dislikes)) %>%
filter(category_id == input$category2) %>%
arrange(dislikes) %>%
select(input$show_vars2)
})
output$mytable_comment_count <- DT::renderDataTable({
data_cleaned %>%
mutate(comment_count = as.numeric(comment_count)) %>%
filter(category_id == input$category3) %>%
arrange(desc(comment_count)) %>%
select(input$show_vars3)
})
output$mytable_views <- DT::renderDataTable({
data_cleaned %>%
mutate(views = as.numeric(views)) %>%
filter(category_id == input$category4) %>%
arrange(desc(views)) %>%
select(input$show_vars4)
})
output$mytable_like_dislike_ratio <- DT::renderDataTable({
data_cleaned %>%
mutate(like_dislike_ratio = as.numeric(like_dislike_ratio))%>%
filter(category_id == input$category5)%>%
arrange(desc(like_dislike_ratio)) %>%
select(input$show_vars5)
})
output$manual <- renderText({
paste(
"<p>Welcome to our shiny app! This is a fairly self-explanatory app. First off, start off my selecting the categories in which you would like to browse the data in. To select a category, clock on the drop-down box and scroll up or down until you see what you want to explore. Simply click on the option you’d like. We then select what results we would like to view. Check or uncheck what columns we would like to show in the results.</p>
<p> Then, we will be able to rank the videos by Likes, Dislikes, Comment Count, Views, and Like-Dislike Ratio. By selecting one, the app will bring you to a page where you can search by keywords and sort by likes and alphabetical order of the title. You may also choose to see how many entries you view per page. To go to the next page, click on the numbers or next.</p>
"
)
})
output$Rankplot <- renderPlot(
graphdata %>%
ggplot(aes(y = fct_reorder(category_id_c,
eval(as.name(paste(input$Vars,"_per_video", sep="")))
),
x = eval(as.name(paste(input$Vars, "_per_video", sep=""))),
fill = category_id_c)) +
geom_bar(stat = 'identity') +
labs(y = "Category of Music",
title = paste("Ranking of Category by",input$Vars),
x = ""
)+
theme(legend.position = "none")
)
output$Boxplot <- renderPlot(
data_cleaned %>%
filter(category == input$Categoreis) %>%
mutate(category_c = as.character(category)) %>%
group_by(category_c) %>%
summarize(category_c, likes) %>%
ggplot(aes(y = reorder(category_c,likes,median), x=likes, fill = category_c)) +
geom_boxplot()+
labs(y = "Category ID",
x = "Likes",
title = "Distribution by Category")+
theme_minimal()+
xlim(0,100000)+
theme(legend.position = "none")
)
}
shinyApp(ui = ui, server = server)