#Marsh et al. 2009


number_of_genera_per_area<-c(943, 598, 622, 812, 779, 291, 1097, 1061, 841, 980, 438, 1307, 802, 1354, 1026, 1062, 850, 877, 612, 844, 861)
human_footprint<-c(34.90, 21.95, 20.74, 19.91, 22.58, 0.62, 24.60, 28.12, 20.27, 33.66, 3.48, 41.05, 31.53, 26.24, 23.88, 33.79, 30.68, 28.99, 26.00, 16.72, 29.53)
plot(human_footprint, number_of_genera_per_area, xlab= "Mean human footprint value", ylab="Number of genera standardised by area",pch=15)