Overlapping text lables about gggenomes HOT 2 CLOSED

library(gggenomes)

s0 <- tibble(
  seq_id = "A",
  length = 5000
)

g0 <- tibble(
  seq_id = "A",
  start=c(1000, 1500, 1550),
  end=start+50,
  gene=c("fooo", "baaar", "baaaz")
)

gggenomes(g0, s0) +
  geom_seq() + geom_gene() +
  geom_gene_tag(aes(label=gene))

library(ggrepel)
gggenomes(g0, s0) +
  geom_seq() + geom_gene() +
  geom_text(aes(x=(x+xend)/2, y=y+.1, label=gene, color="overlapping"), data=genes(),
                  hjust=0, vjust=0, angle=45) +
  geom_text_repel(aes(x=(x+xend)/2, y=y+.2, label=gene, color="repelled"), data=genes(),
                  hjust=0, vjust=0, angle=45, direction = "x")