由facet剪辑的ggplot2点

Question

我在一个被小平面剪掉的情节边缘有点。

这是一个基于this question的虚拟示例，因为它是相关的。

library(ggplot2)
df1 <- data.frame(x=1:10,y=1:10,c=rep(c("a","b"),each=5))

p <- ggplot(df1,aes(x,y)) + 
  geom_point(size=10)+
  scale_y_continuous(expand=c(0,0))+
  facet_grid(c~.)

print(p)

我试过如下。但这不会影响切面。

gt <- ggplot_gtable(ggplot_build(p))
gt$layout$clip[gt$layout$name=="panel"] <- "off"
grid.draw(gt)

也试过

gt$layout$clip[gt$layout$name=="strip-right"] <- "off"

更改轴限制不是我要寻找的解决方案。这是一个虚拟的例子，可能不是最好的例子。但是，我有一个更复杂的情况，其中点被小平面修剪，轴限制也是固定的。

是否可以让小平面或小平面上显示的点向右移动一点。