使用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指定的区域