Saya menjalankan empat program secara a, b, c, d paralel pada dua mesin yang berbeda Xdan Ysecara terpisah selama 10 kali. Di bawah ini adalah contoh data. Waktu berjalan (milidetik) dalam 10menjalankan setiap program diberikan dengan nama masing-masing.
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
Saya perlu membuat grafik untuk memvisualisasikan yang berikut:
- Bandingkan kinerja masing-masing program (yaitu waktu berjalan) pada mesin X dan Y.
- Bandingkan variasi waktu menjalankan setiap program pada mesin X dan Y
- Mesin mana yang adil dalam menyediakan sumber daya komputasi untuk setiap program?
- Bandingkan total waktu berjalan (a + b + c + d) dari empat program dalam setiap proses pada mesin X dan Y.
- Bandingkan variasi dalam total waktu berjalan dari empat program dalam 10 berjalan.
Untuk 1 dan 2, saya membuat Gambar A, Gambar B adalah untuk 3, dan angka C untuk 4 dan 5. Namun, saya tidak puas karena ada tiga grafik dan sulit untuk mencocokkan ketiga grafik di kertas saya. Selain itu, saya percaya bahwa kita dapat menghasilkan yang lebih baik dari ini. Saya sangat menghargai jika seseorang membantu saya untuk menggambar satu atau dua grafik yang bagus alih-alih tiga dalam R sambil memenuhi persyaratan saya. Silakan lihat di bawah untuk kode R yang saya gunakan untuk menghasilkan grafik ini.
Gambar A:

Gambar B: Sumbu X menunjukkan proses, Sumbu Y menunjukkan waktu berjalan dari empat program dalam proses tertentu.

Gambar C:

Kode 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()

