使用R绘制堆叠条形图但图例不显示，数据源为GridDB

常见问题原因 #

• 数据格式不匹配：barplot()绘制堆叠条形图时，要求输入为矩阵（matrix），而非tibble。直接传入tibble会导致图例逻辑失效。
• legend.text参数缺失：args.legend是传递给legend()的辅助参数，但必须先通过legend.text指定图例标签内容，否则args.legend无法生效。
• args.legend参数格式错误：比如位置参数设置不当（如未指定有效位置字符串或坐标），导致图例被绘制在画布可视范围外。

可运行的示例代码 #

假设你的tibble结构如下（模拟测试数据）：

library(tibble)
# 模拟从GridDB读取的tibble数据
test_data <- tibble(
  category = c("A", "B", "C"),
  group1 = c(10, 20, 15),
  group2 = c(5, 15, 20),
  group3 = c(8, 12, 18)
)

正确绘制带图例的堆叠条形图步骤： #

1. 将tibble转换为矩阵（提取数值列，行名设为类别）
2. 调用barplot()时指定legend.text和args.legend

# 转换为矩阵：提取数值列，行名为category
data_matrix <- as.matrix(test_data[, -1])
rownames(data_matrix) <- test_data$category

# 绘制堆叠条形图并显示图例
barplot(
  data_matrix,
  beside = FALSE,  # beside=FALSE表示堆叠模式（默认值，可省略）
  col = c("#FF6B6B", "#4ECDC4", "#45B7D1"),  # 给每个堆叠组设置颜色
  legend.text = colnames(data_matrix),  # 指定图例标签为矩阵列名
  args.legend = list(
    x = "topright",  # 图例位置
    bty = "n",  # 去掉图例边框
    cex = 0.8  # 图例文字大小
  ),
  main = "堆叠条形图示例",
  xlab = "类别",
  ylab = "数值"
)

额外注意事项 #

• 若tibble包含非数值列（如类别字符串、时间列），必须先过滤掉，仅保留需要堆叠的数值列再转换为矩阵。
• 若args.legend的位置设置导致图例被遮挡，可尝试用坐标手动指定位置，比如x = 3, y = 50。

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