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


#sample1 = read.csv(file="/home/mhn/Dokumente/Fedora_Performance_Test/objects_per_second_java_sample_1.csv", head=TRUE, sep="\t")
sample2 = read.csv(file="/home/mhn/Dokumente/Fedora_Performance_Test/objects_per_second_java_sample_2.csv", head=TRUE, sep="\t")
sample3 = read.csv(file="/home/mhn/Dokumente/Fedora_Performance_Test/objects_per_second_java_sample_3.csv", head=TRUE, sep="\t")
sample4 = read.csv(file="/home/mhn/Dokumente/Fedora_Performance_Test/objects_per_second_java_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/objects_per_second_java_samples.png")

boxplot(as.matrix(sample2),
	style="quantile",
	outline=FALSE,
	ylim=c(0,26),
	xlim=c(0,12),
	ylab="objects /s",
	col=terrain.colors(2),
	xlab="",
	main="Ingest: Objects /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
	)


legend("topright", inset=.05, title="Hadoop",
   c("copyFromLocal","distcp"), fill=terrain.colors(2), horiz=FALSE)

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

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