代码如下，想请教下，如何该，下面的图片可以和上面的图片一样
Ori.pic<-ggplot(data=Total,aes(x=Year,y=Rate))+geom_line(aes(color=type),size=0.25)+geom_point(aes(color=type,shape=type),size=1)+theme_linedraw()+theme(axis.title=element_text(size=6),axis.text.y=element_text(size=6),axis.text.x=element_text(size=6),legend.position="top",strip.text=element_text(size=6),legend.title=element_blank(),legend.text=element_text(size=6),panel.background=element_blank())+scale_y_continuous(name="年龄，年",breaks=23:27,sec.axis=sec_axis(~.*1,name="边际效应，年",breaks=23:27*1,label=format(c(23:27-25)/1,nsmall=1)))+scale_x_continuous(name="年份",breaks=seq(2013,2020),labels=seq(2013,2020),limits=c(2013,2020))，