使用R中的镜像直方图进行倾向得分分布

Question

我想创建一个镜像直方图，如下面的示例图所示。简要说明：x轴是连续变量（倾向得分，从0到1），y轴是个体计数。上部需要显示处理后部分和未处理部分的倾向评分分布。此外，我想表明每个治疗组中患者的比例是多少。

示例图表：

此问题之前曾在此论坛上提出过。见here

提供的解决方案很好，但是，它将x轴定义为变量的向量，用于声明经处理，未经处理，匹配处理，匹配未处理的变量（宏观中的变量）。我想将x轴定义为倾向得分，但无法找到修改此研究人员创建的#multhist宏的方法。

请指教。感谢您的时间！