Open CaitlinBate opened 8 months ago
ggplot2::ggplot(data = FISH) + ggplot2::geom_raster(aes(x=Date, y = Transmitter, fill = array))
ben:
dat %>% split(.$animal_id) %>% map(~ ggsave( filename = here("plots", "abacus-plots", "regular", paste0(unique(.$animal_id),'.png')), height = 8.5, width = 11, plot = ggplot(data = ., aes(x = detection_timestamp_est, y = station)) + geom_point(aes(colour = station)) + labs( title = paste("Fish ID:", unique(.$animal_id), sep = " "), x = "Date", y = "Station") ) )
mike: https://github.com/mhpob/otndo/blob/main/inst/qmd_template/make_tag_push_summary.qmd#L280-L305
ggplot2::ggplot(data = FISH) + ggplot2::geom_raster(aes(x=Date, y = Transmitter, fill = array))
ben:
mike: https://github.com/mhpob/otndo/blob/main/inst/qmd_template/make_tag_push_summary.qmd#L280-L305