如何在R的ggplot2中将同心圆中心调整至网格中心(5,5)？

没问题！我帮你调整代码，把同心圆的圆心移到(5,5)，同时保持网格刻度在0-25的范围。先拆解原代码里的关键问题：

• 你用annotation_custom(circleGrob(...))时，给的坐标范围是-x到x，这会把圆心固定在(0,0)；
• 函数参数用了x，和前面的数据集变量x重名，容易导致混淆；
• 刻度范围可能因为圆的位置自动收缩，需要强制锁定0-25。

方法1：基于你原代码修改（保留annotation_custom） #

直接调整annotation_custom的坐标范围，同时修正文本标签的位置：

require(ggplot2)
require(grid)

x <- rep(seq(25), 25)
y <- rep(seq(25), each=25)
circ_rads <- seq(1,5,2)

qplot(x, y) +
  # 把圆心移到(5,5)：x范围设为5±半径，y范围同理
  lapply(circ_rads, FUN = function(rad) {
    annotation_custom(
      circleGrob(gp = gpar(fill = "transparent", color = "black")),
      xmin = 5 - rad, xmax = 5 + rad,
      ymin = 5 - rad, ymax = 5 + rad
    )
  }) +
  # 调整文本标签到圆心上方
  geom_text(aes(x = 5, y = 5 + rad + 0.1, label = rad), data = data.frame(rad = circ_rads)) +
  coord_fixed(ratio = 1) +
  # 强制锁定刻度范围0-25
  xlim(0, 25) + ylim(0, 25)

方法2：更简洁的ggplot化方式（用ggforce的geom_circle） #

如果愿意引入ggforce包，代码会更直观，避免annotation_custom的坐标陷阱：

require(ggplot2)
require(ggforce)

x <- rep(seq(25), 25)
y <- rep(seq(25), each=25)
circ_rads <- seq(1,5,2)

# 先创建包含圆心和半径的数据框
circles_data <- data.frame(
  center_x = 5,
  center_y = 5,
  radius = circ_rads
)

qplot(x, y) +
  geom_circle(data = circles_data, aes(x0 = center_x, y0 = center_y, r = radius),
              fill = "transparent", color = "black") +
  geom_text(data = circles_data, aes(x = center_x, y = center_y + radius + 0.1, label = radius)) +
  coord_fixed(ratio = 1) +
  xlim(0, 25) + ylim(0, 25)

这两种方法都能实现你要的效果：圆心在(5,5)，网格刻度保持0-25，同心圆和标签位置正确。

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