|
|
@ -58,14 +58,14 @@ dbdata$lab_count <- sprintf('Iteration %d', dbdata$count) |
|
|
|
max_y=3500 |
|
|
|
|
|
|
|
for (lab_fs in unique(dbdata$lab_fs)) { |
|
|
|
#for (scale in c("linear", "logarithmic")) { |
|
|
|
for (scale in c("linear")) { |
|
|
|
for (scale in c("linear", "logarithmic")) { |
|
|
|
#for (scale in c("linear")) { |
|
|
|
|
|
|
|
p = ggplot(data=dbdata[dbdata$lab_fs==lab_fs,], aes(x=nn, y=bwMiB, colour=as.factor(blocksize/1024), group=blocksize), ymin=0) + |
|
|
|
#aes(x=nn, y=bwMiB) + |
|
|
|
ggtitle(sprintf("%s independent random access to a shared file with IOR", lab_fs)) + |
|
|
|
facet_grid(ppn ~ lab_access + lab_count, labeller = labeller(nn = as_labeller(nn_lab), ppn = as_labeller(ppn_lab))) + |
|
|
|
#facet_grid(ppn ~ lab_access, labeller = labeller(nn = as_labeller(nn_lab), ppn = as_labeller(ppn_lab))) + |
|
|
|
#facet_grid(ppn ~ lab_access + lab_count, labeller = labeller(nn = as_labeller(nn_lab), ppn = as_labeller(ppn_lab))) + |
|
|
|
facet_grid(ppn ~ lab_access, labeller = labeller(nn = as_labeller(nn_lab), ppn = as_labeller(ppn_lab))) + |
|
|
|
xlab("Nodes") + |
|
|
|
ylab("Performance in MiB/s") + |
|
|
|
theme(axis.text.x=element_text(angle=90, hjust=0.95, vjust=0.5)) + |
|
|
@ -87,8 +87,8 @@ for (scale in c("linear")) { |
|
|
|
|
|
|
|
filename_eps = sprintf("%s/%s_%s_performance.eps", folder_out, to_fn_str(lab_fs), scale) |
|
|
|
filename_png = sprintf("%s/%s_%s_performance.png", folder_out, to_fn_str(lab_fs), scale) |
|
|
|
ggsave(filename_png, width = 16, height = 8) |
|
|
|
ggsave(filename_eps, width = 16, height = 8) |
|
|
|
ggsave(filename_png, width = 8, height = 8) |
|
|
|
ggsave(filename_eps, width = 8, height = 8) |
|
|
|
#system(sprintf("epstopdf %s", filename_eps)) |
|
|
|
system(sprintf("rm %s", filename_eps)) |
|
|
|
|
|
|
@ -96,8 +96,8 @@ for (scale in c("linear")) { |
|
|
|
aes(x=nn, y=(PortXmitData + PortRcvData) * 4 / ppn, colour=as.factor(blocksize/1024), group=blocksize) + |
|
|
|
#aes(x=nn, y=bwMiB) + |
|
|
|
ggtitle(sprintf('%s Infiniband throughput (PortRcvData and PortXmitData by "perfquery -x")', lab_fs)) + |
|
|
|
facet_grid(ppn ~ lab_access + lab_count, labeller = labeller(nn = as_labeller(nn_lab), ppn = as_labeller(ppn_lab))) + |
|
|
|
#facet_grid(ppn ~ lab_access, labeller = labeller(nn = as_labeller(nn_lab), ppn = as_labeller(ppn_lab))) + |
|
|
|
#facet_grid(ppn ~ lab_access + lab_count, labeller = labeller(nn = as_labeller(nn_lab), ppn = as_labeller(ppn_lab))) + |
|
|
|
facet_grid(ppn ~ lab_access, labeller = labeller(nn = as_labeller(nn_lab), ppn = as_labeller(ppn_lab))) + |
|
|
|
xlab("Nodes") + |
|
|
|
ylab("Performance in MiB/s") + |
|
|
|
theme(axis.text.x=element_text(angle=90, hjust=0.95, vjust=0.5)) + |
|
|
@ -116,8 +116,8 @@ for (scale in c("linear")) { |
|
|
|
|
|
|
|
filename_eps = sprintf("%s/%s_%s_ib.eps", folder_out, to_fn_str(lab_fs), scale) |
|
|
|
filename_png = sprintf("%s/%s_%s_ib.png", folder_out, to_fn_str(lab_fs), scale) |
|
|
|
ggsave(filename_png, width = 16, height = 8) |
|
|
|
ggsave(filename_eps, width = 16, height = 8) |
|
|
|
ggsave(filename_png, width = 8, height = 8) |
|
|
|
ggsave(filename_eps, width = 8, height = 8) |
|
|
|
#system(sprintf("epstopdf %s", filename_eps)) |
|
|
|
system(sprintf("rm %s", filename_eps)) |
|
|
|
|
|
|
|