极坐标系下，删除一条网格线

绘制南丁格尔玫瑰图，设置了y的取值范围和和坐标刻度，但是多出一条网格线（只想删除最外一圈

p1=ggplot(data=d,aes(x=a,y=Var,fill=Var))+
  scale_y_continuous(limits = c(0,10),breaks=c(2.5,5,7.5,10),expand=c(0,0))+
  scale_x_discrete(labels=d$Province,expand=c(0,0))+
  geom_bar(stat="identity",color="NA")+
  scale_fill_distiller(palette="Spectral",limits=c(0,10),name="Top5%/\nbottom5%")+
  coord_polar(theta="x",start=0)+
  geom_hline(aes(yintercept=2.74),size=0.5,color="#da1884")+
  geom_hline(aes(yintercept=5.51),size=0.5,color="#00a98f")+
 
  theme_bw()+ 
  theme(panel.border = element_blank(),
        panel.grid.minor=element_blank())+
  theme(axis.text.x=element_text(color="black",angle=d$myAngle,size=4.5),
        axis.ticks.x=element_blank())+
  theme(axis.ticks.y = element_blank(),axis.text.y = element_blank(),
        axis.title = element_blank())+
  theme(legend.title = element_text(size = 4.5), 
        legend.text = element_text(size = 4.5),
        legend.key.size=unit(0.4,'cm'));

网格线）

你好，我是有问必答小助手。为了技术专家团更好地为您解答问题，烦请您补充下（1）问题背景详情，（2）您想解决的具体问题，（3）问题相关代码图片或者报错信息。便于技术专家团更好地理解问题，并给出解决方案。

您可以点击问题下方的【编辑】，进行补充修改问题。