ggplot2 で欠けた円グラフ

久しぶりに円グラフを描きたくなった。

100% に満たない量を表す欠けた円グラフ。

library(cowplot)
dat<-data.frame(group=LETTERS[1:2],y=c(0.7,0.4))
ggplot(dat)+
  geom_bar(aes(x=group,y=y*100),width=100,stat ="identity")+
  ylim(c(0,100))+
  facet_wrap(~group)+
  coord_polar(theta ="y")+
  theme(axis.text.y = element_blank(),axis.ticks.y = element_blank())+
  xlab("")+ylab("")

円グラフの条件つき復権、つづき - macroscope