Eu executei quatro programas a, b, c, d paralelamente em duas máquinas diferentes Xe Yseparadamente por 10 vezes. A seguir, é apresentada uma amostra dos dados. Os tempos de execução (milissegundos) nas 10execuções de cada programa são dados sob seus respectivos nomes.
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
Preciso criar gráficos para visualizar o seguinte:
- Compare o desempenho de cada programa (ou seja, tempo de execução) nas máquinas X e Y.
- Compare a variação nos tempos de execução de cada programa nas máquinas X e Y
- Qual máquina é justa em fornecer recursos de computação para cada programa?
- Compare o tempo total de execução (a + b + c + d) dos quatro programas em cada execução nas máquinas X e Y.
- Compare a variação no tempo total de execução dos quatro programas nas 10 execuções.
Para 1 e 2, criei a Figura A, a Figura B é para 3 e a figura C é para 4 e 5. No entanto, não estou satisfeito porque há três gráficos e é difícil encaixar todos os três gráficos no meu artigo. Além disso, acredito que podemos produzir melhor que estes. Eu realmente aprecio se alguém me ajudar a desenhar um ou dois gráficos agradáveis em vez de três em R, satisfazendo meus requisitos. Veja abaixo o código R que usei para produzir esses gráficos.
Figura A:

Figura B: O eixo X mostra as execuções, o eixo Y mostra os tempos de execução dos quatro programas em uma execução específica.

Figura C:

Código 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()

