code/03-programming_f5.R

In csgillespie/efficientR: Efficient R Programming

library(microbenchmark)
library(ggplot2)
source("code/initialise.R")
# set.seed(1)
# x = matrix(rnorm(100000), ncol=1000)
# z = microbenchmark::microbenchmark(
#   apply(x, 2, function(i) mean(i)/sd(x)), 
#   {sd_x = sd(x); apply(x, 2, function(i) mean(i)/sd_x)},
#   times=500, unit="s"
# )
#saveRDS(z, "extdata/03-f5.Rds")

z = readRDS("extdata/03-f5.Rds")
plot(z)
z$time = z$time/10^9
z$expr = factor(z$expr, labels=c("Standard", "Cached"))

g = ggplot(z) + 
  geom_violin(aes(expr, time),position=position_dodge(0.9), bg=get_col(3)) + 
  scale_y_continuous(limits=c(10^-3, 10^1), expand=c(0, 0), breaks = 10^(-3:1), 
                     trans="log10", 
                     labels=c(expression(10^-3),expression(10^-2),
                              expression(10^-1),expression(10^0),expression(10^1)))
g
g1 = g +  labs(title = "Performance gains with cached variables", 
               x = NULL, y = "Elapsed time (secs)",colour = NULL, fill = NULL) + 
  theme(panel.grid.major.y = element_line(colour = "gray90"), 
        panel.grid.minor = element_line(colour = NA), 
        panel.grid.major.x = element_line(colour = NA), 
        plot.title = element_text(size = 12, 
                                  face = "bold", hjust = 1, vjust = 0), 
        panel.background = element_rect(fill = NA), 
        legend.background = element_rect(fill = NA), 
        legend.position = c(0.93, 0.92), 
        axis.ticks.x = element_line(linetype = "blank"),
        axis.ticks.y = element_line(linetype = "blank"))
print(g1)