This repository has been archived by the owner on Oct 27, 2019. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathcommands.r
177 lines (162 loc) · 43.7 KB
/
commands.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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
generateDataFrame <- function(mold, m1, m0.95, mneg1, key){
matrixOld=as.matrix(mold[key])
matrixM1=as.matrix(m1[key])
matrixM0.95=as.matrix(m0.95[key])
matrixMneg1=as.matrix(mneg1[key])
indexOld=as.matrix(mold['Index'])
indexM1=as.matrix(m1['Index'])
indexM0.95=as.matrix(m0.95['Index'])
indexMneg1=as.matrix(mneg1['Index'])
sizeMold=length(matrixOld)
sizeM1=length(matrixM1)
sizeM09.5=length(matrixM0.95)
sizeMneg1=length(matrixMneg1)
groups=c(rep("ad-hoc", sizeMold), rep("p1.0", sizeM1), rep("p0.95", sizeM09.5), rep("p0.00", sizeMneg1))
return(data.frame(series=groups, index=c(indexOld, indexM1, indexM0.95, indexMneg1), data=c(matrixOld, matrixM1, matrixM0.95, matrixMneg1)))
}
generateDataFrameStats <- function(m1, m0.95, mneg1, key){
matrixM1=as.matrix(m1[key])
matrixM0.95=as.matrix(m0.95[key])
matrixMneg1=as.matrix(mneg1[key])
sizeM1=length(matrixM1)
sizeM09.5=length(matrixM0.95)
sizeMneg1=length(matrixMneg1)
groups=c(rep("p1.0", sizeM1), rep("p0.95", sizeM09.5), rep("p0.00", sizeMneg1))
return(data.frame(series=groups, data=c(matrixM1, matrixM0.95, matrixMneg1)))
}
generateDataFrameNew <- function(m1, m0.95, mneg1, key){
matrixM1=as.matrix(m1[key])
matrixM0.95=as.matrix(m0.95[key])
matrixMneg1=as.matrix(mneg1[key])
indexM1=as.matrix(m1['Index'])
indexM0.95=as.matrix(m0.95['Index'])
indexMneg1=as.matrix(mneg1['Index'])
sizeM1=length(matrixM1)
sizeM09.5=length(matrixM0.95)
sizeMneg1=length(matrixMneg1)
groups=c(rep("p1.0", sizeM1), rep("p0.95", sizeM09.5), rep("p0.00", sizeMneg1))
return(data.frame(series=groups, index=c(indexM1, indexM0.95, indexMneg1), data=c(matrixM1, matrixM0.95, matrixMneg1)))
}
generateFrameStats <- function(m1, m0.95, mneg1, key){
matrixM1=as.matrix(m1[key])
matrixM0.95=as.matrix(m0.95[key])
matrixMneg1=as.matrix(mneg1[key])
sizeM1=length(matrixM1)
sizeM09.5=length(matrixM0.95)
sizeMneg1=length(matrixMneg1)
groups=c(rep("p1.0", sizeM1), rep("p0.95", sizeM09.5), rep("p0.00", sizeMneg1))
return(data.frame(series=groups, data=c(matrixM1, matrixM0.95, matrixMneg1)))
}
library(ggplot2)
pdf('sim 36.pdf', width=8, height=6)
ggplot(data=generateDataFrame(sim_36_old, sim_36_1, sim_36_0.95, sim_36_neg1, "Real.Coverage"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Real (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.15, 0.2), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrameNew(sim_36_1, sim_36_0.95, sim_36_neg1, "Sink.Coverage"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Sink (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.15, 0.2), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrameNew(sim_36_1, sim_36_0.95, sim_36_neg1, "Coverage.Delta...."), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Sink - Cobertura Real (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.1, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrame(sim_36_old, sim_36_1, sim_36_0.95, sim_36_neg1, "Consumed.Energy"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Energia Consumida (mAh)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.1, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrame(sim_36_old, sim_36_1, sim_36_0.95, sim_36_neg1, "Residual.Energy"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Energia Residual (mAh)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.85, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
dev.off()
pdf('sim 36 indiv.pdf', width=8, height=6)
ggplot(data=generateDataFrame(sim_36_old_indiv, sim_36_1_indiv, sim_36_0.95_indiv, sim_36_neg1_indiv, "Real.Coverage"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Real (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.15, 0.2), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrameNew(sim_36_1_indiv, sim_36_0.95_indiv, sim_36_neg1_indiv, "Sink.Coverage"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Sink (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.15, 0.2), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrameNew(sim_36_1_indiv, sim_36_0.95_indiv, sim_36_neg1_indiv, "Coverage.Delta...."), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Sink - Cobertura Real (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.1, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrame(sim_36_old_indiv, sim_36_1_indiv, sim_36_0.95_indiv, sim_36_neg1_indiv, "Consumed.Energy"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Energia Consumida (mAh)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.1, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrame(sim_36_old_indiv, sim_36_1_indiv, sim_36_0.95_indiv, sim_36_neg1_indiv, "Residual.Energy"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Energia Residual (mAh)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.85, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
dev.off()
pdf('sim 49.pdf', width=8, height=6)
ggplot(data=generateDataFrame(sim_49_old, sim_49_1, sim_49_0.95, sim_49_neg1, "Real.Coverage"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Real (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.15, 0.2), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrameNew(sim_49_1, sim_49_0.95, sim_49_neg1, "Sink.Coverage"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Sink (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.15, 0.2), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrameNew(sim_49_1, sim_49_0.95, sim_49_neg1, "Coverage.Delta...."), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Sink - Cobertura Real (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.1, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrame(sim_49_old, sim_49_1, sim_49_0.95, sim_49_neg1, "Consumed.Energy"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Energia Consumida (mAh)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.1, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrame(sim_49_old, sim_49_1, sim_49_0.95, sim_49_neg1, "Residual.Energy"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Energia Residual (mAh)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.85, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
dev.off()
pdf('sim 64.pdf', width=8, height=6)
ggplot(data=generateDataFrame(sim_64_old, sim_64_1, sim_64_0.95, sim_64_neg1, "Real.Coverage"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Real (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.15, 0.2), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrameNew(sim_64_1, sim_64_0.95, sim_64_neg1, "Sink.Coverage"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Sink (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.15, 0.2), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrameNew(sim_64_1, sim_64_0.95, sim_64_neg1, "Coverage.Delta...."), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Sink - Cobertura Real (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.1, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrame(sim_64_old, sim_64_1, sim_64_0.95, sim_64_neg1, "Consumed.Energy"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Energia Consumida (mAh)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.1, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrame(sim_64_old, sim_64_1, sim_64_0.95, sim_64_neg1, "Residual.Energy"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Energia Residual (mAh)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.85, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
dev.off()
pdf('sim 81.pdf', width=8, height=6)
ggplot(data=generateDataFrame(sim_81_old, sim_81_1, sim_81_0.95, sim_81_neg1, "Real.Coverage"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Real (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.15, 0.2), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrameNew(sim_81_1, sim_81_0.95, sim_81_neg1, "Sink.Coverage"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Sink (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.15, 0.2), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrameNew(sim_81_1, sim_81_0.95, sim_81_neg1, "Coverage.Delta...."), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Sink - Cobertura Real (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.1, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrame(sim_81_old, sim_81_1, sim_81_0.95, sim_81_neg1, "Consumed.Energy"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Energia Consumida (mAh)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.1, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrame(sim_81_old, sim_81_1, sim_81_0.95, sim_81_neg1, "Residual.Energy"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Energia Residual (mAh)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.85, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
dev.off()
pdf('sim 100.pdf', width=8, height=6)
ggplot(data=generateDataFrame(sim_100_old, sim_100_1, sim_100_0.95, sim_100_neg1, "Real.Coverage"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Real (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.15, 0.2), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrameNew(sim_100_1, sim_100_0.95, sim_100_neg1, "Sink.Coverage"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Sink (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.15, 0.2), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrameNew(sim_100_1, sim_100_0.95, sim_100_neg1, "Coverage.Delta...."), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Cobertura Sink - Cobertura Real (%)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.1, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrame(sim_100_old, sim_100_1, sim_100_0.95, sim_100_neg1, "Consumed.Energy"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Energia Consumida (mAh)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.1, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
ggplot(data=generateDataFrame(sim_100_old, sim_100_1, sim_100_0.95, sim_100_neg1, "Residual.Energy"), aes(x=index, y=data, group=series)) + scale_color_manual(values = c("#2FAE00", "#FF2400", "#0033FF", "#E89907")) + geom_line(aes(color=series)) + theme_classic() + labs(x="Tempo de Vida da Rede (u.t.)", y = "Energia Residual (mAh)", color=NULL) + scale_x_continuous(breaks=scales::pretty_breaks(n=10)) + scale_y_continuous(breaks=scales::pretty_breaks(n=10)) + theme(legend.position = c(0.85, 0.75), legend.background = element_rect(color = "black", size = 0.3, linetype = "solid"))
dev.off()
pdf('sim 36 stats.pdf', width=8, height=6)
ggplot(data=generateDataFrameStats(sim_36_1_stats, sim_36_0.95_stats, sim_36_neg1_stats, "Reconfigurations"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Reconfigurações da Rede", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_36_1_stats, sim_36_0.95_stats, sim_36_neg1_stats, "Reconfigurations"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Reconfigurações da Rede", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_36_1_stats, sim_36_0.95_stats, sim_36_neg1_stats, "Total.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_36_1_stats, sim_36_0.95_stats, sim_36_neg1_stats, "Total.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_36_1_stats, sim_36_0.95_stats, sim_36_neg1_stats, "Valid.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede com Cob. >= 95% (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_36_1_stats, sim_36_0.95_stats, sim_36_neg1_stats, "Valid.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede com Cob. >= 95% (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_36_1_stats, sim_36_0.95_stats, sim_36_neg1_stats, "Real.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_36_1_stats, sim_36_0.95_stats, sim_36_neg1_stats, "Real.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_36_1_stats, sim_36_0.95_stats, sim_36_neg1_stats, "Sink.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_36_1_stats, sim_36_0.95_stats, sim_36_neg1_stats, "Sink.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_36_1_stats, sim_36_0.95_stats, sim_36_neg1_stats, "Coverage.Delta...."), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink - Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_36_1_stats, sim_36_0.95_stats, sim_36_neg1_stats, "Coverage.Delta...."), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink - Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
dev.off()
pdf('sim 49 stats.pdf', width=8, height=6)
ggplot(data=generateDataFrameStats(sim_49_1_stats, sim_49_0.95_stats, sim_49_neg1_stats, "Reconfigurations"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Reconfigurações da Rede", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_49_1_stats, sim_49_0.95_stats, sim_49_neg1_stats, "Reconfigurations"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Reconfigurações da Rede", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_49_1_stats, sim_49_0.95_stats, sim_49_neg1_stats, "Total.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_49_1_stats, sim_49_0.95_stats, sim_49_neg1_stats, "Total.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_49_1_stats, sim_49_0.95_stats, sim_49_neg1_stats, "Valid.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede com Cob. >= 95% (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_49_1_stats, sim_49_0.95_stats, sim_49_neg1_stats, "Valid.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede com Cob. >= 95% (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_49_1_stats, sim_49_0.95_stats, sim_49_neg1_stats, "Real.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_49_1_stats, sim_49_0.95_stats, sim_49_neg1_stats, "Real.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_49_1_stats, sim_49_0.95_stats, sim_49_neg1_stats, "Sink.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_49_1_stats, sim_49_0.95_stats, sim_49_neg1_stats, "Sink.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_49_1_stats, sim_49_0.95_stats, sim_49_neg1_stats, "Coverage.Delta...."), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink - Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_49_1_stats, sim_49_0.95_stats, sim_49_neg1_stats, "Coverage.Delta...."), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink - Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
dev.off()
pdf('sim 64 stats.pdf', width=8, height=6)
ggplot(data=generateDataFrameStats(sim_64_1_stats, sim_64_0.95_stats, sim_64_neg1_stats, "Reconfigurations"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Reconfigurações da Rede", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_64_1_stats, sim_64_0.95_stats, sim_64_neg1_stats, "Reconfigurations"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Reconfigurações da Rede", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_64_1_stats, sim_64_0.95_stats, sim_64_neg1_stats, "Total.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_64_1_stats, sim_64_0.95_stats, sim_64_neg1_stats, "Total.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_64_1_stats, sim_64_0.95_stats, sim_64_neg1_stats, "Valid.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede com Cob. >= 95% (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_64_1_stats, sim_64_0.95_stats, sim_64_neg1_stats, "Valid.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede com Cob. >= 95% (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_64_1_stats, sim_64_0.95_stats, sim_64_neg1_stats, "Real.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_64_1_stats, sim_64_0.95_stats, sim_64_neg1_stats, "Real.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_64_1_stats, sim_64_0.95_stats, sim_64_neg1_stats, "Sink.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_64_1_stats, sim_64_0.95_stats, sim_64_neg1_stats, "Sink.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_64_1_stats, sim_64_0.95_stats, sim_64_neg1_stats, "Coverage.Delta...."), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink - Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_64_1_stats, sim_64_0.95_stats, sim_64_neg1_stats, "Coverage.Delta...."), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink - Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
dev.off()
pdf('sim 81 stats.pdf', width=8, height=6)
ggplot(data=generateDataFrameStats(sim_81_1_stats, sim_81_0.95_stats, sim_81_neg1_stats, "Reconfigurations"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Reconfigurações da Rede", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_81_1_stats, sim_81_0.95_stats, sim_81_neg1_stats, "Reconfigurations"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Reconfigurações da Rede", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_81_1_stats, sim_81_0.95_stats, sim_81_neg1_stats, "Total.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_81_1_stats, sim_81_0.95_stats, sim_81_neg1_stats, "Total.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_81_1_stats, sim_81_0.95_stats, sim_81_neg1_stats, "Valid.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede com Cob. >= 95% (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_81_1_stats, sim_81_0.95_stats, sim_81_neg1_stats, "Valid.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede com Cob. >= 95% (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_81_1_stats, sim_81_0.95_stats, sim_81_neg1_stats, "Real.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_81_1_stats, sim_81_0.95_stats, sim_81_neg1_stats, "Real.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_81_1_stats, sim_81_0.95_stats, sim_81_neg1_stats, "Sink.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_81_1_stats, sim_81_0.95_stats, sim_81_neg1_stats, "Sink.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_81_1_stats, sim_81_0.95_stats, sim_81_neg1_stats, "Coverage.Delta...."), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink - Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_81_1_stats, sim_81_0.95_stats, sim_81_neg1_stats, "Coverage.Delta...."), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink - Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
dev.off()
pdf('sim 100 stats.pdf', width=8, height=6)
ggplot(data=generateDataFrameStats(sim_100_1_stats, sim_100_0.95_stats, sim_100_neg1_stats, "Reconfigurations"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Reconfigurações da Rede", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_100_1_stats, sim_100_0.95_stats, sim_100_neg1_stats, "Reconfigurations"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Reconfigurações da Rede", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_100_1_stats, sim_100_0.95_stats, sim_100_neg1_stats, "Total.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_100_1_stats, sim_100_0.95_stats, sim_100_neg1_stats, "Total.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_100_1_stats, sim_100_0.95_stats, sim_100_neg1_stats, "Valid.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede com Cob. >= 95% (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_100_1_stats, sim_100_0.95_stats, sim_100_neg1_stats, "Valid.Rounds"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Tempo de Vida da Rede com Cob. >= 95% (u.t.)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_100_1_stats, sim_100_0.95_stats, sim_100_neg1_stats, "Real.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_100_1_stats, sim_100_0.95_stats, sim_100_neg1_stats, "Real.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_100_1_stats, sim_100_0.95_stats, sim_100_neg1_stats, "Sink.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_100_1_stats, sim_100_0.95_stats, sim_100_neg1_stats, "Sink.Coverage"), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_100_1_stats, sim_100_0.95_stats, sim_100_neg1_stats, "Coverage.Delta...."), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_boxplot(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink - Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
ggplot(data=generateDataFrameStats(sim_100_1_stats, sim_100_0.95_stats, sim_100_neg1_stats, "Coverage.Delta...."), aes(x=series, y=data)) + scale_color_manual(values = c("#FF2400", "#0033FF", "#E89907")) + geom_violin(aes(color=series)) + theme_classic() + labs(x="Simulação", y = "Cobertura Sink - Cobertura Real (%)", color=NULL) + theme(legend.position='NONE') + scale_y_continuous(breaks=scales::pretty_breaks(n=10))
dev.off()