SanderDevisscher
commented
3 years ago voor de getallen onder de 10 voorzie ik deze code:
if(value == 1){
value <- "één"
}
if(value == 2){
value <- "twee"
}
if(value == 3){
value <- "drie"
}
if(value == 4){
value <- "vier"
}
if(value == 5){
value <- "vijf"
}
if(value == 6){
value <- "zes"
}
if(value == 7){
value <- "zeven"
}
if(value == 8){
value <- "acht"
}
if(value == 9){
value <- "negen"
}
if(value == 10){
value <- "tien"
}
url: https://www.inbo.be/nl/natuurindicator/aantal-rosse-stekelstaarten-vlaanderen
@timadriaens ik heb in het vet aangeduid welke gegevens dynamisch moeten worden met tussen haakjes een verwijzing naar de code:
Aantal rosse stekelstaarten in Vlaanderen.
Tijdens de mid-maandelijkse watervogeltellingen in de winter van 2018-2019(1) werden in Vlaanderen maximaal twee(2) verschillende vogels geteld verspreid over zes(3) gebieden. Naar schatting zijn dus in Vlaanderen in de winter nog slechts een handvol vogels aanwezig als gevolg van een volgehouden beheer. Op basis van losse waarnemingen werd een maandmaximum van 18(4) waargenomen vogels berekend verspreid over 11(5) gebieden. Er werden in 2018 ook twee jonge vogels geschoten wat een broedgeval doet vermoeden.
Definitie
De indicator toont het aantal overwinterende rosse stekelstaarten in Vlaanderen sinds 1979 berekend op basis van de midmaandelijkse watervogeltellingen (tellingen oktober-maart) en het maandmaximum van het aantal waargenomen vogels in Vlaanderen. Dat maandmaximum wordt berekend als de som van de maxima per maand en per gebied. Daarnaast geven we ook een overzicht van het aantal bestreden vogels. Bespreking In het wild levende uitheemse rosse stekelstaarten vormen een bedreiging voor de instandhouding van de internationaal bedreigde inheemse witkopeend (Oxyura leucocephala) (Munoz-Fuentes et al. 2006, 2007; Rhymer & Simberloff, 1996 ; Kumschick & Nentwig, 2010). De Conventie van Bern stelde daarom als doel om rosse stekelstaart uit te roeien in het wild in Europa en Noord-Afrika tegen 2015 (Hughes 2006, Cranswick & Hall 2010). Als subdoel gold een jaarlijkse reductie van 50% van het aantal overwinterende vogels. Deze aanbeveling werd vastgelegd in internationale verdragen (Conventie van Bern - Recommendation No. 149 (2010), AEWA, Vogelrichtlijn). In het Verenigd Koninkrijk, waar de grootste populatie in Europa zich ophield, werd de soort intensief bestreden (Henderson, 2006; Henderson, 2010). In 2005 werd hier een Life project opgestart, wat tot een populatiereductie van 98% leidde in 2013. Ten gevolge van deze en acties in andere Europese landen werd de Europese populatie ondertussen gereduceerd tot minder dan 7% van die in 2000 (Robertson et al. 2015). De doelstelling werd van het eerste actieplan (2011-2015) werd gehaald in de UK en Spanje, maar nog niet in Nederland, België en Frankrijk waar nog vogels aanwezig zijn (Hall 2016). Het plan werd daarom gereviseerd (Hall 2016) en verlengd tot 2020 (Bern Conventie 2016). In Frankrijk, waar de grootste populatie zich momenteel ophoudt, loopt momenteel (2018-2023) een Life+ project (Oxyura against Oxyura) met als doel rosse stekelstaarten uit het wild te verwijderen. Natuurpunt, Hubertusvereniging Vlaanderen, Vogelbescherming Vlaanderen, Aviornis International en de Vlaamse overheid (ANB en INBO) werkten in 2011 een plan uit voor de bestrijding van rosse stekelstaart in Vlaanderen (Agentschap voor Natuur en Bos 2011, Adriaens en D’hondt 2017). Voorheen werden broedgevallen lokaal aangepakt door terreinbeheerders. In 2012 werden voor het eerst gecoördineerde acties opgezet waarbij vogels bestreden worden onder coördinatie van ANB en INBO. De verwachting is dat het aantal rosse stekelstaarten in Vlaanderen zal afnemen naarmate deze acties volgehouden worden en de inspanningen in de ons omringende landen verder gezet worden (Robertson et al. 2015). In de periode 2009-2018(6) werden in totaal in Vlaanderen in totaal 53(7) volwassen en 25(8) juveniele vogels/pulli bestreden via afschot. Er werden ook enkele kweekvogels weggevangen. Zie ook het interactieve kaartje op http://rpubs.com/SanderDevisscher/test
Trends Geen relevante trendbepaling mogelijk Beleidsdoelen Streefdoel 5 EU 2020 biodiversiteitsstrategie:Tegen 2020 zijn invasieve uitheemse soorten en hun introductiemechanismen in kaart gebracht en is de prioriteit ervan bepaald, worden prioritaire soorten in de hand gehouden of uitgeroeid en worden hun routes beheerd om de introductie en vestiging van nieuwe invasieve uitheemse soorten te voorkomen.
Code suggestie
paste(year(Sys.Date())-1,year(Sys.Date()), sep = "-")max(wintertelling)n_distinct(gebied_wintertelling)max(losse_waarnemingen)n_distinct(gebied_losse_waarnemingen)paste(2009, year(Sys.Date()), sep = "-")sum(adult_afschot)sum(juveniel_afschot)kan je je hierin vinden ?