ggplot2 - ひいきの引き倒し(6)

円グラフでさえ物議を醸すのに，こんなとんでもないグラフが紹介されていた
（紹介するのはしかたないとしても，そもそも，そんなトンデモ機能が実装されていること自体が問題なんだよな）

 

これはしょうもない帯グラフ？？

quan <- as.vector(table(iris1$Species))
pos <- cumsum(quan) - quan/2
quantity <- data.frame(Species=c("setosa", "versicolor", "virginica"), quantity=quan, position = pos)                       
                       
pie <- ggplot(iris1, aes(x=factor(1), fill=Species)) + geom_bar(width=1) + geom_text(data=quantity, aes(x=factor(1), y=position, label=quantity) , size=5) + labs(x="", y="")
pie

これが問題のグラフ。一体何なんだ。

pie + coord_polar()

これに比べれば，まだかわいげがある円グラフ。

pie + coord_polar(theta="y")