Simplify comparative bar charts 📊
Switch branches/tags
Nothing to show
Clone or download
Latest commit 3c56dae Sep 16, 2018

README.md

compareBars

Travis build status

“Less is more.”

“Simplify simplify.”

Alt Text

The goal of compareBars is to reduce the clutter of comparative bar charts.

Installation

You can install compareBars from github with:

# install.packages("devtools")
devtools::install_github("daranzolin/compareBars")

A simpler alternative

Consider the following bar charts:

library(tidyverse)
library(gapminder)
library(patchwork)

d <- gapminder %>% 
  filter(continent %in% c("Americas", "Europe")) %>% 
  group_by(continent, year) %>% 
  summarize(pop = sum(pop))

p1 <- ggplot(d, aes(year, pop, fill = continent)) + geom_col()
p2 <- ggplot(d, aes(year, pop, fill = continent)) + geom_col(position = "dodge")

p1 + p2 + plot_layout(ncol = 1)

cb1

When did the total population of the Americas exceed the total population of Europe? With the top chart, you’d have to guess sometime between 1960 and 1980, but it’s hard to tell at a glance. And while it’s easier to tell with the second plot, the clarity comes at the sake of clutter.

compareBars offers a simpler, cleaner alternative with d3.js:

library(compareBars)
d %>% 
  spread(continent, pop) %>% 
  mutate(year = factor(year)) %>% 
  compareBars(year, Americas, Europe)

cb1

Not only is the moment when the Americas’ population exceeded Europe’s immediately clear, but you also get a much better sense of the magnitude by year. Approximating this kind of chart with ggplot requires a great deal of reshaping and wizardry.

An interactive tooltip shows the magnitude of difference between the two levels.

Other options

You can adjust the chart by adding axis labels, titles, subtitles, specifying your own fill colors, changing the label fonts, and even the bar orientation:

d %>% 
  spread(continent, pop) %>% 
  mutate(year = factor(year)) %>% 
  compareBars(year, 
              Americas, 
              Europe,
              xLabel = "Population",
              yLabel = "Year",
              titleLabel = "Population, Europe and the Americas",
              subtitleLabel = "1952-2007",
              fontFamily = "Arial",
              compareVarFill1 = "pink",
              compareVarFill2 = "green",
              orientation = "horizontal")

cb2

Note that you must reshape your data into a ‘non-tidy’ form.