reporting lesson: plots study hall friends want to see

[CaitlinBate]

• Rob: I like date by longitude
• Mike: abacus x = time, y = fish, color = array
• Mike: ggplot2::ggplot(data = FISH) + geom_raster(aes(x=Date, y = tag, fill = array))
• Mike: ggplot2::ggplot(data = FISH) + ggplot2::geom_raster(aes(x=Date, y = Transmitter, fill = array))
• Rob: ggplot(data, aes(date, longitude))+geom_point()+geom_path()

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