Добавить название сюжета в ggvis

Я хочу добавить заголовок к графику ggvis. Я не могу найти пример нигде. Это просто сделать с другими графиками R, например,

library(ggplot2)
library(ggvis)
x <- 1:10
y <- x^2
df <- data.frame(x, y)

plot(x, y, main = "Plot Title")  # Base R with title
ggplot(df, aes(x, y)) + geom_point() + ggtitle("Plot Title")  # ggplot2 with title
df %>% ggvis(~x, ~y) %>% layer_points()  # ggvis but no title??

Чувствую, что я упускаю что-то очевидное. Любая помощь приветствуется.