ggplot2绘图超出数据点范围及方块堆叠问题求助

我来帮你搞定这两个在ggplot2里绘制方块网格时遇到的问题，都是挺常见的小细节问题：

问题1：移除右侧和顶部的“额外点” #

其实你看到的不是真正的额外点，而是ggplot2默认的坐标轴扩展机制在搞鬼——它会自动在数据范围之外加一点留白，让边缘的元素看起来不那么挤，但这就导致你觉得右侧和顶部好像有超出数据的点。解决起来很简单，关掉坐标轴的扩展就行，同时记得固定坐标比例保证方块不变形：

library(ggplot2)

l = 1000
a <- seq(0, 1, 1/(l-1))
x <- rep(a, each = length(a))
y <- rep(a, length(a))
k <- length(x)
c <- sample(1:10, k, replace = TRUE)
data <- data.frame(x, y, c)

ggplot(data, aes(x = x, y = y)) +
  geom_point(shape = 15, color = c) +
  # 关闭坐标轴的额外留白，严格按照数据范围显示
  scale_x_continuous(expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0)) +
  # 固定x/y轴比例，确保方块是正的
  coord_fixed(ratio = 1)

ggsave('k.jpg', width = 10, height = 10)

加上expand = c(0, 0)之后，图像的边界就会严格对齐你的数据范围（0到1），边缘的方块也会刚好贴合图像边缘，不会再出现那种“超出数据”的视觉效果。

问题2：调整方块大小实现无空隙堆叠 #

当l=100时，相邻点的间距是1/(l-1)（因为从0到1一共l个点，间隔数是l-1）。要让方块完美填满整个区域没有空隙，有两种方法，推荐用第一种更直观的：

方法1：用geom_tile代替geom_point（推荐） #

geom_tile就是专门用来绘制矩形网格的，直接指定每个方块的宽高等于相邻点的间距，就能完美贴合，完全不用纠结size的计算：

l = 100
tile_size <- 1/(l-1) # 每个方块的宽高等于点间距
a <- seq(0, 1, tile_size)
x <- rep(a, each = length(a))
y <- rep(a, length(a))
k <- length(x)
c <- sample(1:10, k, replace = TRUE)
data <- data.frame(x, y, c)

ggplot(data, aes(x = x, y = y, fill = factor(c))) +
  geom_tile(width = tile_size, height = tile_size) +
  scale_x_continuous(expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0)) +
  coord_fixed(ratio = 1) +
  # 如果不需要图例可以加上这行
  guides(fill = "none")

ggsave('k_tile.jpg', width = 10, height = 10)

这里用fill来设置方块颜色，比geom_point的color更合适（shape=15的color虽然也能填充，但geom_tile天生就是干这个活的，逻辑更清晰）。

方法2：手动计算geom_point的size值 #

如果你一定要用geom_point(shape=15)，那得根据图像的物理尺寸来计算合适的size。ggplot2的size单位是毫米，我们可以把图像宽度转换成毫米，再乘以点间距的比例，得到刚好填满间隙的size：

l = 100
img_width_mm <- 10 * 25.4 # 10英寸转换成毫米（1英寸=25.4mm）
point_spacing <- 1/(l-1)
point_size <- img_width_mm * point_spacing # 计算点的直径

a <- seq(0, 1, point_spacing)
x <- rep(a, each = length(a))
y <- rep(a, length(a))
k <- length(x)
c <- sample(1:10, k, replace = TRUE)
data <- data.frame(x, y, c)

ggplot(data, aes(x = x, y = y)) +
  geom_point(shape = 15, color = c, size = point_size) +
  scale_x_continuous(expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0)) +
  coord_fixed(ratio = 1)

ggsave('k_point.jpg', width = 10, height = 10)

注意这个size值和你ggsave里设置的width/height直接相关，如果改变图像尺寸，得重新计算这个值。

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