Mean fuel load: 0.7574144 tons/acre
Mean Woody coverage: 12.5%
head(X2025_Forage_Sampling)
## # A tibble: 6 × 8
## Month Plot Quadrant Circle `Gross Mass` `Bag Type` EcoSite Fire
## <chr> <dbl> <dbl> <dbl> <dbl> <chr> <chr> <chr>
## 1 May 901 1 1 22.6 L sandy Burned
## 2 May 901 1 3 29.6 L sandy Burned
## 3 May 901 1 4 23.8 L sandy Burned
## 4 May 901 1 9 26.0 L sandy Burned
## 5 May 901 2 4 26.5 L sandy Burned
## 6 May 901 2 6 31.9 L sandy Burned
Forage2 <- X2025_Forage_Sampling %>%
filter(Fire == "Unburned" & Quadrant %in% c(2, 3)) %>%
mutate(Gross_Mass_Adjusted = `Gross Mass` - 20.33,
Ton_per_acre = Gross_Mass_Adjusted * 0.04632504)
mean(Forage2$Ton_per_acre)
## [1] 0.7574144
ggplot(Forage2, aes(x = EcoSite, y = Ton_per_acre)) +
geom_bar(stat = "summary", fun = "mean") +
labs(title = "Average Forage Tons per Acre",
x = "EcoSite",
y = "Tons per Acre") +
theme_minimal()
Woody plant species listed:
ARCA – A. Cana – Silver sage
ARFR – A. Frigida – Prairie sagewort
ARTR – A. Tridentada – Big sagebrush
ATCO – Atriplex confertifolia – Shadescale saltbrush
ATGA – Atriplex gardneri – Gardeners saltbrush
JUHO – Juniperus horizontalis – Creeping juniper
RHAR – Rhus aromativca – Fragrant sumac
SAVE – Sarcobatus vermiculatus - Greasewood
## # A tibble: 8 × 3
## species avg_coverage percent_coverage
## <chr> <dbl> <dbl>
## 1 ARCA 8.71 19.4
## 2 ARFR 5.79 12.9
## 3 ARTR 19.6 43.5
## 4 ATCO 0.500 1.11
## 5 ATGA 0.625 1.39
## 6 JUHO 4.40 9.79
## 7 RHAR 1.8 4.01
## 8 SAVE 3.54 7.89