Overview

library( GGally )
Loading required package: ggplot2
Registered S3 method overwritten by 'GGally':
  method from   
  +.gg   ggplot2
library( raster )
Loading required package: sp
library( gstudio )
library( factoextra )
Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa
data( arapat )

For this activity, you’ll also need a folder of bioclimatic raste data sets. These are zipped and live on my google drive partition. This is somewhat of a large archive (~77MB). You can download it by running the following chunk (by default it will not run because eval=FALSE is in the chunk’s meta-data).

Download the archive from here and and extract it into your Project folder (where this file is saved).

Questions

  1. The GGally package produces pairs of plots using the ?ggpairs function. The figure in the slides here is created by extracting data values from each of the rasters in the bioclim layers above and then plotting them in a pairwise fashion. If you can, reconstruct that figure here.

  2. Principal components & coordinates analyses are based upon rotations of multivariate data. Take the arapat data set and perform a principal components analysis based upon individual-level mutlivariate structure. What are the most important loadings for this rotation? How much variation does the first axis explain?

  3. The factoextra package has functions fviz_pca_ind() and fviz_pca_var() to help visualize the output of PCA-type analyses. Estimate population-level genetic distance matrices using Nei’s and cGD and construct two principal coordinate analyses. When you visualize these models using the fviz_pca_* functions, do you see any differences in the eigenstructure between the two distance metrics?

  4. Spatial Autocorrelation is a measure of genetic similarity limited to different distance classes. Presumably, limitation in dispersal lead to positive spatial autocorrelation at the closest distance classes. In the lecture here, we examined autocorrelation with bin sizes equal to 100m. Produce the correlograms for autocorrelation with distances of 25, 50, 100, and 200. How does the bin size influence the estimation of how far a distance is required until there is no genetic correlation? You may need to run and get a cup of coffee for each, it can take a bit to do the significance testing of 1/1000 (or you can lower the significance to 1/100 by setting perms=99 instead of perms=999).

