In USFWS/AKaerial: Analysis of Alaska Region Aerial Survey Data

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

Visualizing Data and Results

One of the primary purposes of AKaerial is to provide report-quality figures and tables. AKaerial's visualization functions fall into 3 basic categories:

1. Map-making - The "ShowMe" functions ShowMe, ShowMeDesign, ShowMeUncut, ShowMeYears, and ShowMeTrackDesign. These functions (with the exception of ShowMeYears) are generalized to take the file paths to design files and data and provide interactive maps using Leaflet to display spatial data. Some potential uses would be for plotting observations by latitude and longitude (ShowMe), pre-flight transect design mapping (ShowMeDesign), and quickly pulling up multiple years of observations by species (ShowMeYears). In addition, ShowMeTrackDesign and ShowMeUncut can be used in quality assurance and control of the actual track flown and design transects.

2. Table generation - ReportTable will create an .html table of historic estimate objects in AKaerial (ACPHistoric, CRDHistoric, YKDHistoric, YKDVHistoric, and YKGHistoric).

library(AKaerial)



ReportTable(data=YKDHistoric$combined, 
            species="SPEI", 
            index=c("itotal", "itotal.var"),
            year=c(1988:2019), 
            yr.avg=3, 
            cap="Indicated total spectacled eiders on the Yukon-Kuskokwim Delta, 1988-2019.", 
            new.names=c("Year", "Indicated Total", "SE", "3-yr Avg", "SE"))


ReportTable(data=CRDHistoric$combined, 
            species="DCGO", 
            index=c("total", "total.var", "itotal", "itotal.var"),
            year=c(1995:2019), 
            yr.avg=3, 
            cap="Total and indicated total dusky Canada geese on the Copper River Delta, 1995-2019.", 
            new.names=c("Year", "Total", "SE", "3-yr Avg", "SE", "Indicated Total", "SE", "3-yr Avg", "SE"))

1. Figure generation - ReportFigure will create a ggplot line graph of historic estimate objects in AKaerial (ACPHistoric, CRDHistoric, YKDHistoric, YKDVHistoric, and YKGHistoric).

library(AKaerial)

ReportFigure(area="ACP",
             species=c("MALL", "SPEI"),
             index="ibb",
             title="Indicated breeding birds on the Arctic Coastal Plain")


ReportFigure(area="YKG",
             species="EMGO",
             index="ibb",
             index2="itotal",
             title="Indicated breeding and total Emperor Geese on the YK Delta")

USFWS/AKaerial documentation built on April 3, 2025, 4:06 p.m.