4つのプログラムを2つの異なるマシンでa, b, c, d
並行してX
、Y
別々に10回実行しました。以下はデータのサンプルです。10
各プログラムの実行時間(ミリ秒)は、それぞれの名前で示されています。
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
以下を視覚化するためのグラフを作成する必要があります。
- マシンXとYの両方で、各プログラムのパフォーマンス(実行時間など)を比較します。
- マシンXとYの両方で、各プログラムの実行時間の変動を比較します。
- 各プログラムにコンピューティングリソースを提供するうえで公平なマシンはどれですか。
- XとYの両方のマシンで、各実行の4つのプログラムの合計実行時間(a + b + c + d)を比較します。
- 10回の実行における4つのプログラムの合計実行時間の変動を比較します。
1と2については、図Aを作成し、図Bは3、図Cは4と5を作成しました。ただし、3つのグラフがあり、3つのグラフすべてを私の論文に収めることは難しいため、満足できません。さらに、私たちはこれらよりも良いものを生産できると信じています。私の要件を満たしながら、誰かがRで3つではなく1つまたは2つの素晴らしいグラフを描くのを手伝ってくれる人がいてくれたら本当に感謝しています。これらのグラフを作成するために使用したRコードについては、以下を参照してください。
図A:
図B:X軸は実行を示し、Y軸は特定の実行における4つのプログラムの実行時間を示します。
図C:
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()