R语言画散点拟合曲线阴影底部小直方图

[img]file:///C:\Users\dell\AppData\Roaming\Tencent\Users\1252672778\QQ\WinTemp\RichOle\1[T%9JTGD9UCXYKXX3KN45A.png[/img]请问大佬们，这种关于时间序列的，含有散点，又有拟合曲线和阴影，还有下面的小频数分布直方图，该怎么画？需要用到哪些包，能不能帮举个例子说明，感激不尽！

这是ggplot2画的吧

ggplot2画的，直接下载安装ggplot2,然后自己去学吧。