# 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