The coding to create the graphs:

merge(x = bir, y = mam) birrep<-merge(x = bir, y = mam) all<-merge(x=birrep, y=rep)

par(mfrow=c(1,3)) plot(x=all\(NtvBird, y=all\)NtvMamm, main=“Native Bird vs Mammal Species”, xlab=“Number of Native Bird Species”, ylab=“Number of Native Mammal Species”, pch=19, cex=0.5, col=“blue”) plot(x=all\(NtvRept, y=all\)NtvBird, main=“Native Reptile vs Bird Species”, xlab=“Number of Native Reptile Species”, ylab=“Number of Native Bird Species”, pch=19, cex=0.5, col=“red”) plot(x=all\(NtvMamm, y=all\)NtvRept, main=“Native Reptile Mammal vs Reptile Species”,xlab=“Number of Native Mammal Species”, ylab=“Number of Native Reptile Species”, pch=19, cex=0.5, col=“green”)

The areas of California with the fewest birds are those with long stretches of dessert. Mountainous regions and highly urbanised areas seem to also have a loss in bird species count, though not as dramatic as dessert areas. Areas close to the coast and in the central valley contain the most bird species.