带有一个绘图facet_grid的GGplot和gridExtra-如何完美匹配比例尺？

Question

I am using grid.arrange() to put two plots in one. However, one of the plots is created using facet_grid and thus has additional text on its right side. Therefore the scales do not perfectly match (see picture below)

I want the scales to be perfectly above or underneath each other, 10 above 10, 9 above 9 and so on. Can anybody help on how to achieve this? Should I remove the text from the facet_grid? If so, how can I do so?

EDIT Exampe for illustrating my issue

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)

This gives the following output as to be seen in the picture above, for this example two plots do not make too much sense, it is just for illustration.

As you can see, the gridlines for each number are not on top of each other, for example AGE 10 on the upper plot is further to the right side than on the lower plot. Thank you once more to all!

Answer 1

You should be able to remove the facet labels with "strip" arguments in theme().

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

Where p is the the facet plot from the original post.