R中的变高金字塔图

我正在进行劳动力流动性分析，并希望创建一个金字塔图，其中金字塔的每个层次对应于工作级别，宽度对应于该级别的人数，高度对应于该职位的平均工作年限

样本数据：

---

employee\u lvl如果您知道如何对矩形进行参数化，那么使用普通的
geom\u rect（）
就很容易做到这一点。下面的示例假定数据顺序正确

我知道这可以被认为是“单独创建和堆叠矩形”，但至少你不必为每个矩形手动执行

库（ggplot2）
雇员