SCCOOS HABs example

[MathewBiddle]

• [x] What is language(s) for used in the example? R
• [x] Is it focused on a particular module/software or an IOOS data service? IOOS data service
• [x] Can you provide a minimum example of the expected code and results in a notebook?

  
  library(robis)

sccoos_data <- occurrence(datasetid='c9aaa0e9-8f6c-4553-a014-a857baba0680')

View(sccoos_data)

map_leaflet(sccoos_data)

map_ggplot(sccoos_data)

![image](https://user-images.githubusercontent.com/8480023/100004472-8cc48b00-2d95-11eb-8ffb-72ee3e35cef3.png)

Please provide a detailed description of the suggested example below:
The example above pulls in the SCCOOS data and makes a map. Let's see if there's something else we can do. Initially I'd like to see how this data contribution expands the OBIS holdings. Maybe picking a species from SCCOOS, then pulling all the data for that species from OBIS, plotting it all together with SCCOOS a different color?

[MathewBiddle]

@sccoos do you have any thoughts as to what you'd like to showcase in this example?

[MathewBiddle]

From Vicky, look at Lingulodinium polyedrum and Pseudo-nitzschia seriata group

something like

[MathewBiddle]

Taking a stab in the dark here.

I want the map to:

1. when a user clicks on a point cluster, only a few pins appear. Right now it shows a pin for each row of the sccoos lingpoly occurrence.
   1. Have each pin in the cluster be a measurement or fact (mof) from the response. <- bonus: set each mof pin to a custom pin symbol.
2. When pin is clicked, a time-series plot of the mof appears
   4. Maybe overlay organismQuantity from occurrence on the time-series mof plot?