Más de 100 años de películas en IMDb

Visualización parte del proyecto #datosdemiercoles de @R4DS_es.

Más información acá

Visualización con highcharter

imdb <- readr::read_csv("https://raw.githubusercontent.com/cienciadedatos/datos-de-miercoles/master/datos/2020/2020-02-19/ranking_imdb.csv")

library(tidyverse)
library(highcharter)
library(extrafont)

imdb <- imdb[order(-imdb$puntaje),] %>%
  mutate(votos_quintiles=ntile(votos, 5))


x <- c("titulo", "anio", "puntaje", "ganancias", "votos")
y <- str_c("{point.", x, "}")
x <- str_replace_all(x, "_", " ")
tt <- tooltip_table(x, y)

g <- hchart(imdb, "scatter", hcaes(x = puntaje, y = ganancias)) %>%
  hc_title(text = "Más de 100 años de películas en IMDb") %>% 
  hc_subtitle(text = "Ganancias vs Rating") %>% 
  hc_add_theme(
    hc_theme_flatdark(
      chart = list(
        backgroundColor = "transparent",
        divBackgroundImage = "https://fecha.gr/wp-content/uploads/2019/05/cinema-wallpaper-14.jpg"
      )
    )
  ) %>% 
  hc_colors(
    c("#E1BD46")
  ) %>%
  hc_credits(
    enabled = TRUE,
    text = "Datos: IMDb/@R4DS_es - Visualización: @danidlsa") %>%
  hc_tooltip(pointFormat = tt, useHTML = TRUE,
             headerFormat = "",  crosshairs = TRUE) %>%
  hc_xAxis(title = list(text = "Puntaje")) %>%
  hc_yAxis(title = list(text = "Ganancias (millones USD)")) %>%
  hc_legend(enable=FALSE)

g

Sobre los datos

Los datos fueron extraídos de Kaggle y luego procesados y traducidos por el equipo de #datosdemieRcoles.

Ver: R4DS_ES-IMDb