Rodney Dyer

Overview

In this activity, we will be examining diversity in the Sonoran desert bark beetle, Araptus attenuatus, included in the gstudio library.

library( tidyverse )
── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──
✓ ggplot2 3.3.5     ✓ purrr   0.3.4
✓ tibble  3.1.6     ✓ dplyr   1.0.7
✓ tidyr   1.1.4     ✓ stringr 1.4.0
✓ readr   2.1.1     ✓ forcats 0.5.1
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
x dplyr::filter() masks stats::filter()
x dplyr::lag()    masks stats::lag()
library( gstudio )
data( arapat )
summary( arapat )
      Species      Cluster      Population        ID         Latitude    
 Cape     : 75   CBP-C :150   32     : 19   101_10A:  1   Min.   :23.08  
 Mainland : 36   NBP-C : 84   75     : 11   101_1A :  1   1st Qu.:24.59  
 Peninsula:252   SBP-C : 18   Const  : 11   101_2A :  1   Median :26.25  
                 SCBP-A: 75   12     : 10   101_3A :  1   Mean   :26.25  
                 SON-B : 36   153    : 10   101_4A :  1   3rd Qu.:27.53  
                              157    : 10   101_5A :  1   Max.   :29.33  
                              (Other):292   (Other):357                  
   Longitude          LTRS          WNT            EN           EF     
 Min.   :-114.3   01:01 :147   03:03  :108   01:01  :225   01:01 :219  
 1st Qu.:-113.0   01:02 : 86   01:01  : 82   01:02  : 52   01:02 : 52  
 Median :-111.5   02:02 :130   01:03  : 77   02:02  : 38   02:02 : 90  
 Mean   :-111.7                02:02  : 62   03:03  : 22   NA's  :  2  
 3rd Qu.:-110.5                03:04  :  8   01:03  :  7               
 Max.   :-109.1                (Other): 15   (Other): 16               
                               NA's   : 11   NA's   :  3               
     ZMP           AML           ATPS          MP20    
 01:01 : 46   08:08  : 51   05:05  :155   05:07  : 64  
 01:02 : 51   07:07  : 42   03:03  : 69   07:07  : 53  
 02:02 :233   07:08  : 42   09:09  : 66   18:18  : 52  
 NA's  : 33   04:04  : 41   02:02  : 30   05:05  : 48  
              07:09  : 22   07:09  : 14   05:06  : 22  
              (Other):142   08:08  :  9   (Other):119  
              NA's   : 23   (Other): 20   NA's   :  5  

Activity Questions

Rodney Dyer

Overview

In this activity, we will be examining diversity in the Sonoran desert bark beetle, Araptus attenuatus, included in the gstudio library.

library( tidyverse )
library( gstudio )
data( arapat )
summary( arapat )
      Species      Cluster      Population        ID         Latitude    
 Cape     : 75   CBP-C :150   32     : 19   101_10A:  1   Min.   :23.08  
 Mainland : 36   NBP-C : 84   75     : 11   101_1A :  1   1st Qu.:24.59  
 Peninsula:252   SBP-C : 18   Const  : 11   101_2A :  1   Median :26.25  
                 SCBP-A: 75   12     : 10   101_3A :  1   Mean   :26.25  
                 SON-B : 36   153    : 10   101_4A :  1   3rd Qu.:27.53  
                              157    : 10   101_5A :  1   Max.   :29.33  
                              (Other):292   (Other):357                  
   Longitude          LTRS          WNT            EN           EF     
 Min.   :-114.3   01:01 :147   03:03  :108   01:01  :225   01:01 :219  
 1st Qu.:-113.0   01:02 : 86   01:01  : 82   01:02  : 52   01:02 : 52  
 Median :-111.5   02:02 :130   01:03  : 77   02:02  : 38   02:02 : 90  
 Mean   :-111.7                02:02  : 62   03:03  : 22   NA's  :  2  
 3rd Qu.:-110.5                03:04  :  8   01:03  :  7               
 Max.   :-109.1                (Other): 15   (Other): 16               
                               NA's   : 11   NA's   :  3               
     ZMP           AML           ATPS          MP20    
 01:01 : 46   08:08  : 51   05:05  :155   05:07  : 64  
 01:02 : 51   07:07  : 42   03:03  : 69   07:07  : 53  
 02:02 :233   07:08  : 42   09:09  : 66   18:18  : 52  
 NA's  : 33   04:04  : 41   02:02  : 30   05:05  : 48  
              07:09  : 22   07:09  : 14   05:06  : 22  
              (Other):142   08:08  :  9   (Other):119  
              NA's   : 23   (Other): 20   NA's   :  5  

Activity Questions

  1. Create a leaflet map showing the levels of effective allelic diversity (\(A_e\)) as bars by Populations for loci \(LTRS\), \(WNT\), and \(EN\).

  2. Estimate effective allelic diversity for all populations of the individuals where Species == Peninsula at the locus MP20. Is there the same indication of “Allele Surfing” in the beetle as shown for its host plant? How do you interpret this pattern?

  3. Is there more effective allelic diversity in the Cape or Peninsula groupings?

  4. Is there a correlation between genetic effective allelic diversity (\(A_e\)) and genotypic diversity (\(H_e\)) in these data? Do you expect there to be one? Why?

