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
| -
|
|
|
|
|
|
|
|
|
|
|
!
-
!
-
|
|
|
|
|
|
|
-
!
|
|
|
-
|
|
|
|
|
|
|
|
|
|
|
|
-
!
|
|
|
-
!
|
|
|
|
-
!
|
|
|
|
-
!
|
|
-
!
|
|
| pab.plot <- function(dataset, xcol=1, ycol=2, plot_type="l", plot_title="", plot_xlab="", plot_ylab="", plot_las=1, plot_lwd=1)
{
dataset_len <- length(dataset)
x <- c()
y <- c()
for (i in 1:dataset_len)
{
x <- append(x, max(dataset[[i]][xcol]))
y <- append(y, max(dataset[[i]][ycol]))
}
x_max <- max(unlist(x))
y_max <- max(unlist(y))
par(mar = c(4.5, 5.5, 3, 2)) cols <- c(1:dataset_len)
pchs <- c(1:dataset_len)
ltys <- c(1:dataset_len)
for (i in 1:dataset_len)
{
plot(unlist(dataset[[i]][xcol]), unlist(dataset[[i]][ycol]), type=plot_type, ann=F,
xlim=c(0, x_max), ylim=c(0, y_max),
col=cols[i], pch=pchs[i], lty=ltys[i], lwd=plot_lwd, las=plot_las )
par(new=T)
}
title(main=plot_title, mgp=c(3, 1, 0), cex.main=2)
title(xlab=plot_xlab, mgp=c(2.5, 1, 0))
title(ylab=plot_ylab, mgp=c(4, 1, 0))
legend("topleft", legend=names(dataset), col=cols, pch=pchs, lty=ltys)
}
file_path <- list.files()[grep("\\.txt", list.files())]
dataset <- lapply(file_path, read.table, header=F)
names(dataset) <- sub(".txt", "", file_path)
plot.new()
pab.plot(dataset, 1, 2, plot_type="l", plot_title="STL container push_back performance", plot_xlab="size(KB)", plot_ylab="cputime", plot_lwd=2)
png("last.png")
pab.plot(dataset, 1, 2, plot_type="l", plot_title="STL container push_back performance", plot_xlab="size(KB)", plot_ylab="cputime", plot_lwd=2)
dev.off()
|