R语言barplot图例位置调整及图例颜色手动修改问题

问题描述 #

已有数据框，手动为各列条形指定对应颜色，但使用barplot时：

• legend=TRUE无法生效，图例颜色显示错误
• 图例与图表区域重叠

解决步骤 #

1. 调整图例位置

通过barplot的args.legend参数传入图例控制参数，可使用位置关键词（如"topright"、"bottom"、"outside"）或具体坐标指定图例位置，还可设置bty="n"去掉图例边框，减少遮挡。

2. 手动指定图例方块颜色

由于barplot的col参数是重复的颜色向量（每个列的颜色重复nrow(df)次），默认图例会取前N个颜色（N为图例数量），导致颜色不匹配。需要在args.legend中用fill参数直接传入自定义的颜色向量col.colors，确保图例颜色与条形颜色一一对应。

修正后的代码 #

df <- data.frame(A=c(3,2,1,4,5),B=c(1,6,3,8,4),C=c(2,1,4,8,9), D=c(4,1,2,4,6))
row.names(df)<-c("R1","R2","R3","R4","R5")

col.colors <- c(A="green", B="red", C="yellow", D="blue")
barplot(as.vector(as.matrix(df)), 
        names = as.matrix(df), 
        col=rep(col.colors[colnames(df)], each=nrow(df)), 
        legend.text=names(col.colors), # 直接调用颜色向量的名称，避免手动输入出错
        args.legend = list(
          x = "topright", # 指定图例在右上角
          fill = col.colors, # 绑定自定义颜色到图例方块
          bty = "n", # 移除图例边框
          cex = 0.8 # 缩小图例文字，避免拥挤
        ))

拓展：图例放在图表外部 #

若想将图例移到图表外部，需先调整绘图边距，再通过inset参数偏移图例：

par(mar = c(5,4,6,2)) # 加大上方边距，预留图例空间
barplot(as.vector(as.matrix(df)), 
        names = as.matrix(df), 
        col=rep(col.colors[colnames(df)], each=nrow(df)), 
        legend.text=names(col.colors),
        args.legend = list(
          x = "top", 
          fill = col.colors, 
          bty = "n", 
          inset = c(0, -0.1), # 将图例向外偏移
          cex = 0.8
        ))
par(mar = c(5,4,4,2)) # 恢复默认绘图边距

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