Wczoraj był dzień dziecka. Młody wygrzebał skądś kilka szkiców wykresów, które kiedyś rysowałem długopisem i stwierdził, że też taki chce narysować (młody ma 6 lat).
No dobrze.
Ponieważ przedwczoraj był piknik naukowy, na którym między innymi uczono dzieci programować w Scratch, stwierdziliśmy, że wykres zrobimy nie długopisem ale na komputerze.
W przedszkolu akurat wałkują temat bohaterów z Hero Factory, zebraliśmy więc kilka charakterystyk sześciu głównych bohaterów i przepisaliśmy je do R.
nazwy <- c("SURGE", "STORMER", "EVO", "ROCKA", "BULK", "BREEZ", "FURNO") pancerz <- c(2700, 2800, 2500, 2700, 2700, 2700, 2900) ogien <- c(238, 244, 228, 239, 247, 243, 232) bieg <- c(43, 43, 48, 44, 41, 45, 43) hero.factory <- data.frame(nazwy, pancerz, ogien, bieg) rownames(hero.factory) <- nazwy |
Czas na wykres. Eksploracja tematu trochę trwała, ale końcowy kod jest tutaj
library(ggplot2) library(gridExtra) p1 <- ggplot(hero.factory, aes(x=pancerz, y=bieg, label=nazwy)) + geom_text() + theme_bw() p2 <- ggplot(hero.factory, aes(x=pancerz, y=ogien, label=nazwy)) + geom_text() + theme_bw() p3 <- ggplot(hero.factory, aes(x=bieg, y=ogien, label=nazwy)) + geom_text() + theme_bw() grid.arrange(p1, p2, p3, nrow=2) |
Po małym tuningu w Ilustratorze mamy
W tym miejscu młody pobiegł z wydrukiem wyjaśniać młodszej siostrze dlaczego EVO jest szybki ale słaby i czy to dobrze czy nie.
A ja skusiłem się jeszcze na małe PCA, bo ,,To tylko jedna linijka”
biplot(prcomp(hero.factory[,2:4], scale.=TRUE)) |
Eksperymentowaliśmy też z parallel plot i radar plot ale nie wyszły ciekawie.
Kody i wykresy można pobrać z githuba.
Jeżeli komuś uda się wyprodukować z tych danych coś fajnego to niech podeśle.