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

An interactive plot:

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

An interactive table:

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


rstudio/ggvis documentation built on Feb. 5, 2024, 9:13 p.m.