ggplot2 - 不同寬度的堆疊酒吧

Question

我想製作一個反向金字塔圖，其中酒吧堆疊在一起，寬度不同。

第一，我有堆積條形圖如下代碼示例

library(dplyr) 
library(ggplot2) 
sample <- data_frame(x=c(1, 1, 1, 1, 2, 2, 2, 2), 
        y=c(5,10,15, 20, 10, 5, 20, 10), 
        w=c(1, 2, 3, 4, 1, 2, 3, 4), 
        group=c("a", "b", "c", "d", "a", "b", "c", "d")) 

ggplot() + 
    geom_bar(data=sample, 
      aes(x=x,y=y,group=group, fill=group), 
      stat="identity", position=position_stack()) 

然後，我添加寬度aes所以具有較低w值將變小，同時他們仍然堆疊在彼此。但是，酒吧沒有堆疊警告。

ggplot() + 
geom_bar(data=sample, 
     aes(x=x,y=y,group=group, fill=group, width=w/5), 
     stat="identity", position=position_stack()) 

Warning: Ignoring unknown aesthetics: width 
Warning message: 
position_stack requires non-overlapping x intervals 

任何有助於對堆疊化妝柱狀圖中或在不同的圖表類型，可以覆蓋類似的概念想法，將不勝感激。謝謝！

Answer 1

這有點破解。

我將使用geom_rect()而不是真正的列。因此，我需要爲矩形邊界創建具有預先計算位置的data.frame()。

df_plot <- sample %>% 
    arrange(desc(group)) %>% # Order so lowest 'groups' firtst 
    group_by(x) %>% 
    mutate(yc = cumsum(y), # Calculate position of "top" for every rectangle 
     yc2 = lag(yc, default = 0) ,# And position of "bottom" 
     w2 = w/5) # Small scale for width 


# Plot itself 

ggplot(df_plot) + 
    geom_rect(
    aes(xmin = x - w2/2, xmax = x + w2/2, 
     ymin = yc, ymax = yc2, 
     group = group, fill=group)) 

所得的情節：

Answer 2

一個相當長的版本，用絲帶

library(dplyr) 
library(ggplot2) 
sample <- data_frame(x=c(1, 1, 1, 1, 2, 2, 2, 2), 
        y=c(5,10,15, 20, 10, 5, 20, 10), 
        w=c(1, 2, 3, 4, 1, 2, 3, 4), 
        group=c("a", "b", "c", "d", "a", "b", "c", "d")) 

# make factors for non-numeic items 
sample$x <- factor(sample$x) 
sample$group <- factor(sample$group) 

# calcualte cumulative sums 
sample2 <- sample %>% 
    group_by(x) %>% 
    arrange(desc(group)) %>% 
    mutate(ycum=cumsum(y)) %>% 
    ungroup() %>% 
    select(x, group, ycum, w) 

# Ffor each point, make another row lagged 
sample2lead <- sample2 %>% 
    group_by(x) %>% 
    mutate(ycum = lag(ycum, default=0), w=lag(w, default=max(sample2$w))) %>% 
    ungroup() %>% 
    select(x, group, ycum, w) 

# combine 
combined <- bind_rows(sample2, sample2lead) %>% 
    arrange(x, ycum, desc(group)) 


# plot a ribbon forming trapezoids 
ggplot() + 
    geom_ribbon(data=combined, 
      aes(x=ycum, ymin=-w/2, ymax=w/2, fill=group)) + 
    coord_flip() + 
    facet_grid(~x)