Create a subvisualisation.
1 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | # Examples don't work yet
## Not run:
library(dplyr, warn.conflicts = FALSE)
small <- nasaweather::atmos %>%
filter(lat <= -11.217391, long <= -106.287, year == 1995) %>%
group_by(long, lat)
small %>%
ggvis(~long, ~lat) %>%
layer_points()
small %>%
ggvis(~long, ~lat) %>%
subvis(width := 100, height := 100, stroke := "red") %>%
layer_points(~month, ~ozone)
small %>%
ggvis(~long, ~lat) %>%
subvis(width := 100, height := 100, stroke := "red") %>%
layer_points(~month, ~ozone) %>%
add_axis("x", ticks = 3) %>%
add_axis("y", ticks = 3)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.