PlotMetadata: PlotMetadata

In R-Burke/SiteSummaryTool: Ecological Site Summaries using Assessment, Inventory, and Monitoring (AIM) and Landscape Monitoring Framework (LMF) data

Usage

PlotMetadata(dataframe)

Arguments

dataframe

= TDat_LMF or EcoSitePlots

Author(s)

Rachel Burke, ecologist/analyst @ Jornada

Examples

# To plot number of plots per year nationally:
PlotMetadata(dataframe = TDat_LMF)
# TDat_LMF is returned object from Combine_AIM_LMF()
# To plot number of plots per year in the your ecological site(s):
PlotMetadata(dataframe = EcoSitePlots)
# EcoSitePlots is returned object from Combine_AIM_LMF() and SubsetEcologicalSite()

## The function is currently defined as
function (dataframe)
{
  Plots <- c("Plots")

  #Create color palettes 
  Year_Palette <- scales::seq_gradient_pal("grey85", "grey18", "Lab")(seq(0,1,length.out= length(unique(dataframe$Year)))) 
  
  Plots_Simple <- dataframe 
          dplyr::select(PrimaryKey , Year) 
             dplyr::mutate(PlotsPerYear = Plots) 
                dplyr::arrange(Year)
  

  PlotsPerYear <- ggplot(Plots_Simple , aes(Plots, text = stat(count))) +
    geom_bar(stat = "count" , position = position_stack(reverse = TRUE) ,
             aes(fill = Year) , width = .2 , ) +
    scale_fill_manual(values = Year_Palette) +
    ggtitle("Plots Per Year") +
    coord_flip() + theme(axis.text.y = element_blank())
    PlotsPerYear<- plotly::ggplotly(PlotsPerYear , tooltip = "text")
  
  return(PlotsPerYear)
}

R-Burke/SiteSummaryTool documentation built on Oct. 15, 2020, 8:21 p.m.