color behind title

gistfile1.txt

library(ggplot2)
library(cowplot)

p <- ggplot(mtcars, aes(cyl, disp)) +
  geom_point() +
  labs(title = "But  China  and  India") +
  theme(
    plot.background = element_rect(fill = "transparent")
  )

ggdraw() +
  draw_line(x = c(0.145, 0.195), y = c(0.97, 0.97), size = 8, color = "orange", lineend = "round") +
  draw_line(x = c(0.287, 0.33), y = c(0.97, 0.97), size = 8, color = "darkslategray3", lineend = "round") +
  draw_plot(p)