объединить facet_wrap и geom_segment со свободной осью X?

Question

У меня есть граненый график столбцов, подобный этому:

ggplot(postgfc_prob, aes(x = as.character(Quarter), y = fitted, fill = as.factor(region))) +
  geom_col() +
  geom_segment(data = postgfc_prob, aes(x=as.numeric(as.factor(Quarter)) - 0.5, xend=as.numeric(as.factor(Quarter)) + 0.5, yend = Threshold, y= Threshold, colour = as.factor(region)), linetype = 1, size = 1.5) +
  facet_wrap(~ Country, scale = "fixed", ncol = 4) +
  theme(strip.background =element_rect(fill="grey")) +
  theme(strip.text = element_text(colour = 'black')) +
  theme(axis.text.x = element_text(angle = 270)) +
  scale_fill_manual(values=c("chocolate1", "red")) +
  ylab("SS Probability") +
  xlab("") +
  theme(legend.position = "none")

facet_wrap_sudden_stops

Я хотел бы точно такие же грани, но без пустых столбцов для каждой страны, т.е. scales="free_x"внутри эстетики geom_segment.Проблема в том, что изменение кода мешает с факторами

пример free_x

Есть предложения?Кроме того, почему цвет сегмента не соответствует цвету столбца?Спасибо за вашу помощь!