R-在图例中添加图例，其中par（mfrow = c（2，1））

Question

我正试图在图上添加图例，这是两个图的顶部图。但是，图例正被广泛地展开，以至于看不到任何东西，并且使故事的结尾变得模糊不清。这是重现该问题的代码：

cars = c(1, 3, 6, 4, 9)

par(mfrow = c(2, 1), mar=c(5,5,2,2))
plot(cars)

legend("topright", legend=c("label1", "label2"))

这是它的样子：

有什么办法可以解决这个问题？