J'ai exécuté quatre programmes en a, b, c, d
parallèle sur deux machines différentes X
et Y
séparément pendant 10 fois. Ce qui suit est un échantillon des données. Les temps d'exécution (millisecondes) des 10
exécutions de chaque programme sont indiqués sous leurs noms respectifs.
Machine-X:
a b c d
29 40 21 18
28 43 20 18
30 49 20 28
29 50 19 19
28 51 21 19
29 41 30 29
32 47 10 18
29 43 20 18
28 51 30 29
29 41 21 19
Machine-Y:
a b c d
16 24 19 18
16 24 19 18
16 23 19 18
16 24 19 18
16 24 19 18
16 22 19 18
16 24 19 18
16 24 19 18
16 24 19 18
16 24 19 18
J'ai besoin de créer des graphiques pour visualiser les éléments suivants:
- Comparez les performances de chaque programme (c'est-à-dire le temps d'exécution) sur les machines X et Y.
- Comparez la variation des temps d'exécution de chaque programme sur les machines X et Y
- Quelle machine est juste pour fournir des ressources informatiques à chaque programme?
- Comparez les temps d'exécution totaux (a + b + c + d) des quatre programmes de chaque exécution sur les machines X et Y.
- Comparez la variation des temps d'exécution totaux des quatre programmes sur les 10 exécutions.
Pour 1 et 2, j'ai fait la figure A, la figure B est pour 3 et la figure C est pour 4 et 5. Cependant, je ne suis pas satisfait car il y a trois graphiques et il est difficile d'adapter les trois graphiques dans mon papier. De plus, je pense que nous pouvons produire mieux que ceux-ci. J'apprécie vraiment si quelqu'un m'aide à dessiner un ou deux beaux graphiques au lieu de trois en R tout en satisfaisant mes exigences. Veuillez voir ci-dessous le code R que j'ai utilisé pour produire ces graphiques.
Figure A:
Figure B: L'axe X montre les exécutions, l'axe Y montre les temps d'exécution des quatre programmes dans une exécution particulière.
Figure C:
Code R
> pdf("Figure A.pdf")
> par(mfrow=c(1,2))
> boxplot(x,boxwex=0.4, ylim=c(15, 60))
> mtext("Time", side=2, line=2)
> mtext("Running times of each program in 10 runs", side=3, line=2, at=6,cex=1.4)
> mtext("Machine X", side=3, line=0.5, at=2,cex=1.1)
> boxplot(y,boxwex=0.4, ylim=c(15, 60))
> mtext("Machine Y", side=3, line=0.4, at=2,cex=1.1)
> dev.off()
> pdf("Figure B.pdf")
> par(mfrow=c(1,2))
> boxplot(t(x),boxwex=0.4, ylim=c(0,50))
> mtext("Run Number", side=1, line=2, at=12, cex=1.2)
> mtext("Fairness", side=3, line=2, at=12,cex=1.4)
> mtext("Machine X", side=3, line=0.5, at=5,cex=1.1)
> boxplot(t(y),boxwex=0.4, ylim=c(0,50))
> mtext("Machine Y", side=3, line=0.4, at=5,cex=1.1)
> dev.off()
> pdf("Figure C.pdf")
> par(mfrow=c(1,2))
> barplot(t(x), ylim=c(0,150),names=1:10,col=mycolor)
> mtext("Run Number", side=1, line=2, at=14, cex=1.2)
> mtext("Total Running-Times in 10 Runs", side=3, line=2, at=14, cex=1.2)
> mtext("Machine X", side=3, line=0.5, at=5,cex=1.1)
> barplot(t(y), ylim=c(0,150), names=1:10,col=mycolor)
> mtext("Machine Y", side=3, line=0.5, at=5,cex=1.1)
> legend("topright",legend=c("a","b","c","d"),fill=mycolor,cex=1.1)
> dev.off()