library(ggplot2)
p <- ggplot(mtcars) +
geom_point(aes(mpg, disp)) +
labs(title = "A {.red *marquee*} title\n* Look at this bullet list\n\n* great, huh?") +
theme_gray(base_size = 6) +
theme(title = element_marquee())
plot(p)
ggplot(mtcars) +
geom_histogram(aes(x = mpg)) +
labs(title =
"I put a plot in your title so you can plot while you title

What more could you _possibly_ want?") +
theme(title = element_marquee())
Run the code above in your browser using DataLab