差異圖

Question

我不知道這種類型的情節的名稱（歡迎發表評論）。從本質上講，它是一個帶有字形的巴洛圖，填充後表示損失/收益。字形是箭頭，像編碼有關方向，大小的信息，並允許查看條形幾何。

這看起來很有趣，但也想不出如何做到這一點的ggplot2（網格框架工作）。我們如何在ggplot2/grid框架中重新創建這種情節（基礎解決方案對於問題的完整性也很受歡迎）。特別是glyphs，而不是文本，因爲這在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()