在图表周围添加框架

Question

请考虑这些数据示例：

e3 <- data.frame(400)
e3 <- rep( c("high", "medium", "low", "personal", "SPAM"), c(60, 120, 20, 50, 150))

我创建了一个饼图，我将图例放在图表的边缘之外，就像直接讨论here一样。

par(mar=c(5.1, 4.1, 4.1, 8.1), xpd=TRUE)
pie(table(e3), labels = paste(round(prop.table(table(e3))*100), "%", 
    sep = ""), col = heat.colors(5), main = "Mail received - n: 400"),     
    legend("topright", legend = c("High", "Medium", "Low", "Personal", 
    "SPAM"), fill = heat.colors(5), inset=c(-1,0), title = "Categories", cex = 0.55)

问题是图表周围的边距不可见。我将lwd = 2, col = "black"添加到了par()，但是当我想要一个黑色矩形时，没有任何内容出现。在图表周围。最有可能的是，我的介入没有正确指导。任何建议或建设性的批评都非常感激。