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")


JDOsborne1/OSButils documentation built on Jan. 8, 2021, 4:39 p.m.