-
Notifications
You must be signed in to change notification settings - Fork 1
/
PieCharts.R
93 lines (90 loc) · 6.11 KB
/
PieCharts.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
#Conflict At nodes All Taxa Amino Acids 1637 total trees
#1637 trees into analysis height width of pie 275,230
#0 (GREEN_Chenopodiaceae_Beta_vulgaris,GREEN_Chenopodiaceae_Spinacia_oleracea)
slices <- c(1619, 3, 15)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#1 ((Frankeniaceae_Frankenia_laevis,Tamaricaceae_Reaumuria_trigyna),(((Droseraceae_Drosera_binata,(Dionaea_muscipula,Droseraceae_Aldrovanda_vesiculosa)),((Ancistrocladus_robertsonianum,Drosophyllaceae_Drosophyllum_lusitanicum),(Nepenthaceae_Nepenthes_alata_SFB,Nepenthes_ampullaria))),(Polygonaceae_Ruprechtia_salicifolia,Plumbaginaceae_Plumbago_auriculata)))
slices <- c(1619, 6, 10)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#2 (((Droseraceae_Drosera_binata,(Dionaea_muscipula,Droseraceae_Aldrovanda_vesiculosa)),((Ancistrocladus_robertsonianum,Drosophyllaceae_Drosophyllum_lusitanicum),(Nepenthaceae_Nepenthes_alata_SFB,Nepenthes_ampullaria))),(Polygonaceae_Ruprechtia_salicifolia,Plumbaginaceae_Plumbago_auriculata))
slices <- c(252, 407, 240, 738)
pie(slices, labels = "", col=c("Blue","Red","Yellow", "Grey"))
#3 ((Droseraceae_Drosera_binata,(Dionaea_muscipula,Droseraceae_Aldrovanda_vesiculosa)),((Ancistrocladus_robertsonianum,Drosophyllaceae_Drosophyllum_lusitanicum),(Nepenthaceae_Nepenthes_alata_SFB,Nepenthes_ampullaria)))
slices <- c(938, 277, 422)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#4 (Droseraceae_Drosera_binata,(Dionaea_muscipula,Droseraceae_Aldrovanda_vesiculosa))
slices <- c(1523, 31, 83)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#5 (Dionaea_muscipula,Droseraceae_Aldrovanda_vesiculosa)
slices <- c(817, 81, 95, 646)
pie(slices, labels = "", col=c("Blue","Red","Yellow", "Grey"))
#6 ((Ancistrocladus_robertsonianum,Drosophyllaceae_Drosophyllum_lusitanicum),(Nepenthaceae_Nepenthes_alata_SFB,Nepenthes_ampullaria))
slices <- c(297, 291, 230, 819)
pie(slices, labels = "", col=c("Blue","Red", "Yellow","Grey"))
#7 (Ancistrocladus_robertsonianum,Drosophyllaceae_Drosophyllum_lusitanicum)
slices <- c(1188, 123, 326)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#8 (Nepenthaceae_Nepenthes_alata_SFB,Nepenthes_ampullaria)
slices <- c(1633, 1, 3)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#9 (Polygonaceae_Ruprechtia_salicifolia,Plumbaginaceae_Plumbago_auriculata)
slices <- c(1143, 172, 322)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#10 (Frankeniaceae_Frankenia_laevis,Tamaricaceae_Reaumuria_trigyna)
slices <- c(1491, 36, 110)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#Conflict At nodes All Taxa CDS 1237 total trees
#0 (GREEN_Chenopodiaceae_Spinacia_oleracea,GREEN_Chenopodiaceae_Beta_vulgaris)100
slices <- c(1059, 0, 178)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#1 ((Frankeniaceae_Frankenia_laevis,Tamaricaceae_Reaumuria_trigyna)100,((Polygonaceae_Ruprechtia_salicifolia,Plumbaginaceae_Plumbago_auriculata)100,((Ancistrocladus_robertsonianum,Drosophyllaceae_Drosophyllum_lusitanicum)100,((Droseraceae_Drosera_binata,(Droseraceae_Aldrovanda_vesiculosa,Dionaea_muscipula)100)100,(Nepenthaceae_Nepenthes_alata_SFB,Nepenthes_ampullaria)100)0)100)100)
slices <- c(178, 0, 1059)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#2 (Frankeniaceae_Frankenia_laevis,Tamaricaceae_Reaumuria_trigyna)100
slices <- c(1225, 4, 8)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#3 ((Polygonaceae_Ruprechtia_salicifolia,Plumbaginaceae_Plumbago_auriculata)100,((Ancistrocladus_robertsonianum,Drosophyllaceae_Drosophyllum_lusitanicum)100,((Droseraceae_Drosera_binata,(Droseraceae_Aldrovanda_vesiculosa,Dionaea_muscipula)100)100,(Nepenthaceae_Nepenthes_alata_SFB,Nepenthes_ampullaria)100)0)100)100
slices <- c(273, 446, 518)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#4 (Polygonaceae_Ruprechtia_salicifolia,Plumbaginaceae_Plumbago_auriculata)100
slices <- c(1119, 42, 76)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#5 ((Ancistrocladus_robertsonianum,Drosophyllaceae_Drosophyllum_lusitanicum)100,((Droseraceae_Drosera_binata,(Droseraceae_Aldrovanda_vesiculosa,Dionaea_muscipula)100)100,(Nepenthaceae_Nepenthes_alata_SFB,Nepenthes_ampullaria)100)0)100
slices <- c(1057, 77, 103)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#6 (Ancistrocladus_robertsonianum,Drosophyllaceae_Drosophyllum_lusitanicum)100
slices <- c(1160, 19, 58)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#7 ((Droseraceae_Drosera_binata,(Droseraceae_Aldrovanda_vesiculosa,Dionaea_muscipula)100)100,(Nepenthaceae_Nepenthes_alata_SFB,Nepenthes_ampullaria)100)0
slices <- c(244, 387, 606)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#8 (Droseraceae_Drosera_binata,(Droseraceae_Aldrovanda_vesiculosa,Dionaea_muscipula)100)100
slices <- c(1229, 4, 4)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#9 (Droseraceae_Aldrovanda_vesiculosa,Dionaea_muscipula)100
slices <- c(728, 139, 370)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#10 (Nepenthaceae_Nepenthes_alata_SFB,Nepenthes_ampullaria)100
slices <- c(1237, 0, 0)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#Red is conflict blue is concordant and Grey is not informative by SH support < 80
#Pie chart of the All Taxa Amino acid Disputed Carnivory node 1639 total trees in AA set
setwd("/home/joe/Desktop/CarnivoryReanalyze/TreeStuff/Alltaxa/1to1/PhypartsConflict")
slices <- c(298, 522, 819)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#Pie chart of the All Taxa CDS Disputed Carnivory node 1237total trees in CDS set
setwd("/home/joe/Desktop/CarnivoryReanalyze/TreeStuff/Alltaxa/1to1/PhypartsConflict")
slices <- c(244, 387, 606)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#Pie chart of no ancestrocladus disputed node AA 1614 total genes
slices <- c(298, 327, 989)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#Pie chart of no ancestrocladus disputed node CDS 1117 total genes
slices <- c(249, 276,529)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#Pie chart of no Drosophyllum disputed node AA 1616 total genes
slices <- c(409, 395,812)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))
#Pie chart of no Drosophyllum disputed node CDS 1211 total genes
slices <- c(268, 291, 652)
pie(slices, labels = "", col=c("Blue","Red", "Grey"))