Перенос фасета ggplot2: масштаб оси Y только в первом ряду

Question

Можно ли добавить ось Y в перенос фасетов, но только для первой строки, как показано на скриншоте?

Код для моего сюжета:

library(ggplot2)

mydf <- read.csv('https://dl.dropboxusercontent.com/s/j3s5sov98q9yvcv/BPdf_by_NB')

ggplot(data = mydf) +
  geom_line(aes(x = YEARMONTH, y = NEWCONS, group = 1), color="darkseagreen3")  +
  geom_line(aes(x = YEARMONTH, y = DEMOLITIONS, group = 1), color = "black") +
  theme_minimal() + 
  labs(title="New constructions Vs Demolitions (2010 - 2014)\n") +
  theme( axis.line = element_blank(),
         axis.title.x = element_blank(),
         axis.title.y = element_blank(),
         axis.text.x = element_blank(),
         axis.text.y = element_blank()) +
  facet_wrap(~ NB) 

Результат:

(Я вручную добавил легенду для места, где я хочу разместить шкалу)

Answer 1

Идея для этого была взята из этого ответа.

p <- ggplot(data = mydf) +
    geom_line(aes(x = YEARMONTH, y = NEWCONS, group = 1), color="darkseagreen3")  +
    geom_line(aes(x = YEARMONTH, y = DEMOLITIONS, group = 1), color = "black") +
    theme_minimal() + 
    labs(title="New constructions Vs Demolitions (2010 - 2014)\n") +
    theme( axis.line = element_blank(),
                 axis.title.x = element_blank(),
                 axis.text.x = element_blank()) +
    facet_wrap(~ NB) 

Обратите внимание на изменения в theme позвоните, чтобы мы могли выборочно удалить некоторые гробов позже.

library(gtable)
p_tab <- ggplotGrob(p)
print(p_tab)

Поэтому мы хотим удалить все элементы левой оси, кроме четырех. Есть gtable_filter использовать регулярные выражения, но было проще написать свою собственную функцию, которая выполняет простое отрицательное подмножество (так как я не смог создать правильное регулярное выражение):

gtable_filter_remove <- function (x, name, trim = TRUE){
    matches <- !(x$layout$name %in% name)
    x$layout <- x$layout[matches, , drop = FALSE]
    x$grobs <- x$grobs[matches]
    if (trim) 
        x <- gtable_trim(x)
    x
}

p_filtered <- gtable_filter_remove(p_tab,name = paste0("axis_l-",5:16),trim=FALSE)

library(grid)
grid.newpage()
grid.draw(p_filtered)