Assignment 3

knitr::opts_chunk$set(echo = TRUE)

bird.layer <- read.csv("C:/Users/austi/Downloads/species richness csv files/bird layer.csv")
mammal.layer <- read.csv("C:/Users/austi/Downloads/species richness csv files/mammal layer.csv")
reptile.layer <- read.csv("C:/Users/austi/Downloads/species richness csv files/reptile layer.csv")
birdsmammals <- merge(bird.layer, mammal.layer)

dat <- merge(birdsmammals, reptile.layer)

#There are 63890 Hexagons because that is how many rows are left after merging

par(mfrow = c(1, 3))

hist(dat$NtvBird, xlab = "Number of Bird Species in Sampled Area", col = 'cyan', main = "Bird Species Distribution")
hist(dat$NtvMamm, xlab = "Number of Mammal Species in Sampled Area", col = 'red', main = "Mammal Species Distribution")
hist(dat$NtvRept, xlab = "Number of Reptile Species in Sampled Area", col = 'green', main = "Reptile Species Distribution")

The graphs above show how the variety of these species, compared overall.

Bird Species Richness Map

As the map demonstrates, desert regions like the Mojave have the least species diversity overall. Coastal areas and generally wetter areas on the contrary are some of the most abundant.