knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(OSButils) library(magrittr) library(tibble) library(dplyr) library(ggplot2) library(ggrepel)
(testing_dataset <- datasets::CO2 %>% as_tibble() %>% mutate(Plant = gsub("^.{2}", "", Plant)) %>% group_by(Type, Plant) %>% summarise(Sum.Uptake = sum(uptake)) )
testing_dataset %>% osb_SlopePlot(changes_in = Sum.Uptake, for_the = Plant, across = Type) + scale_color_brewer(type = "qual")
testing_dataset %>% osb_DotPlot(changes_in = Sum.Uptake, for_the = Plant, across = Type) + scale_color_brewer(type = "qual")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.