如何绘制带有行名与列名的矩阵中前5个值的条形图？

要实现从带行名、列名的矩阵中提取前5个值（这里默认指数值最大的前5个，若需按存储顺序取可看末尾说明）并绘制条形图，可通过数据格式转换+可视化两步完成，以下提供两种常用方法：

方法一：使用tidyverse工具链（dplyr + ggplot2） #

这种方法代码可读性高，适合数据处理和可视化的统一工作流：

# 加载所需包
library(tidyverse)

# 定义示例矩阵
rownames = c("row1", "row2", "row3", "row4")
colnames = c("col1", "col2", "col3")
P <- matrix(3:14, nrow = 4, byrow = TRUE, dimnames = list(rownames, colnames))

# 1. 将矩阵转换为长格式表格（关联行名、列名和对应值）
P_df <- as.data.frame(P) %>%
  rownames_to_column(var = "row_name") %>%
  pivot_longer(cols = -row_name, names_to = "col_name", values_to = "value")

# 2. 按值降序排序，提取前5个最大值
top5 <- P_df %>%
  arrange(desc(value)) %>%
  slice_head(n = 5)

# 3. 绘制条形图
ggplot(top5, aes(x = paste(row_name, col_name, sep = "-"), y = value)) +
  geom_bar(stat = "identity", fill = "#2E86AB") +
  labs(x = "行列组合", y = "数值", title = "矩阵前5个最大值条形图") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) # 旋转x轴标签避免重叠

方法二：使用Base R（无需额外包） #

如果不想加载第三方包，Base R也能完成相同操作：

# 定义示例矩阵
rownames = c("row1", "row2", "row3", "row4")
colnames = c("col1", "col2", "col3")
P <- matrix(3:14, nrow = 4, byrow = TRUE, dimnames = list(rownames, colnames))

# 1. 将矩阵转换为带行列名的表格
P_df <- as.data.frame.table(P, responseName = "value")
colnames(P_df) <- c("row_name", "col_name", "value")

# 2. 按值降序排序，取前5个最大值
top5 <- P_df[order(-P_df$value), ][1:5, ]

# 3. 绘制条形图
barplot(top5$value, 
        names.arg = paste(top5$row_name, top5$col_name, sep = "-"),
        col = "#2E86AB",
        xlab = "行列组合",
        ylab = "数值",
        main = "矩阵前5个最大值条形图",
        las = 2) # 垂直显示x轴标签

若需提取矩阵存储顺序的前5个值 #

如果不需要取最大值，而是按矩阵行优先/列优先的存储顺序取前5个，只需去掉排序步骤，直接提取前5行即可：

• 对于tidyverse方法：

top5_order <- P_df %>% slice_head(n = 5)

• 对于Base R方法：

top5_order <- P_df[1:5, ]

之后使用相同的绘图代码即可生成对应条形图。

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