（ggplot2更新？）帶有百分比標籤的堆疊式barplot

Question

我正在複製一些所有腳本（一年前編碼），並發現我不再獲得相同的繪圖。我正在使用相同的數據集和相同的代碼;唯一的區別是我的R安裝版本和ggplot2 ---所以我認爲這是這裏的問題。

讓我告訴你幾個愚蠢的情節的問題。當有個標籤生產堆疊barplots我會做這樣的事情：

ess2 <- ddply(ess, .(essround2), function(.){ 
res <- cumsum(prop.table(table(factor(.$contplt2)))) 
    res2 <- prop.table(table(factor(.$contplt2))) 
    data.frame(lab=names(res), y=c(res), res2=res2, pos=cumsum(res2)-0.5*res2) 
}) 

ggplot(ess[ess$contplt2!="NA",], aes(x=essround2))+ 
    geom_bar(aes(fill=contplt2), position="fill")+ 
    geom_text(data=ess2[ess2$lab!="NA",], 
      aes(label=round(res2.Freq, 2), x=essround2, y=pos.Freq))+ 
    labs(x="ESS Round", y="Percent")+ 
    scale_x_discrete(breaks=c("R1", "R2", "R3", "R4", "R5", "R6"), 
        labels=c("2002", "2004", "2006", "2008", "2010", "2012"))+ 
    ggtitle("Contacted politicians")+ 
    scale_fill_manual(name="Contacted politician", values=c("#31a354", "#a1d99b")) 

結果會是這樣的：

截至今天，如果我嘗試完全相同的代碼完全相同的數據集，我得到了以下情節：

正如你可以看到第l阿貝爾沒有正確定位在酒吧上，顏色倒轉，使得情節的閱讀變得笨拙（就像堆積的情節已經不夠尷尬）。

對不起，沒有給你可重複的代碼，但我相信我的問題只是我沒有更新我的代碼，因爲ggplot2開發（或可能是plyr的問題？）如果你可以發現我的代碼中的「舊」製作第二個不可思議的情節，我將非常感激並樂意從那裏進行調查。

謝謝！

編輯：由於在評論中的建議，圖中的百分比是不同的，因爲我使用不同的國家（但相同的代碼和相同的數據集）。我公司生產的不同版本R和GGPLOT2的準確，完全一樣的情節，你可以看到，問題仍然存在：

Answer 1

嘗試切換兩次標籤的contplt2，前後產生ess2後。
希望它能幫助你。

# Here I try to reproduce your dataset 
ess <- data.frame(
essround2 = c(
c(rep(2002,76),rep(2002,100-76)), 
c(rep(2004,78),rep(2004,100-78)), 
c(rep(2006,81),rep(2006,100-81)), 
c(rep(2008,79),rep(2008,100-79)), 
c(rep(2010,79),rep(2010,100-79)), 
c(rep(2012,82),rep(2012,100-82)) 
), 
contplt2 = c(
c(rep("No",76),rep("Yes",100-76)), 
c(rep("No",78),rep("Yes",100-78)), 
c(rep("No",81),rep("Yes",100-81)), 
c(rep("No",79),rep("Yes",100-79)), 
c(rep("No",79),rep("Yes",100-79)), 
c(rep("No",82),rep("Yes",100-82)) 
) 
) 

# First switch of contplt2 levels 
ess$contplt2 <- factor(ess$contplt2, levels=levels(ess$contplt2)[c(2,1)]) 

library(plyr) 
library(ggplot2) 
ess2 <- ddply(ess, .(essround2), function(.){ 
res <- cumsum(prop.table(table(factor(.$contplt2)))) 
    res2 <- prop.table(table(factor(.$contplt2))) 
    data.frame(lab=names(res), y=c(res), res2=res2, pos=cumsum(res2)-0.5*res2) 
}) 

# Second switch of contplt2 levels 
ess$contplt2 <- factor(ess$contplt2, levels=levels(ess$contplt2)[c(2,1)]) 


ggplot(ess[ess$contplt2!="NA",], aes(x=essround2))+ 
    geom_bar(aes(fill=contplt2), position="fill")+ 
    geom_text(data=ess2[ess2$lab!="NA",], 
      aes(label=round(res2.Freq, 2), x=essround2, y=pos.Freq))+ 
    labs(x="ESS Round", y="Percent")+ 
    scale_x_discrete(breaks=c("R1", "R2", "R3", "R4", "R5", "R6"), 
        labels=c("2002", "2004", "2006", "2008", "2010", "2012"))+ 
    ggtitle("Contacted politicians")+ 
    scale_fill_manual(name="Contacted politician", values=c("#a1d99b", "#31a354"))