R 双坐标轴作图

ggplot

1

library(ggplot2)
library(hrbrthemes)
a<-data.frame('time'=c("2018.6","2018.12","2019.6","2020.3",
                       "2020.6","2020.12","2021.6"),
              'num'=c(56892,61011,63882,71027,74939,78241,81206),
              'perc'=as.numeric(c(71,73.6,74.8,78.6,79.7,79.1,80.3)))
a$perc<-as.numeric(a$perc)

ggplot(data=a,aes(x=time)) +
  geom_bar(aes(y=num),stat ='identity',fill='#69b3a2') +
  geom_text(aes(y = num + 3000, label = num)) +
  geom_line(aes(y=perc*1300,group=1),color='#E69F00',size=1.1) +
  geom_point(aes(y=perc*1300,group=1),color='#E69F00',size=3.2)+
  scale_y_continuous(
    name = "用户规模（万人）",
    sec.axis = sec_axis(tran