GGplot和gridExtra有一个plott_grid图 - 如何完美贴合尺度？

Question

我正在使用grid.arrange()将两个地块合二为一。但是，其中一个图是使用facet_grid创建的，因此右侧有其他文本。因此，尺度不完全匹配（见下图）

我希望刻度完全高于或低于彼此，10高于10,9高于9等等。有人可以帮忙解决这个问题吗？我应该从facet_grid中删除文本吗？如果是这样，我该怎么办？

修改 用于说明我的问题的例子

g1 <- ggplot() +
  geom_point(data = neu1, aes(x = AGE, y = costs,
                               colour = Type, shape = Type),
             size = 3)+
  scale_x_continuous(limits = c(-1,10), breaks = seq(0,10,1))+
  ylab("Costs")

g2 <- ggplot() +
  geom_point(data = neu1, aes(x = AGE, y = costs,
                              colour = Type, shape = Type),
             size = 3)+
  scale_x_continuous(limits = c(-1,10), breaks = seq(0,10,1))+
  ylab("Costs")+
  facet_grid(Type ~.)
grid.arrange(g1,g2, nrow = 2)

这给出了以下输出，如上图所示，对于这个例子，两个图表没有多大意义，只是为了说明。

正如您所看到的，每个数字的网格线并不是彼此重叠，例如，上图中的AGE 10比右下图更靠右下方。再次感谢大家！

Answer 1

您应该可以使用＆＃34; strip＆＃34;删除小平面标签。 theme（）中的参数。

p + theme(strip.text = element_blank(), 
    strip.background = element_blank())

其中p是原始帖子的构面图。