LS0tCnRpdGxlOiAiU3BhdGlhbCBHZW5ldGljcyBBY3Rpdml0eSIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKIVtdKGh0dHBzOi8vbGl2ZS5zdGF0aWNmbGlja3IuY29tLzY1NTM1LzUxMDIyMTY1MzUzXzJhN2Y3ZmIzNTFfY19kLmpwZykKCiMjIE92ZXJ2aWV3CgpgYGB7cn0KbGlicmFyeSggR0dhbGx5ICkKbGlicmFyeSggcmFzdGVyICkKbGlicmFyeSggZ3N0dWRpbyApCmxpYnJhcnkoIGZhY3RvZXh0cmEgKQpkYXRhKCBhcmFwYXQgKQpgYGAKCkZvciB0aGlzIGFjdGl2aXR5LCB5b3UnbGwgYWxzbyBuZWVkIGEgZm9sZGVyIG9mIGJpb2NsaW1hdGljIHJhc3RlIGRhdGEgc2V0cy4gIFRoZXNlIGFyZSB6aXBwZWQgYW5kIGxpdmUgb24gbXkgZ29vZ2xlIGRyaXZlIHBhcnRpdGlvbi4gIFRoaXMgaXMgc29tZXdoYXQgb2YgYSBsYXJnZSBhcmNoaXZlICh+NzdNQikuIFlvdSBjYW4gZG93bmxvYWQgaXQgYnkgcnVubmluZyB0aGUgZm9sbG93aW5nIGNodW5rIChieSBkZWZhdWx0IGl0IHdpbGwgbm90IHJ1biBiZWNhdXNlIGBldmFsPUZBTFNFYCBpcyBpbiB0aGUgY2h1bmsncyBtZXRhLWRhdGEpLiAgCgpbRG93bmxvYWRdKGh0dHBzOi8vZHJpdmUuZ29vZ2xlLmNvbS9maWxlL2QvMXlLM1N1alF2QkUtdFllUGJrV25xWkNtN3dETFE0dDlsL3ZpZXc/dXNwPXNoYXJpbmcpIHRoZSBhcmNoaXZlIGZyb20gaGVyZSBhbmQgYW5kIGV4dHJhY3QgaXQgaW50byB5b3VyIFByb2plY3QgZm9sZGVyICh3aGVyZSB0aGlzIGZpbGUgaXMgc2F2ZWQpLgoKIyMgUXVlc3Rpb25zCgoxLiBUaGUgYEdHYWxseWAgcGFja2FnZSBwcm9kdWNlcyBwYWlycyBvZiBwbG90cyB1c2luZyB0aGUgYD9nZ3BhaXJzYCBmdW5jdGlvbi4gIFRoZSBmaWd1cmUgaW4gdGhlIHNsaWRlcyBbaGVyZV0oaHR0cHM6Ly90aHVyc3RvbmNvdW50eS5naXRsYWIuaW8vbGFuZHNjYXBlLWdlbmV0aWNzLXdvcmtzaG9wL2dlbmV0aWMvc3BhdGlhbF9zdHJ1Y3R1cmUvc2xpZGVzLmh0bWwjNSkgaXMgY3JlYXRlZCBieSBleHRyYWN0aW5nIGRhdGEgdmFsdWVzIGZyb20gZWFjaCBvZiB0aGUgcmFzdGVycyBpbiB0aGUgYmlvY2xpbSBsYXllcnMgYWJvdmUgYW5kIHRoZW4gcGxvdHRpbmcgdGhlbSBpbiBhIHBhaXJ3aXNlIGZhc2hpb24uICBJZiB5b3UgY2FuLCByZWNvbnN0cnVjdCB0aGF0IGZpZ3VyZSBoZXJlLgoKCjIuIFByaW5jaXBhbCBjb21wb25lbnRzICYgY29vcmRpbmF0ZXMgYW5hbHlzZXMgYXJlIGJhc2VkIHVwb24gcm90YXRpb25zIG9mIG11bHRpdmFyaWF0ZSBkYXRhLiAgVGFrZSB0aGUgYGFyYXBhdGAgZGF0YSBzZXQgYW5kIHBlcmZvcm0gYSBwcmluY2lwYWwgY29tcG9uZW50cyBhbmFseXNpcyBiYXNlZCB1cG9uIGluZGl2aWR1YWwtbGV2ZWwgbXV0bGl2YXJpYXRlIHN0cnVjdHVyZS4gIFdoYXQgYXJlIHRoZSBtb3N0IGltcG9ydGFudCBsb2FkaW5ncyBmb3IgdGhpcyByb3RhdGlvbj8gIEhvdyBtdWNoIHZhcmlhdGlvbiBkb2VzIHRoZSBmaXJzdCBheGlzIGV4cGxhaW4/CgozLiBUaGUgYGZhY3RvZXh0cmFgIHBhY2thZ2UgaGFzIGZ1bmN0aW9ucyBgZnZpel9wY2FfaW5kKClgIGFuZCBgZnZpel9wY2FfdmFyKClgIHRvIGhlbHAgdmlzdWFsaXplIHRoZSBvdXRwdXQgb2YgUENBLXR5cGUgYW5hbHlzZXMuICBFc3RpbWF0ZSBwb3B1bGF0aW9uLWxldmVsIGdlbmV0aWMgZGlzdGFuY2UgbWF0cmljZXMgdXNpbmcgTmVpJ3MgYW5kIGNHRCBhbmQgY29uc3RydWN0IHR3byBwcmluY2lwYWwgY29vcmRpbmF0ZSBhbmFseXNlcy4gV2hlbiB5b3UgdmlzdWFsaXplIHRoZXNlIG1vZGVscyB1c2luZyB0aGUgYGZ2aXpfcGNhXypgIGZ1bmN0aW9ucywgZG8geW91IHNlZSBhbnkgZGlmZmVyZW5jZXMgaW4gdGhlIGVpZ2Vuc3RydWN0dXJlIGJldHdlZW4gdGhlIHR3byBkaXN0YW5jZSBtZXRyaWNzPwoKNC4gU3BhdGlhbCBBdXRvY29ycmVsYXRpb24gaXMgYSBtZWFzdXJlIG9mIGdlbmV0aWMgc2ltaWxhcml0eSBsaW1pdGVkIHRvIGRpZmZlcmVudCBkaXN0YW5jZSBjbGFzc2VzLiAgUHJlc3VtYWJseSwgbGltaXRhdGlvbiBpbiBkaXNwZXJzYWwgbGVhZCB0byBwb3NpdGl2ZSBzcGF0aWFsIGF1dG9jb3JyZWxhdGlvbiBhdCB0aGUgY2xvc2VzdCBkaXN0YW5jZSBjbGFzc2VzLiAgSW4gdGhlIGxlY3R1cmUgW2hlcmVdKGh0dHBzOi8vdGh1cnN0b25jb3VudHkuZ2l0bGFiLmlvL2xhbmRzY2FwZS1nZW5ldGljcy13b3Jrc2hvcC9nZW5ldGljL3NwYXRpYWxfc3RydWN0dXJlL3NsaWRlcy5odG1sIzEpLCB3ZSBleGFtaW5lZCBhdXRvY29ycmVsYXRpb24gd2l0aCBiaW4gc2l6ZXMgZXF1YWwgdG8gMTAwbS4gIFByb2R1Y2UgdGhlIGNvcnJlbG9ncmFtcyBmb3IgYXV0b2NvcnJlbGF0aW9uIHdpdGggZGlzdGFuY2VzIG9mIDI1LCA1MCwgMTAwLCBhbmQgMjAwLiAgSG93IGRvZXMgdGhlIGJpbiBzaXplIGluZmx1ZW5jZSB0aGUgZXN0aW1hdGlvbiBvZiBob3cgZmFyIGEgZGlzdGFuY2UgaXMgcmVxdWlyZWQgdW50aWwgdGhlcmUgaXMgbm8gZ2VuZXRpYyBjb3JyZWxhdGlvbj8gIFlvdSBtYXkgbmVlZCB0byBydW4gYW5kIGdldCBhIGN1cCBvZiBjb2ZmZWUgZm9yIGVhY2gsIGl0IGNhbiB0YWtlIGEgYml0IHRvIGRvIHRoZSBzaWduaWZpY2FuY2UgdGVzdGluZyBvZiAxLzEwMDAgKG9yIHlvdSBjYW4gbG93ZXIgdGhlIHNpZ25pZmljYW5jZSB0byAxLzEwMCBieSBzZXR0aW5nIGBwZXJtcz05OWAgaW5zdGVhZCBvZiBgcGVybXM9OTk5YCkuICAKCgo=