-
Notifications
You must be signed in to change notification settings - Fork 0
/
.Rhistory
110 lines (110 loc) · 5.71 KB
/
.Rhistory
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
install.packages("sdcMicro")
a = 19
#Libraries####
#######################################################################################################
library(ggplot2)
library(gridExtra)
library(ggplot2)
library(MASS)
library(survival)
require(utils)
library(fitdistrplus)
library(nlme)
library(MuMIn)
library(TeachingDemos)
tere4Palette<-c("#4B574D", "#609F80", "#AF420A", "#CBB345")
tere6Palette<-c("#004C3F", "#7DB343", "#E64A19","#398E3D", "#26A59A", "#FEC107")
tere9Palette<-c("#004C3F", "#7DB343", "#E64A19","#398E3D", "#26A59A", "#FEC107","#ef8a62","#67a9cf","#91cf60")
data = read.csv("data/histr.data", header=T, sep = " ",
dec=".", stringsAsFactors = T,
colClasses=c('numeric','factor'))
p5 <- ggplot(data, aes(x=scenario, y=value*3/3600)) +
#scale_x_discrete(labels=colorder)+
geom_boxplot(outlier.shape = NA, aes(colour = scenario)) +
geom_jitter(alpha=0.4, colour="gray", width = 0.4, size=0.2) +
scale_color_manual(values=tere6Palette,name = "Scenario")+
scale_fill_manual(values=tere6Palette)+
#scale_y_continuous(trans='log10',limits=c(0.01, 1000),labels = comma) +
#scale_y_continuous(breaks=(0.1,10,100,1000), labels = scales::comma,trans='log10',limits=c(0.01,900))+
theme_bw()+#theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank())+
scale_y_continuous(labels = scales::comma, trans='log10', breaks=c(0.1,1, 10, 100) )+
ylab("Latency (hours)")+
xlab("Scenario")+
ggtitle("Latency Time") +
theme_bw()+#theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank())+
theme(plot.title = element_text(family = "Trebuchet MS", color="#696969", size=12, hjust=0.5)) +
theme(axis.title = element_text(family = "Trebuchet MS", color="#696969", size=12, hjust=0.5)) +
theme(axis.text = element_text(family = "Trebuchet MS", color="#696969", size=8, hjust=0.5)) +
theme(legend.title = element_text(family = "Trebuchet MS", color="#696969", size=10, hjust=0.5)) +
theme(legend.text = element_text(family = "Trebuchet MS", color="#696969", size=8, hjust=0.5)) +
#theme(axis.title.x=element_blank())+
guides(fill = guide_legend(nrow = 2))
setwd("~/the_one_TFG/aleix-one_1.5.1-RC2/one_1.5.1-RC2")
#Libraries####
#######################################################################################################
library(ggplot2)
library(gridExtra)
library(ggplot2)
library(MASS)
library(survival)
require(utils)
library(fitdistrplus)
library(nlme)
library(MuMIn)
library(TeachingDemos)
tere4Palette<-c("#4B574D", "#609F80", "#AF420A", "#CBB345")
tere6Palette<-c("#004C3F", "#7DB343", "#E64A19","#398E3D", "#26A59A", "#FEC107")
tere9Palette<-c("#004C3F", "#7DB343", "#E64A19","#398E3D", "#26A59A", "#FEC107","#ef8a62","#67a9cf","#91cf60")
data = read.csv("data/histr.data", header=T, sep = " ",
dec=".", stringsAsFactors = T,
colClasses=c('numeric','factor'))
p5 <- ggplot(data, aes(x=scenario, y=value*3/3600)) +
#scale_x_discrete(labels=colorder)+
geom_boxplot(outlier.shape = NA, aes(colour = scenario)) +
geom_jitter(alpha=0.4, colour="gray", width = 0.4, size=0.2) +
scale_color_manual(values=tere6Palette,name = "Scenario")+
scale_fill_manual(values=tere6Palette)+
#scale_y_continuous(trans='log10',limits=c(0.01, 1000),labels = comma) +
#scale_y_continuous(breaks=(0.1,10,100,1000), labels = scales::comma,trans='log10',limits=c(0.01,900))+
theme_bw()+#theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank())+
scale_y_continuous(labels = scales::comma, trans='log10', breaks=c(0.1,1, 10, 100) )+
ylab("Latency (hours)")+
xlab("Scenario")+
ggtitle("Latency Time") +
theme_bw()+#theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank())+
theme(plot.title = element_text(family = "Trebuchet MS", color="#696969", size=12, hjust=0.5)) +
theme(axis.title = element_text(family = "Trebuchet MS", color="#696969", size=12, hjust=0.5)) +
theme(axis.text = element_text(family = "Trebuchet MS", color="#696969", size=8, hjust=0.5)) +
theme(legend.title = element_text(family = "Trebuchet MS", color="#696969", size=10, hjust=0.5)) +
theme(legend.text = element_text(family = "Trebuchet MS", color="#696969", size=8, hjust=0.5)) +
#theme(axis.title.x=element_blank())+
guides(fill = guide_legend(nrow = 2))
p5
data = read.csv("data/histr.data", header=T, sep = " ",
dec=".", stringsAsFactors = T,
colClasses=c('numeric','factor'))
data = read.csv("data/histr.data", header=T, sep = " ",
dec=".", stringsAsFactors = T,
colClasses=c('numeric','factor'))
p5 <- ggplot(data, aes(x=scenario, y=value*3/3600)) +
#scale_x_discrete(labels=colorder)+
geom_boxplot(outlier.shape = NA, aes(colour = scenario)) +
geom_jitter(alpha=0.4, colour="gray", width = 0.4, size=0.2) +
scale_color_manual(values=tere6Palette,name = "Scenario")+
scale_fill_manual(values=tere6Palette)+
#scale_y_continuous(trans='log10',limits=c(0.01, 1000),labels = comma) +
#scale_y_continuous(breaks=(0.1,10,100,1000), labels = scales::comma,trans='log10',limits=c(0.01,900))+
theme_bw()+#theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank())+
scale_y_continuous(labels = scales::comma, trans='log10', breaks=c(0.1,1, 10, 100) )+
ylab("Latency (hours)")+
xlab("Scenario")+
ggtitle("Latency Time") +
theme_bw()+#theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank())+
theme(plot.title = element_text(family = "Trebuchet MS", color="#696969", size=12, hjust=0.5)) +
theme(axis.title = element_text(family = "Trebuchet MS", color="#696969", size=12, hjust=0.5)) +
theme(axis.text = element_text(family = "Trebuchet MS", color="#696969", size=8, hjust=0.5)) +
theme(legend.title = element_text(family = "Trebuchet MS", color="#696969", size=10, hjust=0.5)) +
theme(legend.text = element_text(family = "Trebuchet MS", color="#696969", size=8, hjust=0.5)) +
#theme(axis.title.x=element_blank())+
guides(fill = guide_legend(nrow = 2))
p5