/tags/jff/ Recent content in Jff on JLA Data Hugo -- gohugo.io en-us Jindra Lacko Fri, 22 Dec 2017 00:00:00 +0000 /jff/pacman-infographic/ Fri, 22 Dec 2017 00:00:00 +0000 /jff/pacman-infographic/ In the proof of concept phase of a dashboard project it is often necessary to fill the page with mockup charts and figures. I have found one that not only fills the space, but serves as a reliable icebreak, especially with clients who grew up in the 1980’s and 1990’s. Resorting to use an image would be cheating, and so the infographic consists only of legit R code. The code to generate the infographic is following: /jff/playstation-infographic/ Fri, 22 Dec 2017 00:00:00 +0000 /jff/playstation-infographic/ Another fun infographic - just about the right complexity to pass time on my train commute. It serves a threefold purpose: - investigate social impact of playstation ownership (heh…) - demonstrate centering of a title over an asymetric chart - practice drawing of pie charts - frowned upon by statisticians, but beloved by business audience The code to generate the infographic is following: library(ggplot2) library(grid) library(gridExtra) frmPstation <- data.frame(reason = c("I don't have a Playstation", "I don't have a girlfriend"), value = c(100,100)) ggpPstation <- ggplot(data = frmPstation, aes(x = value, fill = reason)) + geom_bar(width = 1) + coord_polar(theta = "y") + theme_void() + theme(legend. /jff/dutch-food-infographic/ Mon, 02 Oct 2017 00:00:00 +0000 /jff/dutch-food-infographic/ I have found a new hobby - trying to recreate silly infographics by using ggplot2. The purpose of this “chart” is twofold: - demonstrate the relative merits of several Dutch delicacies (the fresh herring is in fact highly palatable, but suffers from a bad rep) - practice labeling in ggplot and centering chart title The code to generate the infographic is following: library(ggplot2) library(grid) library(gridExtra) srcData <- data.frame(duvody = c('stroopwafels', 'fresh herring','the cheese'), hodnoty = c(100, 0, 100)) srcData$duvody <- factor(srcData$duvody, levels = c('stroopwafels', 'fresh herring','the cheese')) dutchPlot <- ggplot(srcData, aes(x = rev(duvody), y = hodnoty, fill = duvody)) + geom_col(width = 1) + scale_fill_manual(values = c('the cheese' = 'royalblue4', 'stroopwafels' = 'red2', 'fresh herring' = 'orange1')) + coord_flip() + theme_light() + theme(axis.