library(knitr)
library(ggvis)
library(shiny)
library(dplyr)

An interactive plot:

cocaine %>%
  ggvis(x = ~potency) %>%
  layer_histograms(binwidth = input_slider(1, 20, value = 5))  

An interactive table:

cocaine %>%
  group_by(state) %>%
  summarise(potency = mean(potency), weight = mean(weight)) %>%
  renderDataTable()


rpruim/ggvis2 documentation built on May 28, 2019, 2:34 a.m.