ggplot2：私は党ののパーセントで互いの上に積層されているだけで1つのビンと積み重ね棒グラフにこれを取得しようとしています1つのビニング積み重ね棒グラフ

Question

Dataset looks like this and is entitled rotterdam3

に2つのビニング棒グラフを入れて彼らが獲得した投票シェア。私のコードは次のとおりです。 Party変数には2つのものがあるので、それを1つの変数に入れないので、私は自分の問題を知っています。私はこれをどのように変更するのか不明です。私はx引数を取り出そうとしましたが、ggplotはgeombarでそれを許可しません。

ggplot(rotterdamparty3, aes(Party, PercVote, fill=Variable)) + 
    geombar(stat="identity") 
xlab("Party") + 
ylab("Percent of vote share") + 
ggtitle("Total Cote Share between VVD and PVV in Rotterdam") + 
theme(axis.title.x=element_blank(), 
scale_fill_manual(values=c("darkblue, "chocolate3"), labels=c("VVD", "PVV")) + 
theme(text=element_text(size=14, vjust=1, family="Trebuchet MS")) + 
theme(panel.background = element_rect(fill='gray95', colour='white')) 

Answer 1

コードにエラーがありました。私はコードを修正して素早くdata.frameを作成する自由を取った。

library(ggplot2) 
library(reshape2) 
## make data.frame: 
rotterdamparty3 <- data.frame(Party=c("PVV TK17", "VVD TK17"), 
           Variable=c("PVV", "VVD"), 
           RawVote=c(50260, 51661), 
           PercVote=c(49.3127, 50.6873)) 



## edit: geombar -> geom_bar, 
## edit: put "+" after geom_bar() 
## edit: "darkblue -> "darkblue" 
## edit: "Cote" -> "Vote" 
## edit: moved first theme() instance and closed parenthesis. 
ggplot(rotterdamparty3, aes(Party, PercVote, fill=Variable)) + 
    geom_bar(stat="identity") + 
    xlab("Party") + 
    ylab("Percent of vote share") + 
    ggtitle("Total Vote Share between VVD and PVV in Rotterdam") + 
    scale_fill_manual(values=c("darkblue", "chocolate3"), 
        labels=c("VVD", "PVV")) + 
    theme(axis.title.x=element_blank(), 
     text=element_text(size=14, vjust=1, family="Trebuchet MS"),  
     panel.background = element_rect(fill='gray95', colour='white')) 

あなたは1つのバーですべてをしたい場合は、別のパーティーのために同じ値を持つ「ダミー」X変数を作成します。また、質問の中でラベルを指定した方法は、どちらの当事者がPercVoteの値を持っているかを実際に切り替えたと思います。ラベルをコメントアウトしてggplot2に自動的に処理させてください。色が正しいパーティーに帰されない場合は、下のコードで色の順序を入れ替えてください。私のデータセットは私の質問のトップにリンクされているように見える何

## Create X 
rotterdamparty3$X <- " " 


## Put X into aes() 
ggplot(rotterdamparty3, aes(X, PercVote, fill=Variable)) + 
    geom_bar(stat="identity")+ 
    xlab("Party") + 
    ylab("Percent of vote share") + 
    ggtitle("Total Vote Share between VVD and PVV in Rotterdam") + 
    scale_fill_manual(values=c("darkblue", "chocolate3")#, 
        #labels=c("VVD", "PVV") 
) + 
    theme(axis.title.x=element_blank(), 
     text=element_text(size=14, vjust=1, family="Trebuchet MS"),  
     panel.background = element_rect(fill='gray95', colour='white'))