-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathgraph.R
132 lines (119 loc) · 7.1 KB
/
graph.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
library(ggplot2)
library(plyr)
library(reshape2)
library(grid)
library(gridExtra)
rndwr_tp<-read.table("/Users/pboros/blogposts/gp2_gp3/rndwr_tp.df",sep=",",as.is=T,header=F)
colnames(rndwr_tp)<-c("disk_type","time","benchmark_type","threads","metric","value")
rndwr_tp$value<-as.numeric(rndwr_tp$value)
rndwr_tp$time<-as.numeric(rndwr_tp$time)
rndrd_tp<-read.table("/Users/pboros/blogposts/gp2_gp3/rndrd_tp.df",sep=",",as.is=T,header=F)
colnames(rndrd_tp)<-c("disk_type","time","benchmark_type","threads","metric","value")
rndrd_tp$value<-as.numeric(rndrd_tp$value)
rndrd_tp$time<-as.numeric(rndrd_tp$time)
rndrw_tp<-read.table("/Users/pboros/blogposts/gp2_gp3/rndrw_tp.df",sep=",",as.is=T,header=F)
colnames(rndrw_tp)<-c("disk_type","time","benchmark_type","threads","metric","value")
rndrw_tp$value<-as.numeric(rndrw_tp$value)
rndrw_tp$time<-as.numeric(rndrw_tp$time)
rndwr_lat<-read.table("/Users/pboros/blogposts/gp2_gp3/rndwr_lat.df",sep=",",as.is=T,header=F)
colnames(rndwr_lat)<-c("disk_type","time","benchmark_type","threads","metric","value")
rndwr_lat$value<-as.numeric(rndwr_lat$value)
rndwr_lat$time<-as.numeric(rndwr_lat$time)
rndrd_lat<-read.table("/Users/pboros/blogposts/gp2_gp3/rndrd_lat.df",sep=",",as.is=T,header=F)
colnames(rndrd_lat)<-c("disk_type","time","benchmark_type","threads","metric","value")
rndrd_lat$value<-as.numeric(rndrd_lat$value)
rndrd_lat$time<-as.numeric(rndrd_lat$time)
rndrw_lat<-read.table("/Users/pboros/blogposts/gp2_gp3/rndrw_lat.df",sep=",",as.is=T,header=F)
colnames(rndrw_lat)<-c("disk_type","time","benchmark_type","threads","metric","value")
rndrw_lat$value<-as.numeric(rndrw_lat$value)
rndrw_lat$time<-as.numeric(rndrw_lat$time)
# rndwr tp
rndwr_tp_graph<-ggplot(rndwr_tp)
rndwr_tp_graph<-rndwr_tp_graph+aes(x=factor(threads),y=value,geom=disk_type,colour=metric)
rndwr_tp_graph<-rndwr_tp_graph+facet_grid(benchmark_type ~ disk_type)
rndwr_tp_graph<-rndwr_tp_graph+geom_jitter(alpha=0.3)
rndwr_tp_graph<-rndwr_tp_graph+expand_limits(y=0)
rndwr_tp_graph<-rndwr_tp_graph+theme(legend.position="bottom")
rndwr_tp_graph<-rndwr_tp_graph+xlab("Threads")
rndwr_tp_graph<-rndwr_tp_graph+ylab("Throughput (MiB/s)")
rndwr_tp_graph<-rndwr_tp_graph+ggtitle("Sysbench fileio random writes")
rndwr_tp_graph<-rndwr_tp_graph+theme(legend.key=element_rect(fill="white"))
rndwr_tp_graph<-rndwr_tp_graph+guides(colour=guide_legend(override.aes=list(alpha=1, fill=NA)))
rndwr_tp_graph<-rndwr_tp_graph+scale_color_hue(l=55,name="")
rndwr_tp_graph<-rndwr_tp_graph+theme(axis.text.x = element_text(size = rel(0.8), angle = 45))
rndwr_tp_graph
# rndrd tp
rndrd_tp_graph<-ggplot(rndrd_tp)
rndrd_tp_graph<-rndrd_tp_graph+aes(x=factor(threads),y=value,geom=disk_type,colour=metric)
rndrd_tp_graph<-rndrd_tp_graph+facet_grid(benchmark_type ~ disk_type)
rndrd_tp_graph<-rndrd_tp_graph+geom_jitter(alpha=0.3)
rndrd_tp_graph<-rndrd_tp_graph+expand_limits(y=0)
rndrd_tp_graph<-rndrd_tp_graph+theme(legend.position="bottom")
rndrd_tp_graph<-rndrd_tp_graph+xlab("Threads")
rndrd_tp_graph<-rndrd_tp_graph+ylab("Throughput (MiB/s)")
rndrd_tp_graph<-rndrd_tp_graph+ggtitle("Sysbench fileio random reads")
rndrd_tp_graph<-rndrd_tp_graph+theme(legend.key=element_rect(fill="white"))
rndrd_tp_graph<-rndrd_tp_graph+guides(colour=guide_legend(override.aes=list(alpha=1, fill=NA)))
rndrd_tp_graph<-rndrd_tp_graph+scale_color_hue(l=55,name="")
rndrd_tp_graph<-rndrd_tp_graph+theme(axis.text.x = element_text(size = rel(0.8), angle = 45))
rndrd_tp_graph
# rndrw tp
rndrw_tp_graph<-ggplot(rndrw_tp)
rndrw_tp_graph<-rndrw_tp_graph+aes(x=factor(threads),y=value,geom=disk_type,colour=metric)
rndrw_tp_graph<-rndrw_tp_graph+facet_grid(benchmark_type ~ disk_type)
rndrw_tp_graph<-rndrw_tp_graph+geom_jitter(alpha=0.3)
rndrw_tp_graph<-rndrw_tp_graph+expand_limits(y=0)
rndrw_tp_graph<-rndrw_tp_graph+theme(legend.position="bottom")
rndrw_tp_graph<-rndrw_tp_graph+xlab("Threads")
rndrw_tp_graph<-rndrw_tp_graph+ylab("Throughput (MiB/s)")
rndrw_tp_graph<-rndrw_tp_graph+ggtitle("Sysbench fileio random mixed reads/writes")
rndrw_tp_graph<-rndrw_tp_graph+theme(legend.key=element_rect(fill="white"))
rndrw_tp_graph<-rndrw_tp_graph+guides(colour=guide_legend(override.aes=list(alpha=1, fill=NA)))
rndrw_tp_graph<-rndrw_tp_graph+scale_color_hue(l=55,name="")
rndrw_tp_graph<-rndrw_tp_graph+theme(axis.text.x = element_text(size = rel(0.8), angle = 45))
rndrw_tp_graph
# rndwr lat
rndwr_lat_graph<-ggplot(rndwr_lat)
rndwr_lat_graph<-rndwr_lat_graph+aes(x=factor(threads),y=value,geom=disk_type,colour=metric)
rndwr_lat_graph<-rndwr_lat_graph+facet_grid(benchmark_type ~ disk_type)
rndwr_lat_graph<-rndwr_lat_graph+geom_jitter(alpha=0.3)
rndwr_lat_graph<-rndwr_lat_graph+expand_limits(y=0)
rndwr_lat_graph<-rndwr_lat_graph+theme(legend.position="bottom")
rndwr_lat_graph<-rndwr_lat_graph+xlab("Threads")
rndwr_lat_graph<-rndwr_lat_graph+ylab("Latency (ms, 95th percentile)")
rndwr_lat_graph<-rndwr_lat_graph+ggtitle("Sysbench fileio random write latency (ms, 95th percentile)")
rndwr_lat_graph<-rndwr_lat_graph+theme(legend.key=element_rect(fill="white"))
rndwr_lat_graph<-rndwr_lat_graph+guides(colour=guide_legend(override.aes=list(alpha=1, fill=NA)))
rndwr_lat_graph<-rndwr_lat_graph+scale_color_hue(l=55,name="")
rndwr_lat_graph<-rndwr_lat_graph+theme(axis.text.x = element_text(size = rel(0.8), angle = 45))
rndwr_lat_graph
# rndrd lat
rndrd_lat_graph<-ggplot(rndrd_lat)
rndrd_lat_graph<-rndrd_lat_graph+aes(x=factor(threads),y=value,geom=disk_type,colour=metric)
rndrd_lat_graph<-rndrd_lat_graph+facet_grid(benchmark_type ~ disk_type)
rndrd_lat_graph<-rndrd_lat_graph+geom_jitter(alpha=0.3)
rndrd_lat_graph<-rndrd_lat_graph+expand_limits(y=0)
rndrd_lat_graph<-rndrd_lat_graph+theme(legend.position="bottom")
rndrd_lat_graph<-rndrd_lat_graph+xlab("Threads")
rndrd_lat_graph<-rndrd_lat_graph+ylab("Latency (ms, 95th percentile)")
rndrd_lat_graph<-rndrd_lat_graph+ggtitle("Sysbench fileio random read latency (ms, 95th percentile)")
rndrd_lat_graph<-rndrd_lat_graph+theme(legend.key=element_rect(fill="white"))
rndrd_lat_graph<-rndrd_lat_graph+guides(colour=guide_legend(override.aes=list(alpha=1, fill=NA)))
rndrd_lat_graph<-rndrd_lat_graph+scale_color_hue(l=55,name="")
rndrd_lat_graph<-rndrd_lat_graph+theme(axis.text.x = element_text(size = rel(0.8), angle = 45))
rndrd_lat_graph
# rndrw lat
rndrw_lat_graph<-ggplot(rndrw_lat)
rndrw_lat_graph<-rndrw_lat_graph+aes(x=factor(threads),y=value,geom=disk_type,colour=metric)
rndrw_lat_graph<-rndrw_lat_graph+facet_grid(benchmark_type ~ disk_type)
rndrw_lat_graph<-rndrw_lat_graph+geom_jitter(alpha=0.3)
rndrw_lat_graph<-rndrw_lat_graph+expand_limits(y=0)
rndrw_lat_graph<-rndrw_lat_graph+theme(legend.position="bottom")
rndrw_lat_graph<-rndrw_lat_graph+xlab("Threads")
rndrw_lat_graph<-rndrw_lat_graph+ylab("Latency (ms, 95th percentile)")
rndrw_lat_graph<-rndrw_lat_graph+ggtitle("Sysbench fileio random mixed read/write latency (ms, 95th percentile)")
rndrw_lat_graph<-rndrw_lat_graph+theme(legend.key=element_rect(fill="white"))
rndrw_lat_graph<-rndrw_lat_graph+guides(colour=guide_legend(override.aes=list(alpha=1, fill=NA)))
rndrw_lat_graph<-rndrw_lat_graph+scale_color_hue(l=55,name="")
rndrw_lat_graph<-rndrw_lat_graph+theme(axis.text.x = element_text(size = rel(0.8), angle = 45))
rndrw_lat_graph