如何为R语言barplot绘制的条形图添加图例？

嘿，我来帮你搞定这个问题！你已经用xtabs()和barplot()画出了条形图，要给它加图例其实很简单，有两种常用的方法，我给你一步步说明：

方法一：直接在barplot()中内置图例 #

这种方法最省心，直接在绘制条形图的同时就把图例加上，适合快速实现：

首先先优化下你的代码写法（更符合R的规范），然后添加图例参数：

# 生成交叉表，用data参数让代码更清晰
tab <- xtabs(~ Variable + Country, data = df)

# 绘制带图例的条形图
barplot(tab, 
        las = 1, 
        yaxp = c(0, 100, 5), 
        ylim = c(0, 100), 
        ylab = 'Variable', 
        col = c("red","darkblue"),
        legend.text = rownames(tab),  # 用Variable的类别作为图例文字
        args.legend = list(x = "topright", bty = "n")  # 控制图例位置和边框
)

• legend.text：指定图例显示的文字，这里用rownames(tab)就是你Variable列的各个类别，如果你想自定义文字，直接传向量就行，比如c("类别1", "类别2")。
• args.legend：用来设置图例的样式和位置，x="topright"把图例放在右上角，bty="n"可以去掉图例的边框，让图表更简洁。

方法二：单独调用legend()函数添加 #

如果你需要更灵活地控制图例的样式（比如调整字体大小、添加标题等），可以先画条形图，再单独加图例：

# 先绘制条形图，把返回值存下来（可选，方便后续定位）
bp <- barplot(tab, 
              las = 1, 
              yaxp = c(0, 100, 5), 
              ylim = c(0, 100), 
              ylab = 'Variable', 
              col = c("red","darkblue"))

# 单独添加图例
legend("topright",
       legend = rownames(tab),  # 图例文字
       fill = c("red","darkblue"),  # 对应条形的填充色，必须和barplot的col一致
       bty = "n",  # 去掉边框
       cex = 0.8  # 调整图例文字大小，可选
)

这种方法的好处是你可以给legend()加更多参数，比如title="变量类别"来给图例加标题，或者text.col="black"调整文字颜色等，自由度更高。

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