LS0tCnRpdGxlOiAiR2VuZXRpYyBEaXZlcnNpdHkgQWN0aXZpdHkiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCgpbIVtSb2RuZXkgRHllcl0oaHR0cHM6Ly9saXZlLnN0YXRpY2ZsaWNrci5jb20vNjU1MzUvNTEwMjIxNjUwNDNfNTlhN2Y3YjNkNV9jX2QuanBnKV0oaHR0cHM6Ly9yb2RuZXkuYWYpCgoKIyMgT3ZlcnZpZXcKCkluIHRoaXMgYWN0aXZpdHksIHdlIHdpbGwgYmUgZXhhbWluaW5nIGRpdmVyc2l0eSBpbiB0aGUgU29ub3JhbiBkZXNlcnQgYmFyayBiZWV0bGUsICpBcmFwdHVzIGF0dGVudWF0dXMqLCBpbmNsdWRlZCBpbiB0aGUgYGdzdHVkaW9gIGxpYnJhcnkuCgpgYGB7cn0KbGlicmFyeSggdGlkeXZlcnNlICkKbGlicmFyeSggZ3N0dWRpbyApCmRhdGEoIGFyYXBhdCApCnN1bW1hcnkoIGFyYXBhdCApCmBgYAoKCiMjIEFjdGl2aXR5IFF1ZXN0aW9ucwoKCjxjZW50ZXI+ClshW1JvZG5leSBEeWVyXShodHRwczovL2xpdmUuc3RhdGljZmxpY2tyLmNvbS82NTUzNS81MTAyMjE2NTA0M181OWE3ZjdiM2Q1X2NfZC5qcGcpXShodHRwczovL3JvZG5leS5hZikKPC9jZW50ZXI+CgoKIyMgT3ZlcnZpZXcKCkluIHRoaXMgYWN0aXZpdHksIHdlIHdpbGwgYmUgZXhhbWluaW5nIGRpdmVyc2l0eSBpbiB0aGUgU29ub3JhbiBkZXNlcnQgYmFyayBiZWV0bGUsICpBcmFwdHVzIGF0dGVudWF0dXMqLCBpbmNsdWRlZCBpbiB0aGUgYGdzdHVkaW9gIGxpYnJhcnkuCgpgYGB7cn0KbGlicmFyeSggdGlkeXZlcnNlICkKbGlicmFyeSggZ3N0dWRpbyApCmRhdGEoIGFyYXBhdCApCnN1bW1hcnkoIGFyYXBhdCApCmBgYAoKCiMjIEFjdGl2aXR5IFF1ZXN0aW9ucwoKCjEuIENyZWF0ZSBhIGBsZWFmbGV0YCBtYXAgc2hvd2luZyB0aGUgbGV2ZWxzIG9mIGVmZmVjdGl2ZSBhbGxlbGljIGRpdmVyc2l0eSAoJEFfZSQpIGFzIGJhcnMgYnkgUG9wdWxhdGlvbnMgZm9yIGxvY2kgJExUUlMkLCAkV05UJCwgYW5kICRFTiQuCgoyLiBFc3RpbWF0ZSBlZmZlY3RpdmUgYWxsZWxpYyBkaXZlcnNpdHkgZm9yIGFsbCBwb3B1bGF0aW9ucyBvZiB0aGUgaW5kaXZpZHVhbHMgd2hlcmUgKlNwZWNpZXMgPT0gUGVuaW5zdWxhKiBhdCB0aGUgbG9jdXMgYE1QMjBgLiAgSXMgdGhlcmUgdGhlIHNhbWUgaW5kaWNhdGlvbiBvZiAiQWxsZWxlIFN1cmZpbmciIGluIHRoZSBiZWV0bGUgYXMgc2hvd24gZm9yIGl0cyBob3N0IHBsYW50PyAgSG93IGRvIHlvdSBpbnRlcnByZXQgdGhpcyBwYXR0ZXJuPwoKMy4gSXMgdGhlcmUgbW9yZSBlZmZlY3RpdmUgYWxsZWxpYyBkaXZlcnNpdHkgaW4gdGhlIGBDYXBlYCBvciBgUGVuaW5zdWxhYCBncm91cGluZ3M/ICAKCjQuIElzIHRoZXJlIGEgY29ycmVsYXRpb24gYmV0d2VlbiBnZW5ldGljIGVmZmVjdGl2ZSBhbGxlbGljIGRpdmVyc2l0eSAoJEFfZSQpIGFuZCBnZW5vdHlwaWMgZGl2ZXJzaXR5ICgkSF9lJCkgaW4gdGhlc2UgZGF0YT8gIERvIHlvdSBleHBlY3QgdGhlcmUgdG8gYmUgb25lPyAgV2h5Pwo=