view release on metacpan or  search on metacpan

scripts/plot_timings.R  view on Meta::CPAN

## find the 5% rows with the smallest Time & SpaceTime in the datOpenMP data
minTime<-datOpenMP[order(Time)][1:round(nrow(datOpenMP)*0.05)]
minSpaceTime<-datOpenMP[order(Time*Workers)][1:round(nrow(datOpenMP)*0.05)]



## three dimensional plots as contourplots

ggplot(datOpenMP, aes(x = Workers, y = Num_threads, z = fitTime)) +
  geom_contour(aes(colour = after_stat(level))) +theme_bw() + theme(
    panel.grid.minor = element_blank(),
    panel.grid.major = element_blank(),
    axis.text.x = element_text(size = 8),
    legend.position="bottom"
  ) + 
  scale_color_viridis(discrete=FALSE,name="Time (log2 sec)") +
  geom_point(data=minTime,aes(x=Workers,y=Num_threads),color="black",shape="+")+
  scale_y_continuous(trans = 'log2', breaks = c(1, 2, 4, 8, 18, 36,72)) +
  scale_x_continuous(trans = 'log2', breaks = c(1, 2, 4, 8, 18, 36,72)) +
  xlab("Number of Workers") + ylab("Number of Threads")

ggsave(
  "timings_MCE_with_OMP.png",
  width = 6,
  height = 6.5,
  units = "in",
  dpi = 1200
)

ggplot(datOpenMP, aes(x = Workers, y = Num_threads, z = fitSpaceTime)) +
  geom_contour(aes(colour = after_stat(level))) +theme_bw() + theme(
    panel.grid.minor = element_blank(),
    panel.grid.major = element_blank(),
    axis.text.x = element_text(size = 8),
    legend.position="bottom"
  ) + 
  scale_color_viridis(discrete=FALSE,name="Resource Use ( cp x s)") +
  geom_point(data=minSpaceTime,aes(x=Workers,y=Num_threads),color="black",shape="+")+
  scale_y_continuous(trans = 'log2', breaks = c(1, 2, 4, 8, 18, 36,72)) +
  scale_x_continuous(trans = 'log2', breaks = c(1, 2, 4, 8, 18, 36,72)) +
  xlab("Number of Workers") + ylab("Number of Threads")