データがない場合のgeom_barの一貫性のある幅

Question

以下の時系列の例でデータが欠落した場合に、geom_bar()の一定の幅を設定する方法はありますか？私は運がないaes()にwidthを設定しようとしました。コード例の下のプロットで5月11日から6月11日までの幅を比較してください。

colours <- c("#FF0000", "#33CC33", "#CCCCCC", "#FFA500", "#000000") 
iris$Month <- rep(seq(from=as.Date("2011-01-01"), to=as.Date("2011-10-01"), by="month"), 15) 

colours <- c("#FF0000", "#33CC33", "#CCCCCC", "#FFA500", "#000000") 
iris$Month <- rep(seq(from=as.Date("2011-01-01"), to=as.Date("2011-10-01"), by="month"), 15) 
d<-aggregate(iris$Sepal.Length, by=list(iris$Month, iris$Species), sum) 
d$quota<-seq(from=2000, to=60000, by=2000) 
colnames(d) <- c("Month", "Species", "Sepal.Width", "Quota") 
d$Sepal.Width<-d$Sepal.Width * 1000 
g1 <- ggplot(data=d, aes(x=Month, y=Quota, color="Quota")) + geom_line(size=1) 
g1 + geom_bar(data=d[c(-1:-5),], aes(x=Month, y=Sepal.Width, width=10, group=Species, fill=Species), stat="identity", position="dodge") + scale_fill_manual(values=colours) 

Answer 1

最も簡単な方法は、すべての組み合わせが、それはその値としてNAを持っている場合でも、存在するように、あなたのデータセットを補完することです。何のグループが「」ありません、グループ「B」に：

dat <- data.frame(a=rep(LETTERS[1:3],3), 
        b=rep(letters[1:3],each=3), 
        v=1:9)[-2,] 

ggplot(dat, aes(x=a, y=v, colour=b)) + 
    geom_bar(aes(fill=b), stat="identity", position="dodge") 

これはあなたが避けるようにしようとしている行動が示しています（あなたは、不要な機能をたくさん持っているとして）単純な例を取りますバーが広くなります。 aとbのすべての組み合わせを持つデータフレームでdatを補足：

dat.all <- rbind(dat, cbind(expand.grid(a=levels(dat$a), b=levels(dat$b)), v=NA)) 

ggplot(dat.all, aes(x=a, y=v, colour=b)) + 
    geom_bar(aes(fill=b), stat="identity", position="dodge") 

Answer 2

私は同じ問題を抱えていたが、パイプ（%>%）で機能するソリューションを探していました。 tidyverseからtidyr::spreadとtidyr::gatherを使用すると、このトリックは実行されません。ワイドに変換するとき、私は二重の変数名で終わらないように@Brian Diggsとしてではなく、大文字の変数名と同じデータを使用します。

library(tidyverse) 

dat <- data.frame(A = rep(LETTERS[1:3], 3), 
        B = rep(letters[1:3], each = 3), 
        V = 1:9)[-2, ] 
dat %>% 
    spread(key = B, value = V, fill = NA) %>% # turn data to wide, using fill = NA to generate missing values 
    gather(key = B, value = V, -A) %>% # go back to long, with the missings 
    ggplot(aes(x = A, y = V, fill = B)) + 
    geom_col(position = position_dodge())