Wykres różnicy

Question

Nie znam nazwy tego rodzaju działki (mile widziane są komentarze dookoła tego). Zasadniczo jest to barplot z wypełnionymi glifami, które wskazują na stratę/zysk. Glif jest jak strzała kodująca informacje o kierunku, wielkości i pozwalającym zobaczyć belkę pod ziemią.

Wygląda to interesujące, ale nie można myśleć o tym, jak to zrobić w ggplot2 (szkieletu sieci). Jak moglibyśmy odtworzyć tę fabułę w ggplot2/grid framework (zarówno podstawowe rozwiązania, jak i kompletność pytań). W szczególności glify, a nie tekst, ponieważ jest już całkiem prosty w ggplot2.

Oto kod do tworzenia danych i tradycyjnych nakładek & z odwróconymi wykresami słupkowymi i liniowymi, aby pokazać typowe sposoby wizualizacji tego typu danych.

set.seed(10) 
x <- sample(30:60, 12) 
y <- jitter(x, 60) 

library(ggplot2) 
dat <- data.frame(
    year = rep(2012:2013, each=12), 
    month = rep(month.abb, 2), 
    profit = c(x, y) 
) 


ggplot() + 
geom_bar(data=subset(dat, year==2012), aes(x=month, weight=profit)) + 
geom_bar(data=subset(dat, year==2013), aes(x=month, weight=profit), width=.5, fill="red") 

ggplot(dat, aes(x=month, fill=factor(year))) + 
    geom_bar(position="dodge", aes(weight=profit)) + 
    coord_flip 

ggplot(dat, aes(x=month, y=profit, group = year, color=factor(year))) + 
    geom_line(size=1) 

Answer 1

Oto przykład, być może istnieją inne sposoby, choć

dat <- data.frame(
    year = rep(2012:2013, each=12), 
    month = factor(rep(1:12, 2), labels=month.abb), 
    profit = c(x, y) 
) 
dat2 <- reshape2::dcast(dat, month~ year, value.var = "profit") 
names(dat2)[2:3] <- paste0("Y", names(dat2)[2:3]) 

ggplot(dat2) + 
    geom_bar(aes(x=month, y = Y2012), stat = "identity", fill = "grey80", width = 0.6) + 
    geom_segment(aes(x=as.numeric(month)-0.4, xend = as.numeric(month)+0.4, y = Y2013, yend = Y2013)) + 
    geom_segment(aes(x = month, xend = month, y = Y2013, yend = Y2012, colour = Y2013 < Y2012), 
       arrow = arrow(60, type = "closed", length = unit(0.1, "inches")), size = 1.5) + 
    theme_bw()