フジテレビ式円グラフはどうやって作ればよいのでしょうか？
http://blog.livedoor.jp/dqnplus/archives/1692812.html


自分にはこんなのが精一杯でした．．．

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())