R 双X轴图制作，求大神制作代码

图片说明

大神请问上图怎么做的？求代码！