如何在R的ggplot中实现热图按指定列数换行展示货架数据

核心思路是手动计算每个货架在热图中的坐标，模拟现实的列布局（每列8个货架），再用geom_tile绘制连续热图，而非用分面函数拆分独立小图。

步骤1：预处理数据，计算坐标 #

给每个货架分配对应的列（x轴）和列内行（y轴）坐标，匹配现实货架的排列逻辑：

• 列号：用ceiling(Shelf/8)计算，1-8号货架归为第1列，9-16号归为第2列，以此类推
• 列内行号：为对应现实中“从上到下1-8号”的布局，让货架号1对应热图最上方（y=8），货架号8对应最下方（y=1），同时处理8的倍数的特殊情况

示例代码：

library(dplyr)
library(ggplot2)

# 假设你的数据集名为shelf_data，包含Row、Shelf、count三列
shelf_data <- shelf_data %>%
  mutate(
    # 计算列号（x轴）
    col = ceiling(Shelf / 8),
    # 计算列内行号（y轴），适配从上到下的货架顺序
    row_in_col = ifelse(Shelf %% 8 == 0, 1, 9 - (Shelf %% 8))
  )

步骤2：绘制连续热图 #

用geom_tile将每个货架绘制成色块，按计算好的坐标排列，可添加货架号标签增强可读性：

ggplot(shelf_data, aes(x = col, y = row_in_col, fill = count)) +
  # 绘制货架色块，白色边框区分不同货架
  geom_tile(color = "white", size = 0.5) +
  # 添加货架号标签
  geom_text(aes(label = Shelf), color = "black", size = 3) +
  # 调整y轴标签，对应现实中从上到下1-8的货架顺序
  scale_y_continuous(breaks = 1:8, labels = 8:1) +
  # 调整x轴标签为列号
  scale_x_continuous(breaks = 1:ceiling(max(shelf_data$Shelf)/8)) +
  # 设置轴标题和图例标题
  labs(x = "列", y = "货架位置（从上到下）", fill = "物品数量") +
  # 优化主题样式
  theme_minimal() +
  theme(
    panel.grid = element_blank(),
    axis.text = element_text(size = 10)
  )

为什么facet_wrap(~Shelf, ncol=6)不行？ #

facet_wrap的作用是将每个分组（此处为单个货架）拆分为独立子图，而你需要的是所有货架在同一个坐标系内按位置连续排列，因此分面函数不符合需求，必须通过手动计算坐标的方式实现。

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