Geographic tick distribution
Geographic tick distribution
◼
You can make a distribution map of the most observed tick species in the United States:
In[]:=
ticksData=["https://www.wolframcloud.com/obj/jofree/iNaturalist/US_Ticks_iNat_observations.csv"];
In[]:=
mainTickSpecies={"Dermacentor variabilis","Dermacentor occidentalis","Ixodes scapularis","Ixodes pacificus","Amblyomma americanum","Amblyomma maculatum"};
In[]:=
colors=Table[ColorData[3,"ColorList"][[i]],{i,2,7}];
In[]:=
positionsSpecies[species_String]:=DeleteMissing[Normal@ticksData[Select[#["ScientificName"]species&&#["QualityGrade"]"research"&],"GeoPosition"]]
In[]:=
LabeledGeoGraphicsJoinEdgeForm[{LightGray,Thin,Opacity[0.8]}],White,PolygonEntityList,MapThread[{#1,PointSize[0.006],Opacity[0.6],Point@positionsSpecies[#2]}&,{colors,mainTickSpecies}],GeoBackgroundGeoStyling["Satellite",Opacity[0.8]],GeoRangePadding{None,Full},GeoRange,ImageSize750,{SwatchLegend[colors,mainTickSpecies],Style["Distribution of Main US Tick Species",FontFamily"Helvetica",FontSize26]},{Right,Top}
Out[]=
Distribution of Main US Tick Species | |
Explore tick seasonality in the US with DateHistogram
Explore tick seasonality in the US with DateHistogram
◼
You can use DateReduction to see in which months the presence of ticks is higher:
observationDates=DeleteMissing@Flatten@Values@Normal@["https://www.wolframcloud.com/obj/jofree/iNaturalist/US_Ticks_iNat_observations.csv","ObservationDate"];
In[]:=
DateHistogram[observationDates,"Month",DateReduction"Year",ColorFunction"AvocadoColors",ImageSizeLarge]
Out[]=
Obtain observations from a particular species and region using INaturalistSearch
Obtain observations from a particular species and region using INaturalistSearch
In[]:=
Out[]=
