library(magrittr)
library(ggvis)
tokyo <- data.frame(x=c(1,2,3,4,5), y=c(2,2.5,2,2.5,2), label=c("t","o","k","y","o"), color=c("red","blue","green","yellow","purple"))
gorin <- data.frame(x=c(1,2,3,4,5), y=c(1,1.2,1,1.2,1), label=c("g","o","r","i","n"), color=c("red","blue","green","yellow","purple"))
slider <- input_slider(0, 360, value = 30)
ggvis() %>%
layer_text(data = tokyo, ~x, ~y, text:=~label, fill:=~color, angle := slider, fontSize:=100) %>%
layer_text(data = gorin, ~x, ~y, text:=~label, fill:=~color, angle := slider, fontSize:=100)
## Warning: Can't output dynamic/interactive ggvis plots in a knitr document.
## Generating a static (non-dynamic, non-interactive) version of the plot.