Question 1

bird <- read.csv("~/Desktop/Collage/Ant 109/Homework 3/species richness csv files/bird layer.csv", stringsAsFactors=TRUE)
mammal <- read.csv("~/Desktop/Collage/Ant 109/Homework 3/species richness csv files/mammal layer.csv", stringsAsFactors=TRUE)
reptile <- read.csv("~/Desktop/Collage/Ant 109/Homework 3/species richness csv files/reptile layer.csv")
r<- merge(bird,mammal,by = "Hex_ID")
head(r)
dat<- merge(r,reptile, by= "Hex_ID")
dat
str(dat)

There is 63980 observations for the Hex ID.

length(dat$Hex_ID)
## [1] 63890
par(mfrow=c(1,3))


hist(dat$NtvBird,col="#ddd866", xlab= "Native Bird Population", main= "Native Brid Population Vs. Frequency")
hist(dat$NtvMamm, col="#87e85b", xlab= "Native Mammal Population", main= "Native Mammal Population Vs. Frequency")
hist(dat$NtvRept, col="#73e6bb", xlab= "Native Reptile Population ", main= "Native Reptile Population Vs. Frequency")

library(igraph)
## 
## Attaching package: 'igraph'
## The following objects are masked from 'package:stats':
## 
##     decompose, spectrum
## The following object is masked from 'package:base':
## 
##     union
par(mfrow=c(1,3))

plot(x=dat$NtvMamm, y=dat$NtvBird, col="#e1d468", xlab="Native Mammal Population", ylab= "Native Bird Population", main = " Mammal Vs. Bird Populations")
plot(x= dat$NtvMamm, y=dat$NtvRept,col="#99e95a", xlab= "Native Mammal Population", ylab= "Native Reptile Population ", main="Mammal Vs. Reptile Populations")
plot(x=dat$NtvBird, y=dat$NtvRept, col="#73e6bb", xlab= "Native Bird Population", ylab= "Native Reptile Population ", main="Bird Vs. Reptile Populations" )

Question 2

The sate of California’s Native Bird Population
The sate of California’s Native Bird Population

The highest bird concentrations are along the coast, in the California Central Valley, and in regions with high tree concentrations. The lowest bird concentration are in areas with both high elevations and low tree cover. This is mostly in the southern California mountain ranges and the highest parts of the Sierra Nevada mountains.