Распространение фасцированных участков (R)

Question

Есть ли способ распространения фасетированных участков в ggplot2? Как вы можете видеть на картинке (нижняя часть моего сюжета), оси x перекрываются по краям каждого сюжета, затеняя годы. Я бы хотел их разделить. Независимо от того, насколько я увеличиваю ширину при экспорте, значения все еще перекрываются.

Мой код, если это уместно:

ggplot(filter(TotalsRegion, Source!="Total"), aes(x=Date, y=SourceSum, col=Source)) + 
    geom_line(size=1) + 
    facet_grid(.~Region) 

Answer 1

Поскольку вы не предоставили воспроизводимый пример, мы должны сделать для вас.

library(ggplot2) 
library(grid) 

data(mpg) 
mpg$displ <- mpg$displ + 2000 
p <- ggplot(mpg, aes(displ, cty)) 
p <- p + geom_point() 
p <- p + facet_grid(. ~ cyl) 
p 

p <- p + theme(panel.margin.x=unit(20, "pt")) 
p 

Это не страдает от перекрытия (не может сделать всю работу за вас), но, надеюсь, это понятно, что настройки полей панели сделать.