# Examples don't work yet
if (FALSE) {
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)
}
Run the code above in your browser using DataLab