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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
# Modifying scales
library(ggvis)
set.seed(1014)
df <- data.frame(x = 1:5, y = 5:1, z = runif(5))
# Override default scale property
df %>%
ggvis(x = ~x, y = ~x) %>%
layer_points() %>%
scale_numeric("x", trans = "log") %>%
scale_numeric("y", trans = "log") %>%
save_spec("scales/log.json")
# Override default scale name
df %>%
ggvis(x = ~x, y = ~x, prop("fill", ~z, scale = "blah")) %>%
layer_points() %>%
add_legend("blah") %>%
save_spec("scales/custom.json")
# Dual scale
df %>%
ggvis(x = ~x) %>%
layer_points(prop("y", ~y, scale = "y-y"), fill := "red") %>%
layer_points(prop("y", ~z, scale = "y-z")) %>%
save_spec("scales/dual.json")
# Numeric domains
df %>%
ggvis(x = ~x, y = ~x, fill = ~z) %>%
layer_points() %>%
scale_numeric("x", domain = c(0, 10)) %>%
scale_numeric("fill", domain = c(0, 2)) %>%
save_spec("scales/domain_numeric.json")
# Datetimes
dat <- data.frame(
time = as.POSIXct("2013-07-01", tz = "GMT") + rnorm(40) * 60 * 60 * 24 * 7,
value = rnorm(40)
)
dat %>% ggvis(~time, ~value) %>% layer_points() %>%
save_spec("scales/datetime.json")
dat %>% ggvis(~time) %>% layer_histograms() %>%
save_spec("scales/datetime_hist.json")
# Two properties in one legend, one on a custom scale
df %>%
ggvis(x = ~x, y = ~x, fill = ~factor(y), prop("shape", ~factor(y), "shape2")) %>%
layer_points() %>%
add_legend(c("fill", "shape2")) %>%
save_spec("scales/combined_legend.json")
# Nominal x with bars
df %>%
ggvis(x = ~factor(x), y = ~y) %>%
layer_bars() %>%
save_spec("scales/bars.json")
# Hide axes and legends
df %>%
ggvis(x = ~x, y = ~y, fill = ~z, shape = ~factor(x)) %>%
layer_points() %>%
hide_legend("fill") %>%
hide_legend("shape") %>%
hide_axis("x") %>%
hide_axis("y") %>%
save_spec("scales/hide_guides.json")
|
