Detective Comics & Marvel Worldwide Inc
Ricardo Rangel y Gabriel YaƱez
21/6/2021
#Detective Comics & Marvel Worldwide Inc
##La gran revoluciĆ³n de los superhĆ©roes en el cine durante principios del siglo XXI reavivĆ³ un conflicto casi tan largo como la historia de la industria del cĆ³mic americano: Marvel vs.Ā DC y cuĆ”l de las dos editoriales tiene mejores personajes e historias. ##Como decimos, esta polĆ©mica viene, ademĆ”s, alimentada desde hace al menos 15 aƱos por la disparidad de enfoques entre Warner y Disney, quienes controlan respectivamente la producciĆ³n de pelĆculas y series basadas en los personajes de DC Comics y de Marvel. Algo que ha hecho que, mĆ”s de una vez, muchos fans hayan perdido los papeles en medio de interminables duelos de Marvel vs.Ā DC
Marvel vs DC
#Data Set
library(readr)
heroes_information <- read_csv("~/MarvelvsDC/heroes_information.csv")## Warning: Missing column names filled in: 'X1' [1]##
## -- Column specification --------------------------------------------------------
## cols(
## X1 = col_double(),
## name = col_character(),
## Gender = col_character(),
## `Eye color` = col_character(),
## Race = col_character(),
## `Hair color` = col_character(),
## Height = col_double(),
## Publisher = col_character(),
## `Skin color` = col_character(),
## Alignment = col_character(),
## Weight = col_double()
## )View(heroes_information)library(readr)
charcters_stats <- read_csv("~/MarvelvsDC/charcters_stats.csv")##
## -- Column specification --------------------------------------------------------
## cols(
## Name = col_character(),
## Alignment = col_character(),
## Intelligence = col_double(),
## Strength = col_double(),
## Speed = col_double(),
## Durability = col_double(),
## Power = col_double(),
## Combat = col_double(),
## Total = col_double()
## )View(charcters_stats)library(readr)
super_hero_powers <- read_csv("~/MarvelvsDC/super_hero_powers.csv")##
## -- Column specification --------------------------------------------------------
## cols(
## .default = col_logical(),
## hero_names = col_character()
## )
## i Use `spec()` for the full column specifications.View(super_hero_powers)#Directorio de trabajo
setwd("~/MarvelvsDC/")
info <- read.csv("~/MarvelvsDC/heroes_information.csv", na.strings = c("-", "-99"))
stats <- read.csv("~/MarvelvsDC/charcters_stats.csv", na.strings = "")
powers <- read.csv("~/MarvelvsDC/super_hero_powers.csv")# Librerias necesarias
library(reshape2) #Transformacion de datos entre formato ancho y largo
library(plyr) #Division y combinacion de datos
library(dplyr) #Proporciona gramatica (select, filter, arrange, rename, mutate, _%>%)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:plyr':
##
## arrange, count, desc, failwith, id, mutate, rename, summarise,
## summarize## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(ggplot2) #Graficos
library(gridExtra) #GRaficos cuadricula, multiples graficos y tablas de dibujo)##
## Attaching package: 'gridExtra'## The following object is masked from 'package:dplyr':
##
## combinelibrary(wesanderson) #Lista de pelicas de Wes Anderson
library(pander) #Tablas de informacion#Subconjuntos
##Realizar un Subconjunto de Datos solo para Marvel y DC
colnames(info)[colnames(info) == "name"] <- "Name"
marvel_dc_info <- info[(info$Publisher == "Marvel Comics" | info$Publisher == "DC Comics"), ]##Eliminar nombres duplicados y seleccionar columnas de utilidad
marvel_dc_info <- marvel_dc_info[!duplicated(marvel_dc_info$Name), ]
marvel_dc_info <- marvel_dc_info %>%
select(Name, Gender, Race, Publisher)##Unir los dos primeros conjuntos de datos
marvel_dc_stats_info <- join(marvel_dc_info, stats, by = "Name", type = "inner")##Unir con la tercer base de datos
colnames(powers)[colnames(powers) == "hero_names"] <- "Name"
full_marvel_dc <- join(marvel_dc_stats_info, powers, by = "Name", type = "inner")##Revisar las primeras filas del conjunto de datos
head(full_marvel_dc) ## Name Gender Race Publisher Alignment Intelligence
## 1 A-Bomb Male Human Marvel Comics good 38
## 2 Abin Sur Male Ungaran DC Comics good 50
## 3 Abomination Male Human / Radiation Marvel Comics bad 63
## 4 Abraxas Male Cosmic Entity Marvel Comics bad 88
## 5 Adam Strange Male Human DC Comics good 1
## 6 Agent Bob Male Human Marvel Comics good 10
## Strength Speed Durability Power Combat Total Agility Accelerated.Healing
## 1 100 17 80 17 64 316 False True
## 2 90 53 64 84 65 406 False False
## 3 80 53 90 55 95 436 False True
## 4 100 83 99 100 56 526 False False
## 5 1 1 1 0 1 5 False False
## 6 8 13 5 5 20 61 False False
## Lantern.Power.Ring Dimensional.Awareness Cold.Resistance Durability Stealth
## 1 False False False True False
## 2 True False False False False
## 3 False False False False False
## 4 False True False False False
## 5 False False False True True
## 6 False False False False True
## Energy.Absorption Flight Danger.Sense Underwater.breathing Marksmanship
## 1 False False False False False
## 2 False False False False False
## 3 False False False False False
## 4 False True False False False
## 5 False True False False True
## 6 False False False False False
## Weapons.Master Power.Augmentation Animal.Attributes Longevity Intelligence
## 1 False False False True False
## 2 False False False False False
## 3 False False False False True
## 4 False False False False True
## 5 True False False False True
## 6 False False False False False
## Super.Strength Cryokinesis Telepathy Energy.Armor Energy.Blasts Duplication
## 1 True False False False False False
## 2 False False False False False False
## 3 True False False False False False
## 4 True False False False False False
## 5 False False False False False False
## 6 False False False False False False
## Size.Changing Density.Control Stamina Astral.Travel Audio.Control Dexterity
## 1 False False True False False False
## 2 False False False False False False
## 3 False False True False False False
## 4 True False False False False False
## 5 False False False False False False
## 6 False False False False False False
## Omnitrix Super.Speed Possession Animal.Oriented.Powers Weapon.based.Powers
## 1 False False False False False
## 2 False False False False False
## 3 False True False False False
## 4 False True False False False
## 5 False True False False False
## 6 False False False False False
## Electrokinesis Darkforce.Manipulation Death.Touch Teleportation
## 1 False False False False
## 2 False False False False
## 3 False False False False
## 4 False False False True
## 5 False False False False
## 6 False False False False
## Enhanced.Senses Telekinesis Energy.Beams Magic Hyperkinesis Jump
## 1 False False False False False False
## 2 False False False False False False
## 3 False False False False False False
## 4 False False False True False False
## 5 False False False False False False
## 6 False False False False False False
## Clairvoyance Dimensional.Travel Power.Sense Shapeshifting
## 1 False False False False
## 2 False False False False
## 3 False False False False
## 4 False True False False
## 5 False False False False
## 6 False False False False
## Peak.Human.Condition Immortality Camouflage Element.Control Phasing
## 1 False False True False False
## 2 False False False False False
## 3 False False False False False
## 4 False True False False False
## 5 False False False False False
## 6 False False False False False
## Astral.Projection Electrical.Transport Fire.Control Projection Summoning
## 1 False False False False False
## 2 False False False False False
## 3 False False False False False
## 4 False False False False False
## 5 False False False False False
## 6 False False False False False
## Enhanced.Memory Reflexes Invulnerability Energy.Constructs Force.Fields
## 1 False False False False False
## 2 False False False False False
## 3 False False True False False
## 4 False False True False False
## 5 False False False False False
## 6 False False False False False
## Self.Sustenance Anti.Gravity Empathy Power.Nullifier Radiation.Control
## 1 True False False False False
## 2 False False False False False
## 3 False False False False False
## 4 False False False False False
## 5 False False False False False
## 6 False False False False False
## Psionic.Powers Elasticity Substance.Secretion Elemental.Transmogrification
## 1 False False False False
## 2 False False False False
## 3 False False False False
## 4 False False False False
## 5 False False False False
## 6 False False False False
## Technopath.Cyberpath Photographic.Reflexes Seismic.Power Animation
## 1 False False False False
## 2 False False False False
## 3 False False False True
## 4 False False False False
## 5 False False False False
## 6 False False False False
## Precognition Mind.Control Fire.Resistance Power.Absorption Enhanced.Hearing
## 1 False False False False False
## 2 False False False False False
## 3 False False False False False
## 4 False False False False False
## 5 False False True False False
## 6 False False False False False
## Nova.Force Insanity Hypnokinesis Animal.Control Natural.Armor Intangibility
## 1 False False False False False False
## 2 False False False False False False
## 3 False False False False False False
## 4 False False False False False False
## 5 False False False False False False
## 6 False False False False False False
## Enhanced.Sight Molecular.Manipulation Heat.Generation Adaptation Gliding
## 1 False False False False False
## 2 False False False False False
## 3 False False False False False
## 4 False True False False False
## 5 True False False False False
## 6 False False False False False
## Power.Suit Mind.Blast Probability.Manipulation Gravity.Control Regeneration
## 1 False False False False False
## 2 False False False False False
## 3 False False False False False
## 4 False False False False False
## 5 True False False False False
## 6 False False False False False
## Light.Control Echolocation Levitation Toxin.and.Disease.Control Banish
## 1 False False False False False
## 2 False False False False False
## 3 False False False False False
## 4 False False False False False
## 5 False False False False False
## 6 False False False False False
## Energy.Manipulation Heat.Resistance Natural.Weapons Time.Travel
## 1 False False False False
## 2 False False False False
## 3 False False False False
## 4 True False False False
## 5 False False False False
## 6 False False False False
## Enhanced.Smell Illusions Thirstokinesis Hair.Manipulation Illumination
## 1 False False False False False
## 2 False False False False False
## 3 False False False False False
## 4 False False False False False
## 5 False False False False False
## 6 False False False False False
## Omnipotent Cloaking Changing.Armor Power.Cosmic Biokinesis Water.Control
## 1 False False False False False False
## 2 False False False False False False
## 3 False False False False False False
## 4 False False False True False False
## 5 False False False False False False
## 6 False False False False False False
## Radiation.Immunity Vision...Telescopic Toxin.and.Disease.Resistance
## 1 False False False
## 2 False False False
## 3 False False False
## 4 False False False
## 5 False False False
## 6 False False False
## Spatial.Awareness Energy.Resistance Telepathy.Resistance Molecular.Combustion
## 1 False False False False
## 2 False False False False
## 3 False False False False
## 4 False False False False
## 5 False False False False
## 6 False False False False
## Omnilingualism Portal.Creation Magnetism Mind.Control.Resistance
## 1 False False False False
## 2 False False False False
## 3 False False False False
## 4 False False False False
## 5 False False False False
## 6 False False False False
## Plant.Control Sonar Sonic.Scream Time.Manipulation Enhanced.Touch
## 1 False False False False False
## 2 False False False False False
## 3 False False False False False
## 4 False False False False False
## 5 False False False False False
## 6 False False False False False
## Magic.Resistance Invisibility Sub.Mariner Radiation.Absorption
## 1 False False False False
## 2 False False False False
## 3 False False False False
## 4 False False False False
## 5 False False False False
## 6 False False False False
## Intuitive.aptitude Vision...Microscopic Melting Wind.Control Super.Breath
## 1 False False False False False
## 2 False False False False False
## 3 False False False False True
## 4 False False False False False
## 5 False False False False False
## 6 False False False False False
## Wallcrawling Vision...Night Vision...Infrared Grim.Reaping Matter.Absorption
## 1 False False False False False
## 2 False False False False False
## 3 False False False False False
## 4 False False False False False
## 5 False False False False False
## 6 False False False False False
## The.Force Resurrection Terrakinesis Vision...Heat Vitakinesis Radar.Sense
## 1 False False False False False False
## 2 False False False False False False
## 3 False False False False False False
## 4 False False False False False False
## 5 False False False False False False
## 6 False False False False False False
## Qwardian.Power.Ring Weather.Control Vision...X.Ray Vision...Thermal
## 1 False False False False
## 2 False False False False
## 3 False False False False
## 4 False False False False
## 5 False False False False
## 6 False False False False
## Web.Creation Reality.Warping Odin.Force Symbiote.Costume Speed.Force
## 1 False False False False False
## 2 False False False False False
## 3 False False False False False
## 4 False False False False False
## 5 False False False False False
## 6 False False False False False
## Phoenix.Force Molecular.Dissipation Vision...Cryo Omnipresent Omniscient
## 1 False False False False False
## 2 False False False False False
## 3 False False False False False
## 4 False False False False False
## 5 False False False False False
## 6 False False False False False# El resultado contiene 186 columnas, que estan ocultas
#Se quedan ocultas por que son columnas de validacion (cierto o falso)##Vamos a simplificar estas columnas, en una sola para simplificar datos
#Lo hacemos usando la funcion "Melt"
marvel_dc <- melt(full_marvel_dc, id = c("Name", "Gender", "Race", "Publisher", "Alignment", "Intelligence",
"Strength", "Speed", "Durability", "Power", "Combat", "Total"))
colnames(marvel_dc)[colnames(marvel_dc) == "variable"] <- "Super.Power"
marvel_dc <- marvel_dc %>%
filter(value == "True") %>%
select(-value)##Revisar nuevamente las primeras filas del conjunto de datos
head(marvel_dc)## Name Gender Race Publisher Alignment Intelligence Strength
## 1 Amazo Male Android DC Comics bad 75 100
## 2 Angel Male <NA> Marvel Comics good 63 13
## 3 Annihilus Male <NA> Marvel Comics bad 75 80
## 4 Ant-Man II Male Human Marvel Comics good 63 10
## 5 Apocalypse Male Mutant Marvel Comics bad 100 100
## 6 Aquaman Male Atlantean DC Comics good 63 80
## Speed Durability Power Combat Total Super.Power
## 1 100 100 100 100 575 Agility
## 2 46 64 17 42 245 Agility
## 3 47 56 59 64 381 Agility
## 4 23 28 32 28 184 Agility
## 5 33 100 100 60 493 Agility
## 6 50 80 65 80 418 Agility#Los datos lucen mas estructurados##Verificar si faltan valores
colSums(is.na(marvel_dc))## Name Gender Race Publisher Alignment Intelligence
## 0 47 943 0 17 0
## Strength Speed Durability Power Combat Total
## 0 0 0 0 0 0
## Super.Power
## 0#Las columnas "Genero, Raza, Alineacion" tienen algunos valores faltantes,
##Terminamos las tablas de informacion ####AnĆ”lisis de los universos de super heroes āMarvel vs DCā####
##Convertir las columnas categoricas en factor para la visualizacion
marvel_dc$Name <- as.factor(marvel_dc$Name)
marvel_dc$Gender <- as.factor(marvel_dc$Gender)
marvel_dc$Race <- as.factor(marvel_dc$Race)
marvel_dc$Publisher <- as.factor(marvel_dc$Publisher)
marvel_dc$Alignment <- as.factor(marvel_dc$Alignment)
marvel_dc$Super.Power <- as.factor(marvel_dc$Super.Power)##ĀæCuantos datos hay en cada universo?
ggplot(marvel_dc, aes(x = Publisher, fill = Publisher)) +
geom_bar(stat = "count", aes(fill = Publisher), col = "black", alpha = 0.8) +
labs(x = "", y = "", title = "Distribucion de Marvel vs DC") +
geom_label(stat = "count", aes(label = ..count..)) +
guides(fill = FALSE) +
theme_classic()
##ĀæCuantos hombres y mujeres hay en cada universo?
marvel_dc_gender <- marvel_dc %>%
filter(!is.na(Gender)) %>%
group_by(Gender) %>%
dplyr::count(Publisher) %>%
select(Gender, Publisher, Count = n)
ggplot(marvel_dc_gender, aes(x = Gender, y = Count)) +
geom_bar(stat = "identity", aes(fill = Gender), col = "black", alpha = 0.8) +
labs(x = "", y = "", title = "Comparacion de Genero Marvel vs DC") +
facet_wrap(~Publisher) +
theme_bw()
###ĀæCuantas razas hay en cada universo?
## Marvel
marvel_race <- marvel_dc %>%
filter(!is.na(Race)) %>%
filter(Publisher == "Marvel Comics") %>%
group_by(Race) %>%
dplyr::count(Race) %>%
select(Race, Count = n) %>%
arrange(-Count)
marvel_race <- ggplot(marvel_race[1:10, ], aes(x = reorder(Race, Count), y = Count)) +
geom_bar(stat = "identity", aes(fill = Race), col = "black", alpha = 0.8) +
labs(x = "", y = "", title = "Top 10 Razas en Marvel") +
coord_flip() +
guides(fill = FALSE, alpha = FALSE) +
theme_bw()##DC
dc_race <- marvel_dc %>%
filter(!is.na(Race)) %>%
filter(Publisher == "DC Comics") %>%
group_by(Race) %>%
dplyr::count(Race) %>%
select(Race, Count = n) %>%
arrange(-Count)
dc_race <- ggplot(dc_race[1:10, ], aes(x = reorder(Race, Count), y = Count)) +
geom_bar(stat = "identity", aes(fill = Race), col = "black", alpha = 0.8) +
labs(x = "", y = "", title = "Top 10 Razas en DC") +
coord_flip() +
guides(fill = FALSE, alpha = FALSE) +
theme_bw()
grid.arrange(marvel_race, dc_race, ncol = 2)
###ĀæCuantos heroes y villanos hay en cada universo?
marvel_dc_alignment <- marvel_dc %>%
filter(!is.na(Alignment)) %>%
group_by(Alignment) %>%
dplyr::count(Publisher) %>%
select(Alignment, Publisher, Count = n)
ggplot(marvel_dc_alignment, aes(x = Alignment, y = Count)) +
geom_bar(stat = "identity", aes(fill = Alignment), col = "black", alpha = 0.8) +
labs(x = "", y = "Number of Characters", title = "Comparacion Heroes vs Villanos") +
guides(fill = FALSE) +
facet_wrap(~Publisher) +
theme_bw()
###Diagramas de caja de las estadisticas de ambos universos
## Intelligence
marvel_dc_intelligence <- ggplot(marvel_dc, aes(x = Publisher, y = Intelligence, fill = Publisher)) +
geom_boxplot(alpha = 0.5) +
labs(x = "", title = "Boxplot Comparacion de inteligencia") +
scale_fill_brewer(palette="Spectral") +
guides(fill = FALSE) +
theme_minimal()## Strength
marvel_dc_strength <- ggplot(marvel_dc, aes(x = Publisher, y = Strength, fill = Publisher)) +
geom_boxplot(alpha = 0.5) +
labs(x = "", title = "Boxplot Comparacion de fuerza") +
scale_fill_manual(values=wes_palette(n=2, name= "Royal1")) +
guides(fill = FALSE) +
theme_minimal()## Speed
marvel_dc_speed <- ggplot(marvel_dc, aes(x = Publisher, y = Speed, fill = Publisher)) +
geom_boxplot(alpha = 0.5) +
labs(x = "", title = "Boxplot Comparacion de Velocidad") +
scale_fill_manual(values=wes_palette(n=2, name= "Moonrise3")) +
guides(fill = FALSE) +
theme_minimal()## Durability
marvel_dc_durability <- ggplot(marvel_dc, aes(x = Publisher, y = Durability, fill = Publisher)) +
geom_boxplot(alpha = 0.5) +
labs(x = "", title = "Boxplot Comparacion de Durabilidad") +
scale_fill_brewer(palette="blues") +
guides(fill = FALSE) +
theme_minimal()## Warning in pal_name(palette, type): Unknown palette blues## Power
marvel_dc_power <- ggplot(marvel_dc, aes(x = Publisher, y = Power, fill = Publisher)) +
geom_boxplot(alpha = 0.5) +
labs(x = "", title = "Boxplot Comparacion de poderes") +
scale_fill_brewer(palette="Dark2") +
guides(fill = FALSE) +
theme_minimal() ## Combat
marvel_dc_combat <- ggplot(marvel_dc, aes(x = Publisher, y = Combat, fill = Publisher)) +
geom_boxplot(alpha = 0.5) +
labs(x = "", title = "Boxplot Comparacion de Habilidades de Combate") +
scale_fill_manual(values=wes_palette(n=2, name= "Rushmore")) +
guides(fill = FALSE) +
theme_minimal() grid.arrange(marvel_dc_intelligence, marvel_dc_strength, marvel_dc_speed,
marvel_dc_durability, marvel_dc_power, marvel_dc_combat, ncol = 2)
#La mediana y el rango de ambos universos son muy similares y cercanos # #En tĆ©rminos medios, los personajes de DC ganan en la batalla de Inteligencia, # #Velocidad, Durabilidad y Poder. # #Los personajes de Marvel ganan solo por la estadĆstica # #de Habilidades de combate. # #La mediana de Fuerza se ve igual para los dos universos. # ################################################################################
###ĀæQuĆ© personaje tienen la mayor inteligencia en cada universo?
## Marvel
marvel_intel <- marvel_dc %>%
filter(Publisher == "Marvel Comics") %>%
group_by(Name) %>%
distinct(Intelligence) %>%
select(Name, Intelligence) %>%
arrange(-Intelligence)
ggplot(marvel_intel[1:15, ], aes(x = reorder(Name, Intelligence), y = Intelligence)) +
geom_bar(stat = "identity", aes(fill = Name), col = "black", alpha = 0.8) +
ylim(0, 110) +
labs(x = "", y = "", title = "Top 15 Personajes principales de Marvel con la mayor inteligencia") +
coord_flip() +
theme_bw()
## DC
dc_intel <- marvel_dc %>%
filter(Publisher == "DC Comics") %>%
group_by(Name) %>%
distinct(Intelligence) %>%
select(Name, Intelligence) %>%
arrange(-Intelligence)
ggplot(dc_intel[1:15, ], aes(x = reorder(Name, Intelligence), y = Intelligence)) +
geom_bar(stat = "identity", aes(fill = Name), col = "black", alpha = 0.8) +
ylim(0, 120) +
labs(x = "", y = "", title = "Top 15 Personajes principales de DC con la mayor inteligencia") +
coord_flip() +
theme_bw()
###ĀæQuĆ© personaje tienen la mayor fuerza en cada universo?
## Marvel
marvel_str <- marvel_dc %>%
filter(Publisher == "Marvel Comics") %>%
group_by(Name) %>%
distinct(Strength) %>%
select(Name, Strength) %>%
arrange(-Strength)
ggplot(marvel_str[1:15, ], aes(x = reorder(Name, Strength), y = Strength)) +
geom_bar(stat = "identity", aes(fill = Name), col = "black", alpha = 0.8) +
ylim(0, 110) +
labs(x = "", y = "", title = "Top 15 mejores personajes de Marvel con la mayor fuerza") +
coord_flip() +
theme_bw()
## DC
dc_str <- marvel_dc %>%
filter(Publisher == "DC Comics") %>%
group_by(Name) %>%
distinct(Strength) %>%
select(Name, Strength) %>%
arrange(-Strength)
ggplot(dc_str[1:15, ], aes(x = reorder(Name, Strength), y = Strength)) +
geom_bar(stat = "identity", aes(fill = Name), col = "black", alpha = 0.8) +
ylim(0, 110) +
labs(x = "", y = "", title = "Top 15 personajes principales de DC con mayor fuerza") +
coord_flip() +
theme_bw()
###ĀæQuĆ© personajes tienen la mayor velocidad en cada universo?
## Marvel
marvel_spd <- marvel_dc %>%
filter(Publisher == "Marvel Comics") %>%
group_by(Name) %>%
distinct(Speed) %>%
select(Name, Speed) %>%
arrange(-Speed)
ggplot(marvel_spd[1:15, ], aes(x = reorder(Name, Speed), y = Speed)) +
geom_bar(stat = "identity", aes(fill = Name), col = "black", alpha = 0.8) +
ylim(0, 110) +
labs(x = "", y = "", title = "Top 15 personajes principales de Marvel con la velocidad mƔs alta") +
coord_flip() +
theme_bw()
## DC
dc_spd <- marvel_dc %>%
filter(Publisher == "DC Comics") %>%
group_by(Name) %>%
distinct(Speed) %>%
select(Name, Speed) %>%
arrange(-Speed)
ggplot(dc_spd[1:15, ], aes(x = reorder(Name, Speed), y = Speed)) +
geom_bar(stat = "identity", aes(fill = Name), col = "black", alpha = 0.8) +
ylim(0, 110) +
labs(x = "", y = "", title = "Los 15 personajes principales de DC con la velocidad mƔs alta") +
coord_flip() +
theme_bw()
####Estadisticas totales para ver que personaje es mas fuerte ###Este analisis depende de todas las estadisticas ya realizadas y combinadas. ### No solo dependera de la fuerza
##Diagrama de caja de las estadisticas generales
ggplot(marvel_dc, aes(x = Publisher, y = Total, fill = Publisher)) +
geom_boxplot() +
labs(x = "", title = "Boxplot ComparaciĆ³n de estadĆsticas generales") +
scale_fill_brewer(palette="Dark2") +
theme_minimal()
###ĀæQuĆ© personajes son los mĆ”s fuertes de cada universo?
## Marvel
marvel_total <- marvel_dc %>%
filter(Publisher == "Marvel Comics") %>%
group_by(Name) %>%
distinct(Total) %>%
select(Name, Total) %>%
arrange(-Total)
ggplot(marvel_total[1:20, ], aes(x = reorder(Name, Total), y = Total)) +
geom_bar(stat = "identity", aes(fill = Name), col = "black", alpha = 0.8) +
labs(x = "", y = "", title = "Top 20 personajes mƔs fuertes de Marvel") +
coord_flip() +
guides(fill = FALSE, alpha = FALSE) +
theme_bw()
## DC
dc_total <- marvel_dc %>%
filter(Publisher == "DC Comics") %>%
group_by(Name) %>%
distinct(Total) %>%
select(Name, Total) %>%
arrange(-Total)
ggplot(dc_total[1:20, ], aes(x = reorder(Name, Total), y = Total)) +
geom_bar(stat = "identity", aes(fill = Name), col = "black", alpha = 0.8) +
labs(x = "", y = "", title = "Top 20 personajes mƔs fuertes de DC") +
coord_flip() +
guides(fill = FALSE, alpha = FALSE) +
theme_bw()
###Comparacion de superpoderes
## Marvel
marvel_super <- marvel_dc %>%
filter(Publisher == "Marvel Comics") %>%
group_by(Super.Power) %>%
dplyr::count(Super.Power) %>%
select(Super.Power, Count = n) %>%
arrange(-Count)
ggplot(marvel_super[1:15, ], aes(x = reorder(Super.Power, Count), y = Count)) +
geom_bar(stat = "identity", aes(fill = Super.Power), col = "black", alpha = 0.8) +
labs(x = "", y = "", title = "Top 15 mejores superpoderes de Marvel") +
coord_flip() +
guides(fill = FALSE, alpha = FALSE) +
theme_bw()
## DC
dc_super <- marvel_dc %>%
filter(Publisher == "DC Comics") %>%
group_by(Super.Power) %>%
dplyr::count(Super.Power) %>%
select(Super.Power, Count = n) %>%
arrange(-Count)
ggplot(dc_super[1:15, ], aes(x = reorder(Super.Power, Count), y = Count)) +
geom_bar(stat = "identity", aes(fill = Super.Power), col = "black", alpha = 0.8) +
labs(x = "", y = "", title = "Los 15 mejores superpoderes de DC") +
coord_flip() +
guides(fill = FALSE, alpha = FALSE) +
theme_bw()
###ĀæQuĆ© personajes tienen el mayor nĆŗmero de superpoderes en cada universo?
## Marvel
marvel_power <- marvel_dc %>%
filter(Publisher == "Marvel Comics") %>%
group_by(Name) %>%
dplyr::count(Name) %>%
select(Name, Count = n) %>%
arrange(-Count)
ggplot(marvel_power[1:20, ], aes(x = reorder(Name, Count), y = Count)) +
geom_bar(stat = "identity", aes(fill = Name), col = "black", alpha = 0.8) +
labs(x = "", y = "", title = "Top 20 personajes principales de Marvel con el mayor nĆŗmero de superpoderes") +
coord_flip() +
guides(fill = FALSE, alpha = FALSE) +
theme_bw()
## DC
dc_power <- marvel_dc %>%
filter(Publisher == "DC Comics") %>%
group_by(Name) %>%
dplyr::count(Name) %>%
select(Name, Count = n) %>%
arrange(-Count)
ggplot(dc_power[1:20, ], aes(x = reorder(Name, Count), y = Count)) +
geom_bar(stat = "identity", aes(fill = Name), col = "black", alpha = 0.8) +
labs(x = "", y = "", title = "Top 20 personajes principales de DC con el mayor nĆŗmero de superpoderes") +
coord_flip() +
guides(fill = FALSE, alpha = FALSE) +
theme_bw()
Spectre