fcrwq-fine-scale-report-map

Water discharge monitoring reports by IMaRS built using quarto.

Map of USGS stations used

Code

# Load required libraries
library(leaflet)
library(RColorBrewer)
 
# Load the data
data <- read.csv("data/Report_stations_table.csv")

# Recode Code → a factor with descriptive labels
data$Code <- factor(
  data$Code,
  levels = c(1, 3, 2),
  labels = c("precip stations", "river disch stations", "temp/sal buoys")
)

# Build a color function off that factor
pal <- colorFactor(
  palette = "Set1",
  domain  = data$Code
)

leaflet(data,
  options = leafletOptions(zoomControl = TRUE,
                                 zoomSnap = 0.1,
                                 zoomDelta = 0.5)) %>%
  addProviderTiles(providers$USGS.USTopo) %>%
  addCircleMarkers(
    lng         = ~Lon,
    lat         = ~Lat,
    label       = ~ID,                    # Hover shows ID
    radius      = 5,
    color       = "black",
    fillColor   = ~pal(Code),
    fillOpacity = 1,
    popup       = ~paste("<b>Station ID:</b>", ID)
  ) %>%
  addLegend(
    position = "bottomright",
    pal      = pal,
    values   = ~Code,
    title    = "Data Type"
)