読者です 読者をやめる 読者になる 読者になる

廿TT

譬如水怙牛過窓櫺 頭角四蹄都過了 因甚麼尾巴過不得

ggplot2 で欠けた円グラフ

R グラフ

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

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

f:id:abrahamcow:20170105071723p:plain

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