Я бы попробовал это
mg <- ggplot(mtcars, aes(x = mpg, y = wt)) + geom_point() +
scale_x_continuous(limits = c(7,35), expand = c(0,0), breaks = seq(5,35,5)) +
facet_grid(vs + am ~ gear)
mg
расширение обычно добавляет немного места, и вы можете поиграть с этим или вы можете настроить пределы.Когда вы делаете это, он сбрасывает последовательность чисел, поэтому вы должны также установить это ...