# Marsh TWIG pie chart R code

TWIG<-c("Andaman_Islands","Cambodia","Laos","Myanmar","Nicobar_Islands", "South_China_Sea","Thailand","Vietnam","Borneo","Christmas_Island", "Cocos_Keeling_Island","Jawa","Lesser_Sunda_Islands","Malaya","Maluku", "Philippines","Sulawesi","Sumatra","Bismarck_Archipelago","New_Guinea", "Solomon_Islands")
number_of_genera<-c(453,686,767,1304,277,39,1605,1401,1396,172,62,1403,812,1457, 898,1406,1000,1300,509,1424,665)
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)
par(mar=c(2,4.1,4.1,2.1))
par(mfrow=c(1,2))
pie(number_of_genera,labels=as.character(TWIG),cex=0.5)
pie(number_of_genera_per_area,labels=as.character(TWIG),cex=0.5)