Comparison of plotly and gpglotly

compare.R

library(plotly)
library(reshape2)
compare_func_time = function(number = 1, N = 5000){
  df = data.frame(matrix(nrow = N, ncol = 11, data = c(rnorm(10*N,10), rnorm(N,30,10))))
  colnames(df) = paste0("dist", 1:11)
  
  
  st1 = system.time({
    replicate(number, {
      l = list()
      for(i in 1:11){
        d = density(df[,i])
        l[[i]] = data.frame(x = d$x, y = d$y)
      }
      
      plot_ly() %>%
        add_lines(data = l[[1]], x = ~x, y = ~y) %>%
        add_lines(data = l[[2]], x = ~x, y = ~y) %>%
        add_lines(data = l[[3]], x = ~x, y = ~y) %>%
        add_lines(data = l[[4]], x = ~x, y = ~y) %>%
        add_lines(data = l[[5]], x = ~x, y = ~y) %>%
        add_lines(data = l[[6]], x = ~x, y = ~y) %>%
        add_lines(data = l[[7]], x = ~x, y = ~y) %>%
        add_lines(data = l[[8]], x = ~x, y = ~y) %>%
        add_lines(data = l[[9]], x = ~x, y = ~y) %>%
        add_lines(data = l[[10]], x = ~x, y = ~y) %>%
        add_lines(data = l[[11]], x = ~x, y = ~y)
    })
  })
  
  
  print("and now st2...")
  st2 = system.time({
    replicate(number, 
              {
                df_m = melt(df)
                ggplotly(ggplot(df_m)+ geom_density(aes(x = value, fill = variable)))
                
              }) 
  })
  return(c(st1[3], st2[3]))
  
}
times = compare_func_time(10)
times
times[2]/times[1]