Обернутая гранью ось X с вертикальными линиями вокруг каждого уровня

Question

У меня есть этот график с многоуровневой осью X:

Years <-  c("2016","2016","2016","2016",
           "2017","2017","2017","2017")
Quarters <-  c("Q1","Q2","Q3","Q4",
        "Q1","Q2","Q3","Q4")
Series1 <- c("100","200","300","400","500","600","700","800")
Series1 <- as.numeric(Series1)

df <- data.frame(Years,Quarters, Series1)

library(ggplot2)
ggplot(df) +
        geom_point(aes(x = Quarters, y = Series1)) + 
        facet_wrap( ~ Years, strip.position = "bottom",scales = "free_x") + 
        theme(panel.spacing = unit(0,"lines"), strip.background = 
element_blank(),
              strip.placement = "outside")

Мне интересно, позволит ли ggplot добавить линии вокруггруппы должны выглядеть так:

Answer 1

Это не такие строки, как вы просили, но это близко:

Years <-  factor(x = c("2016","2016","2016","2016",
            "2017","2017","2017","2017"), 
            levels = c("2016", "2017"))
Quarters <-  factor(x = c("Q1","Q2","Q3","Q4", "Q1","Q2","Q3","Q4"), 
                    levels = c("Q1","Q2","Q3","Q4"))
Series1 <- c("100","200","300","400","500","600","700","800")
Series1 <- as.numeric(Series1)

df <- data.frame(Years,Quarters, Series1)

library(ggplot2)
ggplot(df) +
    geom_point(aes(x = Quarters, y = Series1)) + 
    facet_wrap( ~ Years , strip.position = "bottom",scales = "free_x")