ggvis exercises part 2: solutions

####################
#                  #
#    Exercise 1    #
#                  #
####################

library(ggvis)
library(MASS)
library(shiny)
library(magrittr)
attach(Cars93)
Cars93 %>%
  ggvis(~Horsepower, ~MPG.city) %>%
  layer_points()

####################
#                  #
#    Exercise 2    #
#                  #
####################

library(ggvis)
library(MASS)
library(shiny)
library(magrittr)
attach(Cars93)
Cars93 %>%
  ggvis(~Horsepower, ~MPG.city,
        size := input_slider(10, 100)) %>%
  layer_points()

####################
#                  #
#    Exercise 3    #
#                  #
####################

library(ggvis)
library(MASS)
library(shiny)
library(magrittr)
attach(Cars93)
Cars93 %>%
  ggvis(~Horsepower, ~MPG.city,
        size := input_slider(10, 100),
        opacity := input_slider(0, 1)) %>%
  layer_points()

####################
#                  #
#    Exercise 4    #
#                  #
####################

library(ggvis)
library(MASS)
library(shiny)
library(magrittr)
attach(Cars93)
Cars93%>%
  ggvis(~Horsepower) %>%
  layer_histograms()

####################
#                  #
#    Exercise 5    #
#                  #
####################

library(ggvis)
library(MASS)
library(shiny)
library(magrittr)
attach(Cars93)
Cars93%>%
  ggvis(~Horsepower) %>%
  layer_histograms(width=10,center=10)

####################
#                  #
#    Exercise 6    #
#                  #
####################

library(ggvis)
library(MASS)
library(shiny)
library(magrittr)
attach(Cars93)
Cars93%>%
  ggvis(~Horsepower) %>%
  layer_histograms(width =  input_slider(0, 10, step = 1),
                   center = input_slider(0, 10, step = 1))

####################
#                  #
#    Exercise 7    #
#                  #
####################

library(ggvis)
library(MASS)
library(shiny)
library(magrittr)
attach(Cars93)
Cars93%>%
  ggvis(~Horsepower) %>%
  layer_histograms(width =  input_slider(0, 10, step = 1,label="Width"),
                   center = input_slider(0, 10, step = 1,label="Center"))

####################
#                  #
#    Exercise 8    #
#                  #
####################

library(ggvis)
library(MASS)
library(shiny)
library(magrittr)
attach(Cars93)
Cars93 %>% ggvis(~Horsepower, ~MPG.city, size := 10, opacity := 0.5) %>% layer_points()

####################
#                  #
#    Exercise 9    #
#                  #
####################

library(ggvis)
library(MASS)
library(shiny)
library(magrittr)
attach(Cars93)
arrow <- left_right(10, 1000, step = 50)
Cars93 %>% ggvis(~Horsepower, ~MPG.city, size := arrow, opacity := 0.5) %>% layer_points()

####################
#                  #
#    Exercise 10   #
#                  #
####################

library(ggvis)
library(MASS)
library(shiny)
library(magrittr)
attach(Cars93)
Cars93 %>% ggvis(~Horsepower, ~MPG.city) %>%
  layer_points() %>%
  add_tooltip(function(df) df$Horsepower)