如何调整R语言条形图中图例的位置（含移出绘图区域方法）

这个问题我经常遇到，默认的图例位置确实容易挡住绘图区域，给你几个实用的调整方案，你可以根据需求选择：

方法1：将图例移到绘图区内的角落（简单快捷） #

你可以利用barplot的args.legend参数，直接指定图例的位置并微调偏移，避免完全贴边：

compare <- table(cats$color, cats$coat)
bar2 <- barplot(compare, 
                legend.text = rownames(compare),  # 用legend.text指定图例文本更规范
                main = 'Comparing coat design to color',
                args.legend = list(x = "topright",  # 指定位置为右上角
                                  inset = c(0.05, 0.05),  # 微调向内偏移的距离
                                  bty = "n"))  # 可选：去掉图例边框，让图更清爽

方法2：将图例移到绘图区域外（比如底部） #

如果想把图例完全移出绘图区，需要先调整绘图边距，给图例留出空间，再设置允许在区域外绘图：

# 先调整底部边距（默认mar是c(5,4,4,2)+0.1，这里把底部调大到8）
par(mar = c(8, 4, 4, 2) + 0.1)
compare <- table(cats$color, cats$coat)
bar2 <- barplot(compare, 
                legend.text = rownames(compare),
                main = 'Comparing coat design to color',
                args.legend = list(x = "bottom",  # 指定位置为底部
                                  inset = c(0, -0.25),  # 负数表示向外偏移
                                  bty = "n",
                                  xpd = TRUE))  # 关键：允许在绘图区域外绘制元素

方法3：手动调用legend()函数（最灵活） #

先绘制条形图，再单独添加图例，能精确控制位置，适合复杂布局：

compare <- table(cats$color, cats$coat)
# 先画条形图，不自动添加图例
bar2 <- barplot(compare, main = 'Comparing coat design to color')
# 手动添加图例到右侧外面
legend("right", 
       legend = rownames(compare),
       xpd = TRUE,  # 允许在区域外绘制
       inset = c(-0.2, 0),  # 水平方向向外偏移0.2个单位
       bty = "n")

小提示 #

• xpd=TRUE是让图例能显示在绘图区域外的关键参数
• inset的数值可以根据你的图的大小微调，直到位置满意
• 如果图例文字太长，还可以用cex参数缩小文字大小，比如cex=0.8

内容的提问来源于stack exchange，提问作者Reeza