# NOT RUN {
library(tidyr)
library(purrr)
library(rbokeh)
library(dplyr)
iris %>%
nest(-Species) %>%
mutate(
mod = map(data, ~ lm(Sepal.Length ~ Sepal.Width, data = .x)),
panel = map2_plot(data, mod, function(data, mod) {
figure(xlab = "Sepal.Width", ylab = "Sepal.Length") %>%
ly_points(data$Sepal.Width, data$Sepal.Length) %>%
ly_abline(mod)
})) %>%
trelliscope(name = "iris")
iris %>%
nest(-Species) %>%
mutate(
mod = map(data, ~ lm(Sepal.Length ~ Sepal.Width, data = .x)),
panel = pmap_plot(list(data = data, mod = mod), function(data, mod) {
figure(xlab = "Sepal.Width", ylab = "Sepal.Length") %>%
ly_points(data$Sepal.Width, data$Sepal.Length) %>%
ly_abline(mod)
})) %>%
trelliscope(name = "iris")
# }
Run the code above in your browser using DataCamp Workspace