Dzień dziecka

This post was kindly contributed by SmarterPoland » R - go there to comment and to read the full post.

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.