ggvis

library(ggvis)

# no values specified
iris %>% ggvis(~Sepal.Width) %>% layer_histograms(width = 1)  %>%
  add_axis("y", title = "Count", title_offset="50") %>% 
  add_axis("x", title = "Width", title_offset="50")

#0 to 150
iris %>% ggvis(~Sepal.Width) %>% layer_histograms(width = 1)  %>%
  add_axis("y", title = "Count", title_offset="50",  values = seq(0,150, by = 10))  %>%
  scale_numeric("y", domain = c(0, 150), nice = FALSE) %>% 
  add_axis("x", title = "Width", title_offset="50")

#0 to 175
iris %>% ggvis(~Sepal.Width) %>% layer_histograms(width = 1)  %>%
  add_axis("y", title = "Count", title_offset="50",  values = seq(0,200, by = 10))  %>%
  scale_numeric("y", domain = c(0, 200), nice = FALSE) %>% 
  add_axis("x", title = "Width", title_offset="50")

#0 to 250
iris %>% ggvis(~Sepal.Width) %>% layer_histograms(width = 1)  %>%
  add_axis("y", title = "Count", title_offset="50",  values = seq(0,250, by = 10))  %>%
  scale_numeric("y", domain = c(0, 250), nice = FALSE) %>% 
  add_axis("x", title = "Width", title_offset="50")

#0 to 500
iris %>% ggvis(~Sepal.Width) %>% layer_histograms(width = 1)  %>%
  add_axis("y", title = "Count", title_offset="50",  values = seq(0,500, by = 10)) %>% 
  scale_numeric("y", domain = c(0, 500), nice = FALSE) %>% 
  add_axis("x", title = "Width", title_offset="50")

ggvis

s

10 octobre 2015