Tôi đã chạy bốn chương trình a, b, c, d
song song trên hai máy khác nhau X
và Y
riêng biệt trong 10 lần. Dưới đây là một mẫu của dữ liệu. Thời gian chạy (mili giây) trong 10
mỗi lần chạy của mỗi chương trình được đưa ra dưới tên tương ứng của chúng.
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
Tôi cần tạo các biểu đồ để hình dung như sau:
- So sánh hiệu suất của từng chương trình (tức là thời gian chạy) trên cả hai máy X và Y.
- So sánh sự thay đổi thời gian chạy của từng chương trình trên cả hai máy X và Y
- Máy nào công bằng trong việc cung cấp tài nguyên điện toán cho mỗi chương trình?
- So sánh tổng thời gian chạy (a + b + c + d) của bốn chương trình trong mỗi lần chạy trên cả hai máy X và Y.
- So sánh sự thay đổi trong tổng số lần chạy của bốn chương trình trong 10 lần chạy.
Đối với 1 và 2, tôi đã tạo Hình A, Hình B là 3 và Hình C là 4 và 5. Tuy nhiên, tôi không hài lòng vì có ba biểu đồ và rất khó để phù hợp với cả ba biểu đồ trong bài viết của tôi. Hơn nữa, tôi tin rằng chúng ta có thể sản xuất tốt hơn những thứ này. Tôi thực sự đánh giá cao nếu ai đó giúp tôi vẽ một hoặc hai biểu đồ đẹp thay vì ba trong R trong khi đáp ứng yêu cầu của tôi. Vui lòng xem bên dưới để biết mã R tôi đã sử dụng để tạo các biểu đồ này.
Hình A:
Hình B: Trục X hiển thị các lần chạy, trục Y hiển thị thời gian chạy của bốn chương trình trong một lần chạy cụ thể.
Hình C:
Mã 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()