Rscript/plotGetthroughputGroups.R at master · astromatthias/Rscript · GitHub

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
# Ein R script um ein CSV Datei zu plotten


#sample1 = read.csv(file="/home/mhn/Dokumente/Fedora_Performance_Test/get_throughput_sample_1.csv", head=TRUE, sep="\t")
sample2 = read.csv(file="/home/mhn/Dokumente/Fedora_Performance_Test/get_throughput_sample_2.csv", head=TRUE, sep="\t")
sample3 = read.csv(file="/home/mhn/Dokumente/Fedora_Performance_Test/get_throughput_sample_3.csv", head=TRUE, sep="\t")
sample4 = read.csv(file="/home/mhn/Dokumente/Fedora_Performance_Test/get_throughput_sample_4.csv", head=TRUE, sep="\t")

# ohne diese Zeile würde R den Graph in einem Fenster anzeigen.
png("/home/mhn/Entwicklung/R/vortrag/graphiken/get_throughput_samples.png")

boxplot(as.matrix(sample2),
	style="quantile",
	outline=FALSE,
	ylim=c(0,260),
	xlim=c(0,12),
	ylab="throughput MB/s",
	col=terrain.colors(2),
	xlab="",
	main="Retrieve throughput MB/s per sample",
	xaxt="n",
	at=0:1*1 + 0
	)


boxplot(as.matrix(sample3),
	outline=FALSE,
	xaxt="n",
	col=terrain.colors(2),
	at=0:1*1+5,
	add=TRUE
	)

boxplot(as.matrix(sample4),
	outline=FALSE,
	style="quantile",
	xaxt="n",
	col=terrain.colors(2),
	at=0:1*1+10,
	add=TRUE
	)

boxplot(as.matrix(sample4),
	outline=FALSE,
	style="quantile",
	xaxt="n",
	col=terrain.colors(2),
	at=0:1*1+15,
	add=TRUE
	)


legend("topleft", inset=.05, title="Fedora 3.5",
   c("akubra-hdfs","akubra-fs"), fill=terrain.colors(2), horiz=FALSE)

axis(1,at=c(1,6,11),labels=c("Sample 1","Sample 2", "Sample 3"),tick=FALSE)

curve(70+2*x,col="darkgreen",add=TRUE,from=0,to=10)
curve(75+13*x,col="gray",add=TRUE,from=1,to=11)


# Diese Zeile ist notwending um das Device für png wieder zu schliessen
dev.off()