title: Ggplot facet wrap, leaving only upper and side labels
body: <p>I am having issues creating a plot with facets. It has 57 plots so I to be very considerate with space. I would  like to leave names of stations on the top and years on the sides. Is there a way to set labels only for specific facets? </p>
  
  <p>Here is an example plot:</p>
  
  <pre><code>ggplot(x)+ 
    geom_col(aes(x = days, y = irish_rules),size= 1)+
    scale_y_continuous(limits = c(0, 40) ) +
    theme(axis.title.x = element_blank(),
          axis.text.x=element_blank(),
          axis.ticks.x=element_blank(),
          axis.title.y=element_blank(),
          axis.text.y=element_blank(),
          axis.ticks.y=element_blank())+
    facet_wrap(~id, ncol = 3)+
    theme(strip.background = element_blank())
  </code></pre>
  
  <p><a href="https://i.stack.imgur.com/4gwb0.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/4gwb0.png" alt="enter image description here"></a></p>
  
  <p>And here is sample of the data: </p>
  
  <pre><code>x &lt;-structure(list(id = c("1983_Birr", "1983_Birr", "1983_Birr", 
  "1983_Birr", "1983_Birr", "1983_Birr", "1983_Birr", "1983_Birr", 
  "1983_Birr", "1983_Birr", "1983_Birr", "1983_Birr", "1983_Birr", 
  "1983_Birr", "1983_Birr", "1983_Casement", "1983_Casement", "1983_Casement", 
  "1983_Casement", "1983_Casement", "1983_Casement", "1983_Casement", 
  "1983_Casement", "1983_Casement", "1983_Casement", "1983_Casement", 
  "1983_Casement", "1983_Casement", "1983_Casement", "1983_Casement", 
  "1983_Kilkenny", "1983_Kilkenny", "1983_Kilkenny", "1983_Kilkenny", 
  "1983_Kilkenny", "1983_Kilkenny", "1983_Kilkenny", "1983_Kilkenny", 
  "1983_Kilkenny", "1983_Kilkenny", "1983_Kilkenny", "1983_Kilkenny", 
  "1983_Kilkenny", "1983_Kilkenny", "1983_Kilkenny", "1984_Birr", 
  "1984_Birr", "1984_Birr", "1984_Birr", "1984_Birr", "1984_Birr", 
  "1984_Birr", "1984_Birr", "1984_Birr", "1984_Birr", "1984_Birr", 
  "1984_Birr", "1984_Birr", "1984_Birr", "1984_Birr", "1984_Casement", 
  "1984_Casement", "1984_Casement", "1984_Casement", "1984_Casement", 
  "1984_Casement", "1984_Casement", "1984_Casement", "1984_Casement", 
  "1984_Casement", "1984_Casement", "1984_Casement", "1984_Casement", 
  "1984_Casement", "1984_Casement", "1984_Kilkenny", "1984_Kilkenny", 
  "1984_Kilkenny", "1984_Kilkenny", "1984_Kilkenny", "1984_Kilkenny", 
  "1984_Kilkenny", "1984_Kilkenny", "1984_Kilkenny", "1984_Kilkenny", 
  "1984_Kilkenny", "1984_Kilkenny", "1984_Kilkenny", "1984_Kilkenny", 
  "1984_Kilkenny"), short_date = structure(c(4953, 4954, 4955, 
  4956, 4957, 4958, 4959, 4960, 4961, 4962, 4963, 4964, 4965, 4966, 
  4967, 4953, 4954, 4955, 4956, 4957, 4958, 4959, 4960, 4961, 4962, 
  4963, 4964, 4965, 4966, 4967, 4953, 4954, 4955, 4956, 4957, 4958, 
  4959, 4960, 4961, 4962, 4963, 4964, 4965, 4966, 4967, 5320, 5321, 
  5322, 5323, 5324, 5325, 5326, 5327, 5328, 5329, 5330, 5331, 5332, 
  5333, 5334, 5320, 5321, 5322, 5323, 5324, 5325, 5326, 5327, 5328, 
  5329, 5330, 5331, 5332, 5333, 5334, 5320, 5321, 5322, 5323, 5324, 
  5325, 5326, 5327, 5328, 5329, 5330, 5331, 5332, 5333, 5334), class = "Date"), 
      irish_rules = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
      3, 16, 24, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 
      0, 0, 0, 9, 13, 0, 0, 0, 0, 0, 0, 5, 0, 4, 0, 0, 0, 0, 0), 
      days = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 
      13L, 14L, 15L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 
      12L, 13L, 14L, 15L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 
      11L, 12L, 13L, 14L, 15L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 
      9L, 10L, 11L, 12L, 13L, 14L, 15L, 1L, 2L, 3L, 4L, 5L, 6L, 
      7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 1L, 2L, 3L, 4L, 
      5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L)), .Names = c("id", 
  "short_date", "irish_rules", "days"), row.names = c(NA, -90L), vars = "id", drop = TRUE, indices = list(
      0:14, 15:29, 30:44, 45:59, 60:74, 75:89), group_sizes = c(15L, 
  15L, 15L, 15L, 15L, 15L), biggest_group_size = 15L, labels = structure(list(
      id = c("1983_Birr", "1983_Casement", "1983_Kilkenny", "1984_Birr", 
      "1984_Casement", "1984_Kilkenny")), row.names = c(NA, -6L
  ), class = "data.frame", vars = "id", drop = TRUE, .Names = "id"), class = c("grouped_df", 
  "tbl_df", "tbl", "data.frame"))
  </code></pre>