R语言怎么把整个x轴标签右移

R语言做了柱状图，两组，3各时间点。
开始时时间点用英文标记，标记与柱状图是对齐的。
后来想把英文标记改成中文标记，结果就对不齐了。
请求帮助：怎么把这几个时间点的文字和柱状图对齐？

上图代码如下：mydataa<-dplyr::arrange(mydata,desc(时间))
mydataa$时间<-factor(mydataa$时间, levels = c("基线","随访6月","随访1年"),ordered = TRUE)
q3<-ggplot(data=mydataa,aes(x=时间, y=HFAz,fill =分组))+geom_bar(stat="identity",position=position_dodge(),color="white",width=0.6,alpha=0.6,)+scale_fill_manual(values =c("grey10","grey50"))+theme_classic()+theme(legend.position = "none")+geom_segment(x = 0.8,y=0.2,xend =2.8,yend =0.2,size=0.8)+geom_segment(x = 0.8,y=0.01,xend =0.8,yend =0.2,size=0.8)+geom_segment(x = 2.8,y=0.15,xend =2.8,yend =0.2,size=0.8)+annotate("text",x=1.7,y=0.23,label="*",size=7) + annotate("text",x=3.5,y=-1.1,label="A",size=5)+theme(axis.text.x=element_text(size=13,face ="plain",vjust =0.5,hjust =1,angle=0))
恳请高手赐教！

你好，我是有问必答小助手，非常抱歉，本次您提出的有问必答问题，技术专家团超时未为您做出解答


本次提问扣除的有问必答次数，将会以问答VIP体验卡（1次有问必答机会、商城购买实体图书享受95折优惠）的形式为您补发到账户。


​​因为有问必答VIP体验卡有效期仅有1天，您在需要使用的时候【私信】联系我，我会为您补发。