Rのggplot2：カスタムギャップを使用してグループ化バーが

Question

は私が積み重ねられbarplot以下のように考えてみましょう：私は一緒にグループ1と2を希望

library(ggplot2) 
dfr <- data.frame(x=1:5,y=c(4,6,2,3,6,8,3,6,8,4), 
     z=c("A","A","A","A","A","B","B","B","B","B")) 

ggplot(dfr,aes(x=x,y=y,fill=z))+ 
    geom_bar(stat="identity") 

、およびグループ3,4,5一緒に。私の考えは2と3の間にもっと広いギャップを持つことです。c(2,4,2,2)のようなカスタムギャップベクトルをギャップに渡すことは可能ですか？私はこの目的のためにファセットを使用したくありません。

Answer 1

これはちょっとしたハックですが、目的の結果が得られます。

library(ggplot2) 
dfr <- data.frame(x=1:5,y=c(4,6,2,3,6,8,3,6,8,4), 
     z=c("A","A","A","A","A","B","B","B","B","B")) 
dfr$x2 <- ifelse(dfr$x %in% 1:2, dfr$x, dfr$x+1) 

ggplot(dfr,aes(x=x2,y=y,fill=z))+ 
    geom_bar(stat="identity") + 
    scale_x_continuous("x", breaks = c(1, 2, 4, 5, 6), labels = seq(1:5))