R Ggplot镶嵌面包裹，只留下上部和侧面标签

我在创建带有方面的情节时遇到问题。它有57个情节，所以我必须非常考虑空间。我想在顶部留下电台名称，在两侧留下年份。是否有方法仅为特定面设置标签

下面是一个示例图：

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())

以下是数据样本：

x <-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"))

---

x您需要
将
id
列分为
年份
和
站点
，然后在它们上面使用
facet

库（tidyverse）
x1%
as.tible（）%>%
单独（id、c（“年”、“站”））
x1
#>#tibble:90 x 5
#>年站短日爱尔兰规则日
#>                    
#>1 1983年比尔1983-07-25 0。1.
#>2 1983年比尔1983-07-26 0。2.
#>3 1983年比尔1983-07-27 0。3.
#>4 1983年比尔1983-07-28 0。4.
#>5 1983年比尔1983-07-29 0。5.
#>6 1983年比尔1983-07-30 0。6.
#>7 1983年比尔1983-07-31 0。7.
#>8 1983年比尔1983-08-01 0。8.
#>9 1983年比尔1983-08-02 0。9
#>10 1983年比尔1983-08-03 0。10
#> # ... 还有80多行
ggplot（x1）+
geom_col（aes（x=天，y=爱尔兰规则），大小=1）+
连续刻度（限值=c（0,40））+
主题（axis.title.x=element_blank（），
axis.text.x=元素_blank（），
axis.ticks.x=元素_blank（），
axis.title.y=元素_blank（），
axis.text.y=元素_blank（），
axis.ticks.y=元素_blank（）+
分面网格（年~站）+
主题（strip.background=element\u blank（））


由（v0.2.0）于2018年3月15日创建。
我编辑了你的帖子，将（gg）图包括在内。我不清楚你想做什么。是否要删除镶嵌面？请您根据绘图进行解释，好吗？您需要将
id
字符串列分为年份和文本。然后您可以使用
facet\u网格（text~year）