R语言ggplot绘制直方图+限制立方样条+双坐标轴图

本期介绍一下，怎么使用ggplot绘制直方图+限制立方样条+双坐标轴图，如下

这篇文章的起因是看到某收费软件画的一个直方图+限制立方样条的叠加图，觉得蛮好看的，就是下图这个样子。

于是我查了一下相关文章，目前的画法主要都是通过plot函数来画，不仅作图不够美观，而且画得十分复杂，对新手不够友好，而且很难画出下面这种双叠加的图形。

于是产生了自己通过ggplot来画图的想法，难点在于直方图和RCS的数据量级不一样，放在同一张图需要通过等比例进行映射，然后通过双坐标表示。我们继续通过我们的年龄与吸烟数据来演示（公众号回复：吸烟数据3，可以获得数据），我们先导入R包和数据

library(rms) #RCS
library(survminer)#曲线
library(ggplot2)#画图
library(survival)
library("scales")
dt<-read.csv("E:/r/test/smoke3.csv",sep=',',header=TRUE)

我们来看下数据，ID:编号，time时间变量，status;结局变量，是否吸烟，age年龄，gender:性别,
和既往一样需要对数据进行整理

本人为转载文章，全文地址如下：https://mp.weixin.qq.com/s?__biz=MzI1NjM3NTE1NQ==&mid=2247486422&idx=1&sn=3c12dedd499c6cd243a815570b40af69&chksm=ea26ebcadd5162dc845856b98e78f416fe46ae93e425dfbd9acbbf4601ade94951cde620ec06#rd