разница сюжет

Question

я не знаю название этого типа сюжета (комментарии вокруг этого приветствуется). По сути, это штрих-код с глифами, которые заполняются для обозначения потери/усиления. Глиф представляет собой стрелку, подобную информации кодирования о направлении, величине и разрешающей видимость столбца.

Это выглядит интересно, но не могу думать о том, как сделать это в ggplot2 (кадр работы сетки). Как можно воссоздать этот сюжет в ggplot2/grid framework (базовые решения также приветствуются для полноты вопроса). В частности, глифы, а не текст, поскольку это уже довольно прямо в ggplot2.

Вот несколько кодов для создания данных и традиционных накладных & координаты перевернутых уклонированных графиков и линейных графиков, чтобы показать типичные способы визуализации данных этого типа.

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

Вот пример, возможно, есть и другие способы, хотя,

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()