R语言包_manipulate

#Basic Usage
library(manipulate)
manipulate(plot(1:x), x = slider(1, 100))

#Slider Control
manipulate(
  plot(cars, xlim=c(0,x.max)),  
  x.max=slider(15,25))

#Picker Control
manipulate(
  barplot(as.matrix(longley[,factor]), 
          beside = TRUE, main = factor),
  factor = picker("GNP", "Unemployed", "Employed"))

#Checkbox Control
manipulate(
  boxplot(Freq ~ Class, data = Titanic, outline = outline),
  outline = checkbox(FALSE, "Show outliers"))

#Combining Controls
manipulate(
  plot(cars, xlim = c(0, x.max), type = type, ann = label),
  x.max = slider(10, 25, step=5, initial = 25),
  type = picker("Points" = "p", "Line" = "l", "Step" = "s"),
  label = checkbox(TRUE, "Draw Labels"))