12/01/30 23:07:03.68
フジテレビ式円グラフはどうやって作ればよいのでしょうか？
URLﾘﾝｸ(blog.livedoor.jp)
自分にはこんなのが精一杯でした．．．
library(ggplot2)
DF <- data.frame(age=c("10～20代", "30代","40代","50代"), value=c(97,78,78,94))
ggplot(DF, aes(x=age, y=value, fill = age)) +
geom_bar(width = 1) +
scale_y_continuous(breaks = 0:100) +
coord_polar() +
labs(x = "", y = "") +
opts(legend.position = "none", axis.text.y = theme_blank(),axis.ticks = theme_blank())