ggplot(mydata) +
+ geom_bar(aes(x=a, y=b),width = 1,stat="identity",
+ colour = "black",fill="#F8766D") +
+ geom_text(aes(x=a,y = b-8,label = b),color="white") +
+ coord_polar(theta = "x",start=0) +
+ ylim(c(0,120))+
+ theme_light()+
+ theme( panel.background = element_blank(),
+ panel.grid.major = element_line(colour = "grey80",size=.25),
+ axis.text.y = element_text(size = 12,colour="black"),
+ axis.line.y = element_line(size=0.25),
+ axis.text.x=element_text(size = 13,colour="black",angle = myAngle))
ggplot(diamonds,aes(x=clarity,fill=color))+
+ geom_bar(width=1.0,colour="black",size=0.25)+
+ coord_polar(theta = "x",start=0)+
+ scale_fill_brewer(palette="GnBu")+
+ guides(fill=guide_legend(reverse=TRUE,title=NULL))+
+ ylim(c(0,12000))+
+ theme_light()+
+ theme( panel.background = element_blank(),
+ panel.grid.major = element_line(colour = "grey80",size=.25),
+ axis.text.y = element_text(size = 12,colour="black"),
+ axis.line.y = element_line(size=0.25),
+ axis.text.x=element_text(size = 13,colour="black",angle = myAngle))
> ggplot(diamonds,aes(x=clarity,fill=color))+
+ geom_bar(width=1.0,colour="black",size=0.25)+
+ coord_polar(theta = "x",start=0)+
+ scale_fill_brewer(palette="Reds")+
+ guides(fill=guide_legend(reverse=TRUE,title="Color"))+
+ ylim(c(-2000,12000))+ #这里是关键
+ theme_light()+
+ theme( panel.background = element_blank(),
+ panel.grid.major = element_line(colour = "grey80",size=.25),
+ axis.text.y = element_text(size = 12,colour="black"),
+ axis.line.y = element_line(size=0.25),
+ axis.text.x=element_text(size = 13,colour="black",angle = myAngle))
原创声明:本文系作者授权腾讯云开发者社区发表,未经许可,不得转载。
如有侵权,请联系 cloudcommunity@tencent.com 删除。
原创声明:本文系作者授权腾讯云开发者社区发表,未经许可,不得转载。
如有侵权,请联系 cloudcommunity@tencent.com 删除。
扫码关注腾讯云开发者
领取腾讯云代金券
Copyright © 2013 - 2025 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号:粤B2-20090059 深公网安备号 44030502008569
腾讯云计算(北京)有限责任公司 京ICP证150476号 | 京ICP备11018762号 | 京公网安备号11010802020287
Copyright © 2013 - 2025 Tencent Cloud.
All Rights Reserved. 腾讯云 版权所有