Agregar un título de trama a ggvis

Quiero agregar un título a un diagrama de ggvis. No puedo encontrar un ejemplo en ningún lado. Es fácil de hacer con otros gráficos R, p.

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??

Siento que me falta algo obvio. Cualquier ayuda apreciada.

Respuestas a la pregunta(3)

Su respuesta a la pregunta