ðGBIFã«ç»é²ãããçç©ååžæ å ±ã®ãããã³ã°: çç©å€æ§æ§ãŠã§ããããã³ã°ã·ã¹ãã ãRã§å®è£ ãã
å°ãåïŒ2015幎12æ11æ¥ïŒã«åœç«ç°å¢ç 究æãéå¶ããçç©å€æ§æ§ãŠã§ããããã³ã°ã·ã¹ãã ïŒä»¥äžãBioWMïŒãå ¬éãããŸããã
ãã®ãµãŒãã¹ã®çŽ¹ä»æãã¿ããš
çç©å€æ§æ§ãŠã§ããããã³ã°ã·ã¹ãã ïŒBioWMïŒã¯ãGBIFã§ã®ããŒã¿å ¬éãšãã®æŽ»çšãçç©å€æ§æ§æ å ±ã®ãªãŒãã³åã®ä¿é²ãç®çãšããŠãçç©å€æ§æ§ããŒã¿ã®å¯èŠåããŒã«ãæäŸããŠããŸãã
ãšãããŸããããããè©Šã¿ã¯ãããè¯ãããäœããããªãŒãã³ãœãŒã¹ã»ããããµãŒãã¹ããªãŒãã³ãœãŒã¹ã»ãœãããŠã§ã¢ãç©æ¥µçã«äœ¿çšãäœæãããããææç©ã«ã€ããŠã¯CC BY 4.0ã©ã€ã»ã³ã¹ã®ããšã§å©çšå¯èœã§ãã
ããã¯ããã§çŽ æŽãããã®ã§ãããæ§æ Œãæªãã»Rè³ãªã®ã§ããããšåãããšãRã§ã§ããŠããŸãããªãšããææ³ãæ±ããŠããŸããŸããããããã³ã°èªäœããªãŒãã¬ããã§è¡ã£ãŠããã®ã§ {leaflet}
ã§åçŸã§ãããã§ããã
ãšã¯ãããå ·äœçã«ã©ãããã°è¯ãããšããããšãæµ®ããã§ããªãã£ãã®ã§ãèªå·±ãå°éããããšããããšãå ŒããŠBioWMãšåæ§ã®æ©èœãRã§å®è£ ããŠã¿ãããšæããŸãã
BioWMã®äž»èŠãªæ©èœ
- GBIFã«ç»é²ãããçç©ååžæ å ±ïŒGBIFãªã«ã¬ã³ã¹ããŒã¿ïŒãæœåºããŠãããã³ã°
- ãŠãŒã¶ãŒããã€çç©ååžæ å ±ããããã³ã°ïŒãšã¯ã»ã«ãã¡ã€ã«ããã®èªã¿èŸŒã¿ïŒ
- åœç«ç°å¢ç 究æ çç©ã»çæ ç³»ç°å¢ç 究ã»ã³ã¿ãŒã®ç 究ããŒã¿ã®ãããã³ã°ïŒçŠå³¶çæ±éšã®éçåç©ã«ã€ããŠïŒ
ä»åã¯ïŒãRã§ãããŸããïŒã«ã€ããŠã¯ãã®ãã¡...ã
å©çšããRããã±ãŒãž
ãããã®ããã±ãŒãžãå©çšããŸãã
- ðŠ
{rgbif}
ããã±ãŒãž... GBIFãæäŸããAPIãRã§å©çšããããããã«ããããã±ãŒãž - ðŠ
{spocc}
ããã±ãŒãž... GBIFãå§ãããã®ä»ã®çç©ååžæ å ±ããŒã¿ããŒã¹ã«ã¢ã¯ã»ã¹ããããŒã¿ãååŸããããã®ããã±ãŒãž - ðŠ
{spoccutils}
ããã±ãŒãž...{spocc}
ã®ãŠãŒãã£ãªãã£çšã®ããã±ãŒãžã§ãçç©ååžæ å ±ãggplot2ãLeafletäžãžãããã³ã°ãå®è¡ããçš
ãããã®ããã±ãŒãžã¯BioWMãšåããGBIFãæäŸããAPIãå©çšããŠããã®ã§ãRã§ãåæ§ã®ããšãã§ããããšãã話ã§ããéçºå ã¯ä¿¡é Œãšå®çžŸã®ropensciã§ãããªãä»åã¯äžéšã®é¢æ°ãå©çšããŠããã ããªã®ã§ããã®ä»ã®äŸ¿å©ãªé¢æ°ã«ã€ããŠç¥ãããæ¹ã¯ããã±ãŒãžã®ãã«ããã芧ãã ããã
çç©ååžæ å ±ã®ãããã³ã°
BioWMã§è¡ãããããã³ã°ã¯ä»¥äžã®ïŒçš®é¡ã§ãã泚æãšããŠãããã®ãããã³ã°ããŒãžã§è¡šç€ºãããããŒã¿ã®ä»¶æ°ã¯ç·¯åºŠçµåºŠæ å ±ãç¡ããã®ããããããããšããããšããããŸãã
- åŠåæ€çŽ¢
- åœå¥
- åé¡çŸ€å¥
- 詳现æ€çŽ¢
é ã«ãã£ãŠãããŸãããããŸãã¯ä»åå©çšããRããã±ãŒãžãèªã¿èŸŒãŸããŸãã
# Rããã±ãŒãžã®èªã¿èŸŒã¿ library(rgbif) library(spocc) library(spoccutils)
åŠåãã
è€æ°ã®çš®ã察象ã«ããããšãã§ããããã§ãããããŒããŒïŒæå·ã®è¡šçŽã食ã£ãŠããããªãžã Emberiza cioidesïŒã¹ãºã¡ç®ããªãžãç§ïŒã察象ã«ããŠã¿ãŸãããã
2015幎12æ25æ¥çŸåšãBioWMã§ã®ããªãžãã®ãããã³ã°ä»¶æ°ã¯4,918件ãšãªã£ãŠããŸãïŒä»¥äžãBioWMã§ã®ãããã³ã°ã«ãã件æ°ã¯åæ¥ã®ãã®ïŒã
ãã®ãã¡ããããã³ã°ã«äœ¿ãããäœçœ®æ
å ±ãæã£ãããŒã¿ä»¶æ°ã¯ãGBIFã®ããŒãžãèŠãã«1422件ãšãªããŸããã§ã¯Rã§ãã®ããŒã¿ããšã£ãŠããŸãããã{spocc}
ããã±ãŒãžã®occ()
é¢æ°ãå©çšããŸãã
(ebci_dat <- occ(query = "Emberiza cioides", from = "gbif", limit = 1500, has_coords = TRUE))
## Searched: gbif
## Occurrences - Found: 1,425, Returned: 1,425
## Search type: Scientific
## gbif: Emberiza cioides (1425)
occ()
é¢æ°ã®åŒæ°query
ã«å¯Ÿè±¡ã®çš®åãæž¡ããããŒã¿ã®ãœãŒã¹ãfromåŒæ°ã§æå®ããããšã§çç©ååžæ
å ±ãååŸããŸããä»åã¯limitåŒæ°ã§ããŒã¿ã®ååŸä»¶æ°ãåæå€ã®500ããå€æŽãã1500件ãŸã§ã«èšå®ããŸããããŸããããŒã¿ã¯äœçœ®æ
å ±ãå«ãã§ãããã®ã ãã察象ãããããhas_coordsã«ãã£ãŠæå®ããŸããã
Leafletã«ãããããã³ã°ãããã«ã¯map_leaflet()
ã䜿ããŸãã
ebci_dat %>% map_leaflet(zoom = 5, centerview = c(35.39, 139.44))
ããã°ã«åã蟌ã¿ã§ããªãã®ã§å³ã®ã¿ã衚瀺ããŠããŸããå®éã®Leafletã«ããå®äŸã¯RPubsã®ããŒãžã«ãããŸããæ¥æ¬ãäžå¿ã«ããŠå°ããºãŒã ããŸããã
åœå¥
BioWMã§ã¯ã¢ãžã¢å°åã®åœã ã®ããŒã¿ã«éå®ããŠããŸããæ¥æ¬ã§ã®ããŒã¿ä»¶æ°ã¯3,912,475件ãšãªã£ãŠããŸãã
çš®ã®ãããã³ã°ãšåæ§ãocc()
ã䜿ããŸããããä»åã¯query
ã«ã¯äœãæž¡ããã«æ€çŽ¢æã®ãªãã·ã§ã³ã§ããgbifoptsåŒæ°ã«ãããŠcountryã§ååŸããåœãæå®ããããšã§ãæ¥æ¬åœå
ã§ã®ããŒã¿ã®ã¿ãæœåºããŸãããåæ§ã«å€§éž continent ãæå®ãããªãã·ã§ã³ããããŸãã
occ(query = "", from = "gbif", gbifopts = list(country = "JP"))
## Searched: gbif
## Occurrences - Found: 3,912,475, Returned: 500
## Search type: Scientific
## gbif: (500)
BioWMãšåã件æ°ã®ããŒã¿ã該åœããŸãããæ£åžžã«ããŒã¿ãæœåºã§ããŠããããã§ãããã ãGBIFã®occurrence searchã§ååŸã§ãã件æ°ã®äžéã¯200,000件ãŸã§ïŒocc()
ã®åæå€ã¯500ïŒãªã®ã§ãå®éã«ããŒã¿ããããã³ã°ããããã«ã¯occurrence downloadãå©çšããå¿
èŠããããŸãã
# Download keyãååŸ occ_download("country = JP") # ãã°ãåŸ ã£ãŠããå®è¡ # keyåŒæ°ã«æž¡ã<Download key>ã¯å ã»ã©ååŸãããã® occ_download_get(key = "<Download key>")
http://www.gbif.org/user/download ã®ããŒãžã«ã¢ã¯ã»ã¹ããŠãããŠã³ããŒãå¯èœãªç¶æ³ãã確èªããŠããå®è¡ãããšè¯ãã§ãããïŒãããŸã§ãããšãRã§ããã®ã§ã¯ãªããŠæäœæ¥ã§ããŠã³ããŒãããŠããæ¹ãæ©ãã£ãããããããŒã¿æ°ãå€ãå Žåã¯ç¹ã«ïŒã
åé¡çŸ€å¥
åé¡çŸ€å¥ã«ãããã³ã°ããããŒãžã§ã¯ããçããéãã綱ãã®åé¡éçŽã§çç©ååžæ
å ±ããããã³ã°ããããšãã§ããŸããäŸãã°é¡è±æ€ç©éã®ããŒã¿ä»¶æ°ã¯154,752,923件ãšãªã£ãŠããŸããå
ã»ã©ãšåæ§ãocc()
ã䜿ããŸãã
(taxon_key <- name_backbone(name ="", phylum = "Magnoliophyta")$phylumKey)
## [1] 49
occ(query = "", from = "gbif", gbifopts = list(taxonKey = taxon_key))
## Searched: gbif
## Occurrences - Found: 154,752,923, Returned: 500
## Search type: Scientific
## gbif: (500)
æ€çŽ¢æã®ãªãã·ã§ã³ã§ããgbifoptsã§ã¯ãåé¡çŸ€ã«ãã£ãŠç°ãªãtaxonKeyãæå®ããŸãããtaxonKeyã¯name_backbone()
ã«ãã£ãŠèª¿ã¹ãããšãã§ããŸããGBIFã®æ€çŽ¢ããŒã«ã§ã¯é¡è±æ€ç©é Magnoliophytaã®taxonKeyã¯49ãšãªã£ãŠããã®ã§ããããæå®ããŸããã
ãã¡ããšæ€çŽ¢ãã察象ã®ä»¶æ°ããã£ãŠããŸããã
詳现æ€çŽ¢
APIã®ãã©ã¡ãŒã¿ãæå®ããããšã§ããã现ããªæ¡ä»¶ã§çç©ååžæ
å ±ã®æœåºãã§ããŸãã {rgbif}
ã§ãAPIãã©ã¡ãŒã¿ã網çŸ
ããŠããã®ã§ã詳现æ€çŽ¢ãšåãæ©èœãå®çŸã§ããŸãã
ãã®ããã«ã¯åœå¥è¡šç€ºãåé¡çŸ€å¥è¡šç€ºã§è¡ã£ãããã«occ()
é¢æ°å
ã®gbifoptsåŒæ°ã«ãããŠããªã¹ã圢åŒã§ãã©ã¡ãŒã¿åãšãã©ã¡ãŒã¿ã®å€ãæž¡ããŸããæå®å¯èœãªãã©ã¡ãŒã¿ã®äŸãšããŠã緯床ãçµåºŠãæ¡éæ¥ã»èŠ³å¯æ¥ãšãã£ããã®ããããŸãïŒocc_options()
ãåèã«ïŒã
ææ
- Räžã§ãããŸããããBioWMã®ãµãŒãã¹ã®ããã«äœåäžä»¶ãäœçŸäžä»¶ã®ããŒã¿ã衚瀺ããã®ã¯å³ããæãã§ããããããçš®ã®ãããã³ã°ãããã
- ããŠã³ããŒãããããŒã¿ã®ãããã³ã°ã¯æ¬¡åã«ãé ãããŸããïŒBioWMã®æ©èœãšåãæããªã®ã§ïŒã
- BioWMã«ããè¿ã¥ããããã«ã¯Shinyã¢ããªã«ãããšããã®ã¯äžã€ã®ã¢ã€ãã¢ãããããŸãããããããã°ããããªã¢ããªã以åèŠãããèšæ¶ããããŸãããããã¯ããŒã¯ãªã©ããèŠã€ããããšãã§ããŸããã§ããã
- ããŸãããã°ã§ãããšæããŸãã誰ããäœã£ãŠãããããªã
æåŸã«é¡äŒŒã®Shinyã¢ããªã玹ä»ããŸããçç©ååžæ å ±ã®ãããã³ã°ã«èå³ãããæ¹ã¯ãåèãã ããã