Este conjunto de dados contém uma lista dos 1000 filmes mais bem avaliados no IMDb,

classificados por sua classificação média de usuários, com foco em títulos que

receberam mais de 10.000 votos.

Comparação Comedy x Drama

Este gráfico compara a média das notas de avaliação dos filmes que são exclusivamente do gênero Comedy, e os filmes que são exclusivamente do gênero Drama. Não considerando os filmes que possuam mais de 1 gênero!

# Carregar pacotes necessários
library(ggplot2)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
# Carregar os dados
dados <- read.csv("imdb_top_1000.csv", header = TRUE, sep = ",", stringsAsFactors = FALSE)
dados$genres <- as.character(dados$genres)

# Filtrar filmes que são apenas 'Drama'
drama_filmes <- dados %>%
  filter(grepl("^Drama$", genres))

# Filtrar filmes que são apenas 'Comedy'
comedia_filmes <- dados %>%
  filter(grepl("^Comedy$", genres))

# Calcular a média de avaliação para cada grupo
medias <- data.frame(
  genero = c("Drama", "Comedy"),
  media_avaliacao = c(mean(drama_filmes$averageRating, na.rm = TRUE),
                      mean(comedia_filmes$averageRating, na.rm = TRUE))
)

# Gráfico de barras para comparar a média de avaliação entre Drama e Comédia
ggplot(medias, aes(x = genero, y = media_avaliacao, fill = genero)) +
  geom_bar(stat = "identity") +
  geom_text(aes(label = sprintf("%.2f", media_avaliacao)), vjust = -0.3, size = 5) +  
  labs(title = "Comparação da Média de Avaliação: Drama vs. Comédia",
       x = "Gênero",
       y = "Média de Avaliação",
       fill = "Gênero") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 0, hjust = 0.5))