Prob2Ch1

Para esta análise foram utilizados dados das séries de superheróis Flash, Arrow, Smaville, DC’s Legends of Tommorow, Gotham, Daredevil e Marvel’s Agent Carter retirados do IMDB.

episodes = read_csv(here("data/series_from_imdb.csv"), 
                    progress = FALSE,
                    col_types = cols(.default = col_double(), 
                                     series_name = col_character(), 
                                     episode = col_character(), 
                                     url = col_character(),
                                     season = col_character()))
myseries = episodes %>% filter(series_name %in% c("Flash", "Arrow", "Gotham", "Daredevil", "Smallville"))

As séries melhor avalidas recebem maior quantidade de votos?

Para esta análise foram utilizados dados das séries de superheróis Flash, Arrow, Smaville, DC’s Legends of Tommorow, Gotham e Daredevil retirados do IMDB. Queremos investigar se dentre as séries escolhidas, as que apresentaram melhor avaliação são também aquelas que recebem a maior quantidade de votos.

seriesheroes <- myseries %>% group_by(series_name) %>% summarise(Rating = median(user_rating), totalvotos = sum(user_votes), votesperseason = round( totalvotos/as.numeric(max(season))))

Palette <- c("#c994c7", "#df65b0", "#e7298a", "#ce1256", "#91003f")

xform <- list(title = "Séries",
              categoryorder = "array",
              categoryarray = c("Arrow", 
                                "Flash", 
                                "Daredevil",
                                "Smallville",
                                "Gotham"))

plot_ly(seriesheroes,
  x = ~series_name,
  y = ~totalvotos,
  color = ~Rating,
  colors = Palette,
  legendgroup = ~votesperseason,
  showlegend = T,
  text = ~votesperseason, 
  textposition = 'auto',
  textfont = list(color = "#ffbf00", size = 14),
  type = "bar") %>%
  layout(title = "Avaliação x Quantidade de votos",
         xaxis = xform,
         yaxis = list(title = "Total de votos"))%>%
    add_annotations(
    x= 0.4,
    y= 0.65,
    xref = "paper",
    yref = "paper",
    text = "Média de votos por temporada",
    showarrow = T,
    arrowhead = 4,
    ax = 20,
    ay = -40,
    font = list(color = '#ffbf00', size = 12)
  )

## Warning: Numeric color variables cannot (yet) be mapped to text.
## Feel free to make a feature request 
## https://github.com/plotly/plotly.js

No gráfico de barras acima, as barras foram ordenadas de acordo com o total de votos recebidos pelas séries (da mais votada para a menos votada). Para visualizar a nota atribuída a cada série foi utilizado um esquema de cores. Além disso, a quantidade média de votos por temporada foi indicada através dos números em amarelo sobre as barras.

Podemos observar que a série com maior número total de votos (Arrow) é a segunda colocada em votos por temporada e ocupa apenas a terceira posição em avaliação. Enquanto a série com melhor avaliação (Daredevil) ocupa o terceiro lugar tanto em quantidade de votos por temporada, quanto em total de votos, tendo um total de votos bem próximo à duas outras séries, Smallville e Gotham, que tiveram um desempenho pior na avaliação. Portanto, o gráfico mostra que não existe muita relação entre o número de votos e a avaliação.