在同一张图中绘制2个条形图

Question

假设我有一个示例数据集

df <- data.frame(cat = letters[1:5], val1 = sample(1:10, 5), val2 = sample(1:10, 5))

我想在x轴上绘制一个带有cat的条形图，并为每只猫比较两个值，并用彼此靠近的单独条形图。
我想要的是看起来像这样的东西