增加条形图的图例框

Question

我想要一个带有文字阅读的传奇（所以说文字之间有一点间隙），但到目前为止，如果不丢失传说中的文字，我就无法获得更大的文字（见图） 。

我将这个编程文本和par-function用于条形图和图例：

par(mfrow = c(1, 1), mar = c(4, 1, 3, 3), xpd = TRUE, oma = c(4, 1, 1, 1))

barplot <- barplot(data, beside=TRUE, ylim = c(0, 25),
                   cex.names = 0.8, cex.axis = 0.75, 
                   col = c("gray", "lightblue", "#0078FF", "lightgreen"))

准备传奇：

leg.txt2 <- c("position 1", "position 2", "position 3", "position 4")    
leg.col2 <- c("gray", "lightblue", "#0078FF", "lightgreen")
layout(rbind(1, 2), heights = c(7, 1))

在传奇

上设置“无边距”

par(mar = c(0, 0, 0, 0), xpd = TRUE, cex = 0.8)
legend("left", leg.txt2, y.intersp=1.5, xpd=TRUE, 
       bty="n", pch=15, col=leg.col2, cex=0.8, pt.cex=0.8)

有人知道，如何增加传奇的方框？