全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
2566 1
2019-10-25
悬赏 5 个论坛币 未解决
[img]file:///C:\Users\LB\Documents\Tencent Files\121537351\Image\Group\Q7O7HUA{$OR_Z_@M7%YP@GP.jpg[/img]请教一下,我想在玫瑰图中直接标出y轴的标签,不知道怎么实现,目前的代码是:
library(ggplot2)
library(tidyverse)
mydata<-data.frame(a=c("Mon","Tues","Wed","Thur","Fri","Sat","Sun"),b=c(50,60,70,20,90,110,30))
myangle<-seq(-20,-340,length.out=7)
mydata%>%mutate(re=factor(a,levels=c("Mon","Tues","Wed","Thur","Fri","Sat","Sun")))%>%
  
  ggplot(aes(x=re,y=b,fill=factor(b)))+
  geom_bar(width=1,stat="identity",colour="black",fill="#F8766D")+
  geom_text(aes(y=b-8,label=b),colour="white")+
  coord_polar(theta="x",start=0)+ylim(-20,120)+
  theme_light()+
  theme(axis.text.x=element_text(size=13,colour="black",angle=myangle))


微信图片_20191025131741.png

原图尺寸 17.11 KB

微信图片_20191025131741.png

TIM图片20191025131532.jpg

原图尺寸 186.27 KB

TIM图片20191025131532.jpg

二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

全部回复
2019-12-12 12:45:14
请问您做出来了吗,我也想做这个 ,想向您请教一下~
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

相关推荐
栏目导航
热门文章
推荐文章

说点什么

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群