如何调整R ggplot代码使方块置于网格框内而非交叉处？

问题原因 #

当x、y轴为分类变量时，ggplot会自动将每个类别映射为连续的整数位置（如1、2、3...），geom_tile默认以这些整数位置为中心绘制方块，再配合theme_minimal的网格线默认对齐到这些整数位置，就会出现方块落在网格交叉处的视觉效果。

调整方法 #

核心思路是让方块占据分类变量对应的整个单元格区域，以下是两种简洁的实现方式：

方法一：调整离散坐标轴的扩展参数 #

通过scale_x_discrete()和scale_y_discrete()的expand参数去掉坐标轴两端的空白，确保方块刚好填满单元格，同时保持分类变量的映射方式，这是最简便的方案。

方法二：将分类变量转为数值位置并自定义坐标轴 #

把x、y的分类变量转为对应的整数位置，设置坐标轴范围为c(0.5, 类别数量+0.5)，让方块填充整个单元格，再手动设置坐标轴标签还原分类名称，适合需要精细控制坐标轴的场景。

修改后的完整代码（推荐方法一） #

ggplot(HLA, aes(x = ID, y = Description, fill = BETA)) +
  geom_tile(width = 1, height = 1) + # 保持方块尺寸为1
  scale_fill_gradient2(low = "blue", mid = "white", high = "red", 
                       midpoint = 0, # 颜色中点设为0
                       limits = c(-4, 2), # 颜色范围-4到2
                       guide = "colorbar", # 使用颜色条图例
                       breaks = c(-4, -3, -2, -1, 0, 1, 2, 3, 4)) + # 图例刻度
  # 调整离散坐标轴，去掉两端空白，让方块填满单元格
  scale_x_discrete(expand = c(0, 0)) +
  scale_y_discrete(expand = c(0, 0)) +
  labs(title = "关联分析结果", x = "HLA变异体", y = "表型", fill = "BETA值") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 30, hjust = 1)) + # x轴标签旋转30度
  theme(panel.grid.major = element_line(color = "white", size = 0.5), # 网格线设为白色
        panel.grid.minor = element_blank(), # 移除次要网格线
        panel.background = element_rect(fill = "grey95", colour = NA)) # 背景设为浅灰

方法二代码示例 #

# 先获取分类变量的数量
n_x <- length(unique(HLA$ID))
n_y <- length(unique(HLA$Description))

ggplot(HLA, aes(x = as.integer(ID), y = as.integer(Description), fill = BETA)) +
  geom_tile(width = 1, height = 1) +
  scale_fill_gradient2(low = "blue", mid = "white", high = "red", 
                       midpoint = 0, limits = c(-4, 2), 
                       guide = "colorbar", breaks = c(-4, -3, -2, -1, 0, 1, 2, 3, 4)) +
  # 设置坐标轴范围，让方块填满单元格
  scale_x_continuous(limits = c(0.5, n_x + 0.5), 
                     breaks = 1:n_x, labels = unique(HLA$ID)) +
  scale_y_continuous(limits = c(0.5, n_y + 0.5), 
                     breaks = 1:n_y, labels = unique(HLA$Description)) +
  labs(title = "关联分析结果", x = "HLA变异体", y = "表型", fill = "BETA值") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 30, hjust = 1)) +
  theme(panel.grid.major = element_line(color = "white", size = 0.5),
        panel.grid.minor = element_blank(),
        panel.background = element_rect(fill = "grey95", colour = NA))

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