leeolney3

# 30DayChartChallenge 02 pictogram
# Estimated % of threatened species in 2021 (Mammals, Birds, Amphibians, Gymnosperms)
# Data source: iucnredlist.org (https://nc.iucnredlist.org/redlist/content/attachment_files/2021-3_RL_Stats_Table_1a_v2.pdf)

library(tidyverse)
library(reactablefmtr)

table1 = tribble(
  ~"Birds",~Mammals,~Amphibians,~Gymnosperms,
  13, 26, 41, 41

johnmackintosh

# https://www.r-graph-gallery.com/283-the-hourly-heatmap.html

library(ggplot2)
library(dplyr) # easier data wrangling 
library(viridis) # colour blind friendly palette, works in B&W also
library(Interpol.T) #  will generate a large dataset on initial load
library(lubridate) # for easy date manipulation
library(ggExtra) # because remembering ggplot theme options is beyond me
library(tidyr)