r - 使用 geom_circle 修复边界效果

Question

我使用 geom_circle 来生成一些圆圈。如果另外我用 xlim 或 ylim 设置限制，圆圈会改变。

library(ggforce) # for circles
library(gridExtra)

x <- seq(-2,2,by=4)
grid <- expand.grid(x,x)
df = data.frame(x=grid[,1],y=grid[,2], r = rep(4,nrow(grid)))

p1 <- ggplot() +
  geom_circle(aes(x0 = x, y0 = y, r = r), data = df) +coord_fixed()


p2 <- ggplot() +
  geom_circle(aes(x0 = x, y0 = y, r = r), data = df) +coord_fixed()+
  xlim(-2,2) +   ylim(-2,2)

grid.arrange(p1,p2)

我希望将绘图 p1 限制在 xlim 和 ylim 指定的区域