Improve the vespa management page

[SanderDevisscher]

Suggestions for improvement

• Management of Vespa velutina (2017 - 2023)
  • in popup drop total
  • in line graph below split lines for individuals & nests (or if to complex only nests)
• Active hotbeds
  • drop managed nests
  • chance untreated nests color to black
• All observations
  • rename to All observations current year
  • add NestType & Management status to popup
  • add data lag disclaimer

Originally posted by @SanderDevisscher in #27 (comment)

[mvarewyck]

in line graph below split lines for individuals & nests (or if to complex only nests)

Example below: Different linetype for nest and individual (all provinces)
@SanderDevisscher Do you want this or remove the individual?

[mvarewyck]

Note: The blur in active hotbeds is based on the individual observations only (not untreated nests), see here. This is not explicit from the text above the graph:

This map illustrates where Asian hornet has been sighted, but where no nest has yet been successfully managed. Vespa watchers may conduct investigations at these locations. Observations are retained if they are located further than 2km from a successfully managed nest and/or are reported after a successful management action. The more intense red, the more notifications there are in close proximity to each other. Missing nests can always be reported at vespawatch.be.

@SanderDevisscher So, I would either update the code or the text.

[mvarewyck]

• add NestType & Management status to popup

@SanderDevisscher This info is missing for the nests coming from (iNaturalist/Natuurpunt) this data source: "#punten laag van gbif resultaat van './preprocessing/get_data_from_gbif.Rmd' #bevat zowel individuen als nesten"

[SanderDevisscher]

• add NestType & Management status to popup

@SanderDevisscher This info is missing for the nests coming from (iNaturalist/Natuurpunt) this data source: "#punten laag van gbif resultaat van './preprocessing/get_data_from_gbif.Rmd' #bevat zowel individuen als nesten"

hmm, It is indeed correct management data is unavailable for the gbif sourced data while nests from iasset (nests.geojson) do have a management data. In the future all nests from natuurpunt will be uploaded automatically into iasset (currently in the pipeline). Changing to iAsset data only when the pipeline goes live will then result in us missing the small number of nests reported via iNaturalist (used to be more in past when we piggybacked on iNaturalist for management data). Therefor I think it is best to, leave it as is for now, but write code to be able to switch to only displaying nests from the nests.geojson only from a certain date¹ (when the Natuurpunt <-> iAssset pipeline goes live) onwards. if this is possible ?

¹nests reported after this date should be displayed from iasset data only. Nests reported after this date from the gbif sourced data should no longer be displayed.

[SanderDevisscher]

in line graph below split lines for individuals & nests (or if to complex only nests)

Example below: Different linetype for nest and individual (all provinces) @SanderDevisscher Do you want this or remove the individual?

Its to cluttered as is! I would either drop the individuals or add like a unit dropdown to choose either. @timadriaens what do you think ?

[SanderDevisscher]

Can you add a management succes graph, like this:

It should be based on nests.geojson

example code:

#figuur: Verhouding behandeling van nesten versus jaar.
data_to_plot <- nesten_VL_pr_r  %>%
  mutate(year = year(observation_time)) %>% 
  group_by(year, result) %>%
  summarise(number = n()) %>% 
  st_drop_geometry()

#NL
plot_treatment_per_year_nl <- ggplot(data = data_to_plot, aes(x = year, y = number, fill = result)) + 
  geom_bar(position = "stack", stat = "identity") + 
  labs(fill = "result") +
  scale_x_continuous("Jaar", labels = as.character(data_to_plot$year), breaks = data_to_plot$year) +
  ylab("Aantal nesten") +
  theme_set(theme_ggeffects())+
  theme(axis.text=element_text(size=15), axis.title= element_text(size=19))+
  theme(legend.title = element_text(size=17, face="bold")) +
  theme(legend.text = element_text(size=17, face="bold"))+
  scale_fill_manual(name = "Behandeling",
                    breaks = c("succesvol", "niet succesvol", "niet behandeld", "ongekend"),
                    labels = c("succesvol", "niet succesvol", "niet behandeld", "ongekend"),
                    values = c("darkorange2", "gold", "seagreen3", "dodgerblue2")) +
  guides(fill = guide_legend("Behandeling")) +
  scale_y_continuous(expand = expansion(mult = c(0, 0))) 

[mvarewyck]

nests reported after this date should be displayed from iasset data only. Nests reported after this date from the gbif sourced data should no longer be displayed.

Note: Date currently set at 31/12/2028, see here

[mvarewyck]

Can you add a management succes graph, like this:

The graph is included.
@SanderDevisscher Do you already know a title and/or description? Then I'll add it to the translation file.

[mvarewyck]

add data lag disclaimer

@SanderDevisscher to be added to translations file

• Disclaimer for active hotbeds is in row with title_id == 'disclaimerVespa'
• Disclaimer for all observations is in row with title_id == 'management2_observed-mapHeat'