gray-whales.qmd

---
title: "Gray Whale Sightings"
logo: images/gray-whale-logo2.png
format:
  dashboard:
    theme:
     - vapor
     - custom.scss
---

```{r}
library(tidyverse)
library(here)
library(janitor)
library(plotly)
library(reactable)
```



```{r}
initials <- function(x) {
  x <- "Jeremy D Allen"
  words <- str_split_1(x, " ")

  if (str_detect(words, " ")) {
    if (str_detect(words[[1]], ",")) {
      new <- append(words[-1], words[1])
      initials <- str_extract(new, pattern = "^[A-Za-z]")
      initials <- paste(initials, collapse = "")
      initials <- str_to_upper(initials)
    } else {
      initials <- str_extract(words, pattern = "^[A-Za-z]")
      initials <- paste(initials, collapse = "")
      initials <- str_to_upper(initials)
    }
  } else {
    initials <- str_to_upper(words)
  }
  initials
}

```


```{r}

dat <- read_csv(here("data", "ER-ID  NMML-MAKAH 1993 - 2014.csv")) |>
  janitor::clean_names() |>
  filter(
    !is.na(photographer_1),
    !is.na(dec_lat),
    !is.na(dec_long)
  ) |> 
  mutate(date = lubridate::mdy(date)) |>
  arrange(date) |>
  mutate(month = lubridate::month(date, label = TRUE)) |>
  mutate(research_group = as_factor(research_group),
         year = as_factor(year),
         contributors = as_factor(contributors),
         sreg2 = as_factor(sreg2),
         photographer_1 = as_factor(photographer_1)) |>
  relocate(month, .after = date)


```

# Hi!

<br>

![](images/gray-whale-illustration.png)

# Sightings

## Row

### Column {.tabset width=75%}

```{r}
#| title: Map
#| padding: 0px

# fig <- dat  |> 
#   plot_ly(
#     lat = ~dec_lat,
#     lon = ~dec_long,
#     type = "scattermapbox",
#     text = ~date,
#     hoverinfo = 'text',
#     hovertemplate = paste(
#       "<b>Date: %{text}</b><br><br>",
#       "Lat: %{lat}<br>",
#       "Lon: %{lon}<br>",
#       "<extra></extra>"
#     ),
#     marker = list(color = "fuchsia"))

fig <- dat |>
  plot_mapbox(
    lat = ~dec_lat,
    lon = ~dec_long,
    split = ~year,
    size=2,
    mode = 'scattermapbox',
    text = ~date,
    hoverinfo='text',
    hovertemplate = paste(
      "<b>Date: %{text}</b><br><br>",
      "Lat: %{lat}<br>",
      "Lon: %{lon}<br>",
      "<extra></extra>"
    ))

fig <- fig  |> 
  layout(
    title = list(
      text = "Double-click a year to isolate",
      font = list(
        family = "Source Code Pro",
        size = 10,
        color = "#D6E4E9"
      )
    ),
    legend = list(
      font = list(
        family = "Source Code Pro",
        size = 10,
        color = "#D6E4E9"
      ),
      title = list(
        text ='Year',
        font = list(
        family = "Source Code Pro",
        size = 10,
        color = "#D6E4E9"
      )
        )
    ),
    paper_bgcolor = "#00000000",
    plot_bgcolor = "#00000000",
    margin = list(l = 25,
                  r = 25,
                  b = 25,
                  t = 25,
                  pad = 4),
    mapbox= list(
    style = "mapbox://styles/18chains/clo5sajd900hv01pbf4ya6zj5",
    pitch = 75,
    zoom = 10,
    center = list(lon = -124.72, lat= 48.384),
    bearing = 5,
    layers = list(list(
      below = 'traces'))
     )
    )

fig <- fig %>% config(mapboxAccessToken = Sys.getenv("MAPBOX_TOKEN"))

fig


```

```{r}
#| title: Data

dat |> 
  select(year, month, date, research_group, photographer_1, dec_lat, dec_long) |> 
  mutate(across(where(is.factor), as.character)) |>
reactable(
  filterable = TRUE,
  borderless = TRUE,
  defaultPageSize = 15,
  columns = list(
    year = colDef(name = "Year"),
    month = colDef(name = "Month"),
    date = colDef(name = "Date"),
    research_group = colDef(name = "Research Group"),
    photographer_1 = colDef(name = "Photographer"),
    dec_long = colDef(name = "Long")
  ),
  theme = reactableTheme(
      color = "#D6E4E9",
      backgroundColor = "#1a0933",
      style = list(
        fontSize = ".8rem"
      )
  )
)
```

### Column {width = 25%}

```{r}
#| padding: 0px

yr_count <- dat |> 
  count(year)

fig <-  plot_ly(data = yr_count, x = ~n, y = ~year, type = 'bar',
                marker = list(
                  opacity = 1,
                  color = '#D6E4E9',
                  line = list(
                    color = '#D6E4E9',
                    width = .2))) |> 
  layout(
    margin = list(l = 40, r = 30, b = 10, t = 80, pad = 0),
    paper_bgcolor = "#00000000",
    title = list(
      font = list(
        size = 11,
             color = '#D6E4E9'),
      text = "Sightings 1993-2014"
       ),
    plot_bgcolor='#00000000', 
    xaxis = list( 
      title = "",
      zerolinecolor = '#00000000', 
      zerolinewidth = 2, 
      gridcolor = '#00000000',
      tickfont = list(
             size = 8,
             color = '#D6E4E9')
      ), 
    yaxis = list( 
      title = "",
      ticklen = 10,
      zerolinecolor = '#00000000', 
      zerolinewidth = 2, 
      gridcolor = '#00000000',
      tickfont = list(
             size = 8,
             color = '#D6E4E9' 
      )
     )
    ) |> 
  config(displayModeBar = F)

fig

```

# Source

:::{.my-ref}
Gearin, Patrick (2016). Gray whale survey and sightings ranging from California to Kodiak Island, Alaska conducted by the National Marine Mammal Laboratory from 1993-07-05 to 2014-10-24 (NCEI Accession 0145636). NOAA National Centers for Environmental Information. Dataset. [https://www.ncei.noaa.gov/archive/accession/0145636](https://www.ncei.noaa.gov/archive/accession/0145636). Accessed 2023-10-23
:::

<br>
<br>

:::{.my-ref}
[code for this Quarto dashboard](https://github.com/jeremy-allen/whale-dashboard.git)
:::