R中的条形图有问题吗？

这个想法来自于这个（）。这是我正在使用的代码

     #Data generation
     Month1 <- c(201812,20191,20192,20193,20194,20195,20196,
       20197,20198,20199,201910,201911,201912,20201
       ,20202,20203,20204,20205,20206,20207
       ,20208,20209,202010,202011)
     annualjobgrowth<- c(44400,46000,42600,40500,42800,40500,36000,
                        34000,32300,29900,21900,24500,21000,
                        23300,16000,-6200,-275600,-249500,-149200,
                        -136500,-129900,-122800,-113900,-109500)
        Rate <- 
       c(3.3,3.4,3.1,3.0,3.1,2.9,2.6,2.5,2.3,2.1,1.6,1.7,1.5,1.7,1.1,-0.4,
      -19.5,-17.6,-10.5,-9.6,-9.1,-8.6,-8.0,-7.7)
       cesyoy <- data.frame(Month1,annualjobgrowth, Rate)

      #Chart
      library(ggplot2)
      firstces<-ggplot(cesyoy)  + 
      geom_bar(aes(x=Month1, y=annualjobgrowth),stat="identity", fill="tan1", 
      colour="sienna3")+
      geom_line(aes(x=Month1, y=Rate),stat="identity")+
      geom_text(aes(label=Rate, x=Month1, y=Rate), colour="black")+
      geom_text(aes(label=annualjobgrowth, x=Month1, y=0.9*annualjobgrowth), 
      colour="black")
      ggsave("firstces.png")

#数据生成
Month1您的
Month1
变量是数字。如果您将其更改为日期，那么您将通过代码的其余部分获得预期的结果。由于
年度工作岗位增长
和
比率
的比例非常不同，因此可以使用次轴并缩放数据，以将两者拟合到同一个图中。那里仍然很拥挤，但你明白了


Month1@RonakShah，问题已编辑。