Я пытаюсь добавить легенду к сюжету, который является верхним сюжетом фигуры из двух сюжетов. Тем не менее, легенда становится растянутой так, что ничего не видно, и это затеняет конец сюжета. Вот код для воспроизведения проблемы:
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"))
А вот как это выглядит:
Есть ли способ исправить это?