Estadísticas del torneo de poder de Dragon Ball Super 100por100to real no fake

-






      Quedando dos minutos para el final del Torneo de Poder, con cuatro peleadores del universo 7 contra el Marcianito-100por100to-real-no-fake vamos a practicar un poco de web scrapping (rvest) con un poco de factores (forcats), dos paquetes imprescindibles para el data-science en R. Quienes tengan experiencia con factores verán que forcats hace muuuucho más corto y sencillo el proceso de lidiar con valores de este tipo.
     La tabla de los luchadores y la imagen de la arena del torneo de poder provienen de Dragon ball wikia. (CC-BY-SA)
      En la gráfica de eliminaciones por luchador unos que dicen "x & himself", si revisamos la tabla descargada, vemos que se trata de sacrificios (como Gohan o #18) o de algunos luchadores que no quieren pelear y saltan.
     El código:

library(png)
library(dplyr)
library(rvest)
library(ggplot2)
library(janitor)
library(magrittr)
library(editheme)
library(forcats)
set_base_sty("Tomorrow Night 80s")
temp <- tempfile()
download.file("https://vignette.wikia.nocookie.net/dragonball/images/f/f6/Tournament_of_Power_Arena.png", temp)
arena <- readPNG(temp)

url <- read_html("http://dragonball.wikia.com/wiki/Tournament_of_Power")
kokun <- html_nodes(url,"table.article-table:nth-child(20)") %>% html_table()
kokun[[1]] %<>% clean_names()

ggplot(kokun[[1]], aes(fct_rev(fct_infreq(eliminated_by)), fill=universe_eliminated_by)) +
  annotation_custom(grid::rasterGrob(arena, width=unit(1, "npc"), height = unit(1,"npc")),
                    -Inf, Inf, -Inf, Inf) +
  geom_bar(width = 0.8, alpha = 0.5) + theme_editor() +
  coord_flip() + labs(title = "Luchadores por eliminaciones\nal capítulo 126",
                      caption="datamarindo.blogspot.com CC_BY_SA") + xlab("") +
  guides(fill=guide_legend(title="Universo al que\npertenece:"))


ggplot(kokun[[1]], aes(universe, fill=universe_eliminated_by)) + 
  annotation_custom(grid::rasterGrob(arena, width=unit(1, "npc"), height = unit(1,"npc")),
                    -Inf, Inf, -Inf, Inf) + geom_bar(width=0.5, alpha=0.5) +
    theme_editor() + labs(title = "Eliminados del torneo multiversal\nal capítulo 126",
                        caption="datamarindo.blogspot.com CC_BY_SA") + xlab("") +
  guides(fill=guide_legend(title="Eliminado por\nuniverso:"))

 
kokun[[1]] %>% mutate(lumpeado = fct_lump(elimination_method, n=10)) %>%
ggplot(aes(fct_rev(fct_infreq(lumpeado)), fill=universe)) +
  annotation_custom(grid::rasterGrob(arena, width=unit(1, "npc"), height = unit(1,"npc")),
                    -Inf, Inf, -Inf, Inf) + geom_bar(width = 0.8, alpha=0.5) + theme_editor() +
  coord_flip() + labs(title = "Principales métodos de eliminación\nal capítulo 126",
                      caption="datamarindo.blogspot.com CC_BY_SA") + xlab("") +
  scale_x_discrete(labels=function(x) paste(substr(x, 1, 35),"...")) +
  guides(fill=guide_legend(title="Universo del\neliminado"))


    

Comentarios

Publicar un comentario

Entradas más populares de este blog

Construyendo sobre otro post y la conjetura de Collatz y Escher, Gödel, Bach...

-
Imagen
Patrones que emergen de la conjetura de Collatz En menos de un mes ha habido dos posts sobre matemáticas recreativas, el primero sobre la constante de Kaprekar , y el más reciente sobre la  Conjetura de Collatz , la cual sin saberlo fue uno de mis primeros ejercicios de programación (en matlab), aunque presentada como Wondrous numbers en Gödel, Escher, Bach: Tortoise : That's too complicated for me in my sleepy state. Let me instead show you a property which is very easy to define, and yet for which no terminating test is known. I'm not saying there won't ever be one discovered, mind you - just that none is known. You begin with a number - would you care to pick up one? Achilles: How about 15? Tortoise: An excellent choice. We begin with you number, and if it is ODD, we tripple it, and add 1. If it is EVEN, we take half of it. Then we repeat the process. Call a number which eventually reaches 1 this way a WONDROUS number, and a number which doesn't, an U
Leer más

El estado de las cosas: QGIS vs ArcGIS

-
Imagen
Desde la óptica de un blog como este, dedicado al open-source y al data-science, no hay modo en que ArcGIS, un programa de 32 bits ( eso significa, amable lector, que corre igual de lento en una computadora de cibercafé y en un Ryzen o un Xeon ), no human-readable , m-o-n-o-p-l-a-t-a-f-o-r-m-a, con un scripting sin resaltado de sintaxis de python, etc. pueda compertir con QGIS, un multiplataforma (android incluido) , con sus 64 bits, su scripting, su docilidad para programar y su integración con herramientas como GRASS, R, Orpheo y SAGA. Pero una cosa es lo lógico y demostrable y otra cosa es esa dura amalgama de moda con inercia y con publicidad. Sin embargo, hoy día se puede ver como el software open-source geoespacial ha desbancado, en lo que pareciera ser para siempre, al software privativo En gis.stackexchange, el principal foro para preguntar y convertirse en expertos, y por tanto el mejor termómetro de la popularidad de herramientas informáticas, QGIS rebas
Leer más

datos socioeconómicos y resultados electorales.

-
Imagen
     En las siguientes, breves líneas de código de R que recrean las gráficas de junto, revisaremos la relación del perfil educativo y laboral de una sección electoral con la votación registrada por los partidos principales; la seción electoral es la unidad espacial de operaciones electorales, que incluye entre 200 y 1500 electores y que puede tener una o más casillas.      Los datos son obtenidos del Organismo Público Local de Veracruz y del INEGI, abajo están las ligas para descargar los archivos. El data frame final consta de 4808 registros por partido, lo cual son muchos datos puntuales, por lo cual se complementa la visualización con líneas de tendencia.   library(magrittr) library(dplyr) library(janitor) library(foreign) library(tibble) library(ggplot2) library(tidyr) library(readr) library(editheme) set_base_sty("Tomorrow Night 80s") #  links para descargar: # resultados electorales Veracruz 2017 "http://prep2017-ver.ine.mx/20170605_1800_BD.tar.gz&quo
Leer más