1.1 Bar Plot

p = rating %>% 
        group_by(Year) %>% 
        mutate(Year_Count = sum(Year)/Year) %>% 
        ggplot(aes(Year)) +
        geom_histogram(aes(text = paste0("Year: ", Year,
                                         "<br>Count: ", Year_Count)),
                       binwidth = 1, fill = "#4F6CFF") +
        theme_minimal()
ggplotly(p, tooltip="text")

1.2 Pie Chart

plot_ly(as.data.frame(table(Genres.tidy$Genre))[-1,], 
            labels = ~Var1, values = ~Freq, type = 'pie', 
            textposition = "inside") %>%
      layout(title = 'Movie Genres',
             xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
             yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE)) %>% 
  hide_legend()

1.3 Scatter Plot: IMDB Rating vs Your Rating

plot_ly(data = rating, 
            x = ~IMDb.Rating, y = ~Your.Rating,
            hoverinfo = "text",
            text = ~paste0("Title: ", Title,
                           "<br>Director: ", Directors,
                           "<br>IMDb Rating: ", IMDb.Rating,
                           "<br>Your Rating: ", Your.Rating))

## No trace type specified:
##   Based on info supplied, a 'scatter' trace seems appropriate.
##   Read more about this trace type -> https://plot.ly/r/reference/#scatter

## No scatter mode specifed:
##   Setting the mode to markers
##   Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode

1.4 Number of Movies reviewed in each month

data.frame(table(rating$Review_YearMonth)) %>% 
      plot_ly(x = ~Var1, y = ~Freq, type = "bar",
              hoverinfo = "text",
              text = ~paste0("Year-Month: ", Var1,
                             "<br>Count: ", Freq)) %>% 
      layout(yaxis = list(title = "Count"),
             xaxis = list(title = ""))

1.5 Movies Reviewed in this month

this_month_reviews_viz = rating %>%
        filter(Review_YearMonth == max(rating$Review_YearMonth)) %>% 
        ggplot(aes(x = Date.Rated, y = Run_Mins, group = Title, 
                   fill = Your.Rating)) +
        geom_bar(aes(text = paste0("Date Reviewed: ", Date.Rated,
                                   "<br>Title: ", Title, " (", Year, ")",
                                   "<br>Your Rating: ", Your.Rating,
                                   "<br>Run Minutes: ", Run_Mins, " Minutes")),
                 stat = "identity", colour = "grey") +
        theme_minimal() +
        labs(fill = "Rating", y = "Minutes")

## Warning: Ignoring unknown aesthetics: text

ggplotly(
      this_month_reviews_viz,
      tooltip="text"
    )

## Warning: Removed 1 rows containing missing values (position_stack).

1.6 Favorite Movie Directors

director_ranking = dr.rating %>% 
        filter(Num >= 4) %>% 
        ggplot(aes(x = reorder(Directors, Num), y = Num/Num, group = Title,
                   fill = Your.Rating,
                   text = paste0("Director: ", Directors,
                                 "<br>Total Movies Reviewed: ", Num,
                                 "<br>Title: ", Title, " (", Year, ")",
                                 "<br>Rating Score: ", Your.Rating))) +
        geom_bar(stat = "identity"
                 # , fill = "#4F6CFF"
                 ) +
        coord_flip() +
        theme_minimal() +
        labs(fill = "Rating", x = "", y = "Count")
ggplotly(
      director_ranking,
      tooltip="text"
    )

rating_histogram = rating %>% 
        group_by(Your.Rating) %>% 
        mutate(Rating.Count = sum(Your.Rating)/Your.Rating) %>% 
        ggplot(aes(Your.Rating)) +
        geom_histogram(aes(text = paste0(
          "Rating Score: ", Your.Rating,
          "<br>Movie Count: ", Rating.Count
        )),
        binwidth = 1, fill = "#4F6CFF") +
        theme_minimal()

## Warning: Ignoring unknown aesthetics: text

ggplotly(
  rating_histogram,
  tooltip="text"
    )

1.7 Data Table

DT::datatable(
    rating %>% 
      arrange(desc(Date.Rated)) %>% 
      select(Title, IMDb.Rating, Your.Rating, Run_Mins, Year, Directors, Year),
    options = list(
      lengthMenu = c(5, 5, 10)
    )
  )