WorldClim data associated with Cyperaceae distributions

R code

Tammy L. Elliott

July 16, 2016

University of Cape Town

GBIF distribution data for 50 Cyperaceae species

Correlations between different WorldClim variables for 50 Cyperaceae species

# find which values significant (> or < 0.7)
cyperaceae.climate.cor.bio1<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,1]>0.7|cyperaceae.climate.cor.overall[,1]<(-0.7)),]
#Annual temp correlations
(cyperaceae.climate.cor.annualT<-cyperaceae.climate.cor.bio1[,1])
##      AnnualT        ColdT SeasonalityT         MinT         DryT 
##    1.0000000    0.9265215   -0.7064208    0.8918854    0.7560533
cyperaceae.climate.cor.bio2<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,2]>0.7|cyperaceae.climate.cor.overall[,2]<(-0.7)),]
#Warm temperature correlations
(cyperaceae.climate.cor.warmT<-cyperaceae.climate.cor.bio2[,2])
##     WarmT      MaxT 
## 1.0000000 0.9227173
cyperaceae.climate.cor.bio3<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,3]>0.7|cyperaceae.climate.cor.overall[,3]<(-0.7)),]
#Cold temperature correlations
(cyperaceae.climate.cor.coldT<-cyperaceae.climate.cor.bio3[,3])
##       AnnualT         ColdT Isothermality  SeasonalityT          MinT 
##     0.9265215     1.0000000     0.7365478    -0.9148099     0.9915765 
##        RangeT          DryT 
##    -0.8726305     0.8623391
cyperaceae.climate.cor.bio4<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,4]>0.7|cyperaceae.climate.cor.overall[,4]<(-0.7)),]
#Annual precipitation correlations
(cyperaceae.climate.cor.annualP<-cyperaceae.climate.cor.bio4[,4])
##   AnnualP      WetP      DryP    WetQuP    DryQuP   WarmQuP   ColdQuP 
## 1.0000000 0.9273464 0.8853998 0.9430144 0.9105860 0.7155161 0.9403759
cyperaceae.climate.cor.bio5<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,5]>0.7|cyperaceae.climate.cor.overall[,5]<(-0.7)),]
#Wettest month precipitation correlations
(cyperaceae.climate.cor.wetP<-cyperaceae.climate.cor.bio5[,5])
##   AnnualP      WetP      DryP    WetQuP    DryQuP   ColdQuP 
## 0.9273464 1.0000000 0.7068967 0.9909589 0.7361341 0.8858109
cyperaceae.climate.cor.bio6<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,6]>0.7|cyperaceae.climate.cor.overall[,6]<(-0.7)),]
#Driest month precipitation correlations
(cyperaceae.climate.cor.dryP<-cyperaceae.climate.cor.bio6[,6])
##   AnnualP      WetP      DryP    WetQuP    DryQuP   WarmQuP   ColdQuP 
## 0.8853998 0.7068967 1.0000000 0.7223668 0.9921446 0.7234158 0.7999724
cyperaceae.climate.cor.bio7<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,7]>0.7|cyperaceae.climate.cor.overall[,7]<(-0.7)),]
#Temperature seasonality correlations
(cyperaceae.climate.cor.seasonalityP<-cyperaceae.climate.cor.bio7[7])
## SeasonalityP 
##            1
cyperaceae.climate.cor.bio8<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,8]>0.7|cyperaceae.climate.cor.overall[,8]<(-0.7)),]
#Wettest quarter precipitation correlations
(cyperaceae.climate.cor.wetQuP<-cyperaceae.climate.cor.bio8[,8])
##   AnnualP      WetP      DryP    WetQuP    DryQuP   ColdQuP 
## 0.9430144 0.9909589 0.7223668 1.0000000 0.7522536 0.8990383
cyperaceae.climate.cor.bio9<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,9]>0.7|cyperaceae.climate.cor.overall[,9]<(-0.7)),]
#Driest quarter precipitation correlations
(cyperaceae.climate.cor.dryQuP<-cyperaceae.climate.cor.bio9[,9])
##   AnnualP      WetP      DryP    WetQuP    DryQuP   WarmQuP   ColdQuP 
## 0.9105860 0.7361341 0.9921446 0.7522536 1.0000000 0.7335789 0.8248036
cyperaceae.climate.cor.bio10<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,10]>0.7|cyperaceae.climate.cor.overall[,10]<(-0.7)),]
#Warmest quarter precipitation correlations
(cyperaceae.climate.cor.warmQuP<-cyperaceae.climate.cor.bio10[,10])
##   AnnualP      DryP    DryQuP   WarmQuP 
## 0.7155161 0.7234158 0.7335789 1.0000000
cyperaceae.climate.cor.bio11<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,11]>0.7|cyperaceae.climate.cor.overall[,11]<(-0.7)),]
#Coldest quarter precipitation correlations
(cyperaceae.climate.cor.coldQuP<-cyperaceae.climate.cor.bio11[,11])
##   AnnualP      WetP      DryP    WetQuP    DryQuP   ColdQuP      DryT 
## 0.9403759 0.8858109 0.7999724 0.8990383 0.8248036 1.0000000 0.7167057
cyperaceae.climate.cor.bio12<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,12]>0.7|cyperaceae.climate.cor.overall[,12]<(-0.7)),]
#Mean Diurnal Range temperature correlations
(cyperaceae.climate.cor.diurnalT<-cyperaceae.climate.cor.bio12[12])
## DiurnalT 
##        1
cyperaceae.climate.cor.bio13<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,13]>0.7|cyperaceae.climate.cor.overall[,13]<(-0.7)),]
#Isothermality correlations
(cyperaceae.climate.cor.isothermality<-cyperaceae.climate.cor.bio13[,13])
##         ColdT Isothermality  SeasonalityT 
##     0.7365478     1.0000000    -0.7197976
cyperaceae.climate.cor.bio14<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,14]>0.7|cyperaceae.climate.cor.overall[,14]<(-0.7)),]
#Temperature seasonality correlations
(cyperaceae.climate.cor.seasonality<-cyperaceae.climate.cor.bio14[,14])
##       AnnualT         ColdT Isothermality  SeasonalityT          MinT 
##    -0.7064208    -0.9148099    -0.7197976     1.0000000    -0.9321276 
##        RangeT          DryT 
##     0.9753481    -0.8325175
cyperaceae.climate.cor.bio15<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,15]>0.7|cyperaceae.climate.cor.overall[,15]<(-0.7)),]
#Max Temperature of Warmest Month correlations
(cyperaceae.climate.cor.WarmT<-cyperaceae.climate.cor.bio15[,15])
##     WarmT      MaxT 
## 0.9227173 1.0000000
cyperaceae.climate.cor.bio16<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,16]>0.7|cyperaceae.climate.cor.overall[,16]<(-0.7)),]
#Min Temperature of Coldest Month correlations
(cyperaceae.climate.cor.Cold.T<-cyperaceae.climate.cor.bio16[,16])
##      AnnualT        ColdT SeasonalityT         MinT       RangeT 
##    0.8918854    0.9915765   -0.9321276    1.0000000   -0.9126730 
##         DryT 
##    0.8597014
cyperaceae.climate.cor.bio17<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,17]>0.7|cyperaceae.climate.cor.overall[,17]<(-0.7)),]
#Temperature Annual Range (BIO5-BIO6) correlations
(cyperaceae.climate.cor.range.T<-cyperaceae.climate.cor.bio17[,17])
##        ColdT SeasonalityT         MinT       RangeT         DryT 
##   -0.8726305    0.9753481   -0.9126730    1.0000000   -0.7908622
cyperaceae.climate.cor.bio18<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,18]>0.7|cyperaceae.climate.cor.overall[,18]<(-0.7)),]
# Mean Temperature of Wettest Quarter
(cyperaceae.climate.cor.wetT<-cyperaceae.climate.cor.bio18[18])
## WetT 
##    1
cyperaceae.climate.cor.bio19<-cyperaceae.climate.cor.overall[which(cyperaceae.climate.cor.overall[,19]>0.7|cyperaceae.climate.cor.overall[,19]<(-0.7)),]
# Mean Temperature of Driest Quarter
(cyperaceae.climate.cor.dryT<-cyperaceae.climate.cor.bio19[,19])
##      AnnualT        ColdT      ColdQuP SeasonalityT         MinT 
##    0.7560533    0.8623391    0.7167057   -0.8325175    0.8597014 
##       RangeT         DryT 
##   -0.7908622    1.0000000

Principal components ordination (PCA) of BIOCLIM variables for 50 Cyperaceae species