Spatial distribution of Schoeneae species
Author: Tammy L. Elliott
Date: February 5, 2016
Institution: University of Cape Town
Plot non-reticulate clade tetraria
#dev.new(width=9, height=7)
grid.newpage()
pushViewport(viewport(layout = grid.layout(4, 4, heights = unit(c(.5, 5, 5, 5), "null"))))
grid.text("Non-reticulate Tetraria",vp = viewport(layout.pos.row = 1, layout.pos.col = 2:3), gp = gpar(fontsize = 18, fontface = "bold"))
print(T_brachyphylla_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 1))
print(T_bolusii_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 2))
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_point).
print(T_compacta_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 3))
print(T_compar_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 4))
print(T_crassa_map, vp = viewport(layout.pos.row = 3, layout.pos.col = 1))
print(T_cuspidata_map, vp = viewport(layout.pos.row = 3, layout.pos.col = 2))
## Warning: Removed 37 rows containing missing values (geom_point).
## Warning: Removed 37 rows containing missing values (geom_point).
print(T_exilis_map, vp = viewport(layout.pos.row = 3, layout.pos.col = 3))
print(T_picta_map, vp = viewport(layout.pos.row = 3, layout.pos.col = 4))
print(T_sylvatica_map, vp = viewport(layout.pos.row = 4, layout.pos.col = 1))
print(T_variabilis_map, vp = viewport(layout.pos.row = 4, layout.pos.col = 2))
print(T_paludosa_map, vp = viewport(layout.pos.row = 4, layout.pos.col = 3))
print(T_graminifolia_map, vp = viewport(layout.pos.row = 4, layout.pos.col = 4))
Plot Cape Epischoenus and Schoenus
#dev.new(width=9, height=7)
grid.newpage()
pushViewport(viewport(layout = grid.layout(4, 3, heights = unit(c(.75, 5, 5, 5), "null"))))
grid.text("Schoenus and Epischoenus",vp = viewport(layout.pos.row = 1, layout.pos.col = 2), gp = gpar(fontsize = 18, fontface = "bold"))
print(S_nigricans_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 1))
## Warning: Removed 1315 rows containing missing values (geom_point).
## Warning: Removed 1315 rows containing missing values (geom_point).
print(E_adnatus_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 2))
print(E_cernuus_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 3))
print(E_complanatus_map, vp = viewport(layout.pos.row = 3, layout.pos.col = 1))
print(E_dregeanus_map, vp = viewport(layout.pos.row = 3, layout.pos.col = 2))
print(E_gracilis_map, vp = viewport(layout.pos.row = 3, layout.pos.col = 3))
print(E_lucidus_map, vp = viewport(layout.pos.row = 4, layout.pos.col = 1))
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_point).
print(E_quadrangularis_map, vp = viewport(layout.pos.row = 4, layout.pos.col = 2))
Plot reticulate clade Tetraria (map one)
#dev.new(width=13, height=9)
grid.newpage()
pushViewport(viewport(layout = grid.layout(5, 5, heights = unit(c(.75, 5, 5, 5), "null"))))
grid.text("Reticulate Tetraria (fasciata-flexuosa, microstachys-burmanni)",vp = viewport(layout.pos.row = 1, layout.pos.col = 3), gp = gpar(fontsize = 18, fontface = "bold"))
print(T_fourcadei_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 1))
print(T_maculata_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 2))
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_point).
print(T_capillacea_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 3))
## Warning: Removed 2 rows containing missing values (geom_point).
## Warning: Removed 2 rows containing missing values (geom_point).
print(T_crinifolia_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 4))
print(T_fasciata_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 5))
## Warning: Removed 2 rows containing missing values (geom_point).
## Warning: Removed 2 rows containing missing values (geom_point).
print(T_ferruginea_map, vp = viewport(layout.pos.row = 3, layout.pos.col = 1))
print(T_flexuosa_map, vp = viewport(layout.pos.row = 3, layout.pos.col = 2))
print(T_ustulata_map, vp = viewport(layout.pos.row = 3, layout.pos.col = 3))
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_point).
print(T_burmanni_map, vp = viewport(layout.pos.row = 4, layout.pos.col = 1))
print(T_pygmaea_map, vp = viewport(layout.pos.row = 4, layout.pos.col = 2))
print(T_fimbriolata_map, vp = viewport(layout.pos.row = 4, layout.pos.col = 3))
print(T_microstachys_map, vp = viewport(layout.pos.row = 4, layout.pos.col = 4))
print(T_nigrovaginata_map, vp = viewport(layout.pos.row = 4, layout.pos.col = 5))
Plot reticulate clade Tetraria (maptwo)
#dev.new(width=11, height=9)
grid.newpage()
pushViewport(viewport(layout = grid.layout(5, 4, heights = unit(c(.75, 5, 5, 5), "null"))))
grid.text("Reticulate Tetraria (thermalis-bromoides and unclassified)",vp = viewport(layout.pos.row = 1, layout.pos.col = 2:3), gp = gpar(fontsize = 18, fontface = "bold"))
print(T_bromoides_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 1))
## Warning: Removed 2 rows containing missing values (geom_point).
## Warning: Removed 2 rows containing missing values (geom_point).
print(T_eximia_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 2))
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_point).
print(T_involucrata_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 3))
print(T_secans_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 4))
print(T_thermalis_map, vp = viewport(layout.pos.row = 3, layout.pos.col = 1))
print(T_triangularis_map, vp = viewport(layout.pos.row = 3, layout.pos.col = 2))
## Warning: Removed 2 rows containing missing values (geom_point).
## Warning: Removed 2 rows containing missing values (geom_point).
print(T_pillansii_map, vp = viewport(layout.pos.row = 4, layout.pos.col = 1))
print(T_pubescens_map, vp = viewport(layout.pos.row = 4, layout.pos.col = 2))
print(T_robusta_map, vp = viewport(layout.pos.row = 4, layout.pos.col = 3))
## Warning: Removed 1 rows containing missing values (geom_point).
## Warning: Removed 1 rows containing missing values (geom_point).
print(T_vaginata_map, vp = viewport(layout.pos.row = 4, layout.pos.col = 4))
Map other Cape Schoeneae
# dev.new(width=9, height=7)
grid.newpage()
pushViewport(viewport(layout = grid.layout(3, 3, heights = unit(c(.75, 5, 5, 5), "null"))))
grid.text("Distantly-related Cape Schoeneae",vp = viewport(layout.pos.row = 1, layout.pos.col = 2), gp = gpar(fontsize = 18, fontface = "bold"))
print(C_brevicaulis_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 1))
print(C_hexandra_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 2))
print(N_punctoria_map, vp = viewport(layout.pos.row = 2, layout.pos.col = 3))
print(C_glomerata_map, vp = viewport(layout.pos.row = 3, layout.pos.col = 1))
## Warning: Removed 12 rows containing missing values (geom_point).
## Warning: Removed 12 rows containing missing values (geom_point).
print(C_capitellata_map, vp = viewport(layout.pos.row = 3, layout.pos.col = 2))
## Warning: Removed 3 rows containing missing values (geom_point).
## Warning: Removed 3 rows containing missing values (geom_point).
print(T_capensis_map, vp = viewport(layout.pos.row = 3, layout.pos.col = 3))
