ggvis export

Pre1 chunk text

library(ggvis, quietly = TRUE)
p <- mtcars %>% 
  ggvis(~wt, ~mpg, fill = ~factor(cyl))

print(p)

## Guessing layer_points()

• Renderer: SVG | Canvas
• Download

export_png(p, file="plot.png")

## Guessing layer_points()

p <- p %>%
  layer_points() %>% 
  group_by(cyl) %>% 
  layer_model_predictions(model = "lm")

## Guessing formula = mpg ~ wt

print(p)

• Renderer: SVG | Canvas
• Download

export_png(p, file="plot2.png")