1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
library(ggvis)
# Histogram, fully specified
mtcars %>% ggvis(x = ~wt) %>%
compute_bin(~wt, width = 1, pad = FALSE) %>%
layer_rects(x = ~xmin_, x2 = ~xmax_, y = ~count_, y2 = 0)
# Or using shorthand layer
mtcars %>% ggvis(x = ~wt) %>% layer_histograms()
mtcars %>% ggvis(x = ~wt) %>% layer_histograms(width = 1)
# Histogram, filled by cyl
mtcars %>% ggvis(x = ~wt, fill = ~factor(cyl)) %>%
group_by(cyl) %>%
layer_histograms(width = 1)
# Bigger dataset
data(diamonds, package = "ggplot2")
diamonds %>% ggvis(x = ~table) %>% layer_histograms()
# Stacked histogram
diamonds %>% ggvis(x = ~table, fill = ~cut) %>%
group_by(cut) %>%
layer_histograms(width = 1)
# Histogram of dates
set.seed(2934)
dat <- data.frame(times = as.POSIXct("2013-07-01", tz = "GMT") + rnorm(200) * 60 * 60 * 24 * 7)
dat %>% ggvis(x = ~times) %>% layer_histograms()
|
