R 创建一个相互重叠的双y轴

我试图在R中创建一个具有双y轴的图，类似于下图。有这样的选择吗？在GG2中？谢谢你的帮助

数据：结构（月=结构（160711610216130116161， 16191, 16222, 16252, 16283, 16314, 16344, 16375, 16405, 16436, 16467, 16495, 16526, 16556, 16587, 16617, 16648, 16679, 16709, 16740, 16770, 16801, 16832, 16861, 16892, 16922, 16953, 16983, 17014, 17045, 17075, 17106, 17136, 17167, 17198, 17226, 17257, 17287、17318、17348、17379、17410、17440、17471、17501），class=“日期”）， 年份=c（2014、2014、2014、2014、2014、2014、2014、2014、， 2014, 2014, 2014, 2014, 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2016, 2016, 2016, 2016, 2016, 2016, 2016, 2016, 2016, 2016, 2016, 2016, 2017, 2017, 2017, 2017, 2017, 2017, 2017, 2017, 2017, 2017, 2017, 2017 )，销售额=c（26837784235392020270706732542225， 386118, 23253, 65497, 106306, 123331, 385079, 186158, 146892, 237677, 158845, 125116, 16009, 217467, 227434, 95821, 30820, 22241, 261339, 217884, 49189, 217724, 450000, 102882, 304524, 328485, 166489, 236167, 227174, 55794, 362478, 48639, 83485, 3320, 348728, 178646, 390000, 98342, 225186, 114795, 168494, 销售移动平均值=c（227337226970， 232838.6, 249849.3, 251940.8, 221772.2, 240692.5, 216177.9, 214923.1, 189202.1, 174697.5, 204781.9, 184195.7, 171814.3, 168256.6, 181915.6, 155815.4, 155091, 170288, 182400.8, 179649.8, 144223.9, 127832.2, 139276.9, 137297.6, 126332, 135592.8, 178991.9, 167533.4, 175242.4, 198508.8, 212075.7, 233468.3, 230051.8, 213842.8, 245171.7, 228263.2, 191611.7, 181655.5, 186075.9, 171092, 193443.1, 179660.6, 179461.8, 185361.9, 165963.5196052.6215221.9），row.names=c（NA，48L），class=“data.frame”）

---

我通常使用ggpubr中的ggarrange。如果将两个绘图保存为p1和p2，则

ggpubr::ggarrange(p1, p2, nrow = 2, align = "v")

---

看起来像多个绘图窗格。请参见

facet\u wrap

例如，您的数据不是时间序列数据。您需要提供更多有关您试图实现的目标的信息/上下文。很抱歉，我复制了错误的数据。我用时间序列重新发布了一个，这应该能更好地反映图表。