# NOT RUN {
library(dplyr)
library(tidyr)
library(plotly)
iris %>%
nest(data = -Species) %>%
mutate(
panel = map_plot(data, function(x) {
plot_ly(data = x, x = ~Sepal.Length, y = ~Sepal.Width,
type = "scatter", mode = "markers")
}),
wiki_link = cog_href(paste0("https://en.wikipedia.org/wiki/Iris_",
tolower(Species))[1], default_label = TRUE,
desc = "link to species on wikipedia")
) %>%
trelliscope(name = "iris_species", ncol = 3)
# }
Run the code above in your browser using DataLab