How can I keep the % symbol in the title?

library(ggtext)
library(ggplot2)

ggplot(mtcars, aes(cyl, mpg))  
  geom_col()  
  ggtitle("%")  
  theme(plot.title = element_markdown())

^{Created on 2022-01-28 by the}