14 Plotting Visualizations

Pull plot_data.rds from the workflow directory to anywhere you want to use R

library(tidyverse)

test_model_output <- readRDS("lot_data.rds")

ggplot(test_model_output) + 
  geom_line(aes(x = posix, y = value,
                group = group_plot,
                color = group_color)) +
  facet_grid(rows = vars(var), cols = vars(site), scales = "free") +
  ggtitle(paste(Sys.time()))+
  theme(legend.position="bottom") +
  scale_color_viridis_d(direction = -1) +
  theme_classic()


test_model_output_wide <- pivot_wider(test_model_output,
  names_from = var, values_from = value
  )