グループ化された棒グラフ

Question

次のデータがあります。

bin groupname   total_dist
0   rowA    377
0   rowA    306.6
0   rowB    2.1
0   rowB    110.6
1   rowA    918.1
1   rowA    463.2
1   rowB    798.2
1   rowB    1196
2   rowA    1295.1
2   rowA    1269.1
2   rowB    698
2   rowB    1022.1

Rを使用して、Rowaの棒とRowbのバーがある棒グラフを作成したい 各 置き場。どちらか一方でTotal_distをグループ化できます（plot(total_dist~bin) また plot(total_dist~groupname)）。しかし、私はそれらを組み合わせる方法を理解することはできません。

この例に似たものが欲しい：

Answer 1

これが古典的なソリューションです。 （データフレームに名前が付けられていると仮定します df )

data <- tapply(df$total_dist, list(df$groupname,df$bin), sum)

barplot(data,beside=T,col=c("#ee7700","#3333ff")
,main="European Parliament Elections",xlab="Group",ylab="Seats")

legend(locator(1),rownames(data),fill=c("#ee7700","#3333ff"))

そして、ここにGGPLOT2を使用したソリューションがあります

library(ggplot2)
qplot(factor(bin),data=df,geom="bar",fill=groupname,weight=total_dist,position="dodge",
main = "European Parliament Elections", xlab="Group",ylab="Seats")