没有居中的同心圆图

Question

我有时会这样做，但我无法达成解决方案。我有这个代码使用R中的ggplot2绘制超过25个网格的同心圆。我不知道如何能够操纵同心圆的中心不在原点（0,0），而是在中心网格（5,5）。我也希望将网格的比例从25提高到25.非常感谢你提前

 require(ggplot2)
 require(grid)

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

qplot(x, y) +
  lapply(circ_rads, FUN = function(x)
      annotation_custom(circleGrob(gp = gpar(fill = "transparent", color = "black")), 
                        -x, x, -x, x)) +
  geom_text(aes(x = 0, y = circ_rads + 0.1, label = circ_rads)) +
  coord_fixed(ratio = 1)