Quadrat Counts

The number of quadrats per transect that contain cogongrass. Including only plots that contain at least one quadrat of cogongrass.

cog_quadrat_counts <- veg_data %>%
  filter(Species_Name == "Imperata_cylindrica") %>%
  distinct(Plot, Quadrat) %>%
  group_by(Plot) %>%
  summarise(Cogongrass_Quadrats = n()) %>%
  arrange(Plot)

datatable(
  cog_quadrat_counts,
  options = list(
    pageLength = 25,
    scrollX = TRUE
  )
)
# Number of plots with 7 quadrats containing cogongrass
cog_count_7Q <- cog_quadrat_counts %>%
  filter(Cogongrass_Quadrats == 7) %>%
  nrow()
cog_count_7Q
## [1] 33
# Subset veg_data to only include plots with 7 quadrats containing cogongrass
veg_cover_7Q <- veg_data %>%
  filter(Species_Name == "Imperata_cylindrica") %>%
  group_by(Plot) %>%
  filter(n_distinct(Quadrat) == 7) %>%
  ungroup()

Percent Cover

The percent cover of cogongrass in each quadrat of each plot, including only plots with at least one quadrat containing cogongrass.

cog_cover_table <- veg_data %>%
  filter(Species_Name == "Imperata_cylindrica") %>%
  group_by(Plot, Quadrat) %>%
  summarise(Cover = sum(Cover_Per), .groups = "drop") %>%
  pivot_wider(
    names_from = Quadrat,
    values_from = Cover,
    names_prefix = "Q",
    values_fill = 0
  ) %>%
  select(Plot, Q0, Q5, Q10, Q15, Q20, Q25, Q30)

datatable(
  cog_cover_table,
  options = list(
    pageLength = 25,
    scrollX = TRUE
  )
)

Cover Percenage of Plots with 7 Quadrats of Cogongrass

cog_cov_tbl_7Q <- veg_cover_7Q %>%
  filter(Species_Name == "Imperata_cylindrica") %>%
  group_by(Plot, Quadrat) %>%
  summarise(Cover = sum(Cover_Per), .groups = "drop") %>%
  pivot_wider(
    names_from = Quadrat,
    values_from = Cover,
    names_prefix = "Q",
    values_fill = 0
  ) %>%
  select(Plot, Q0, Q5, Q10, Q15, Q20, Q25, Q30)

datatable(
  cog_cov_tbl_7Q,
  options = list(
    pageLength = 25,
    scrollX = TRUE
  )
)