R/plot_runtime.R

In creil94/FeatureSelectionDashboard:

plot_runtime = function(data) {
  data.aggr = data %>%
    dplyr::group_by(ids, classifier, dataset) %>%
    dplyr::summarise(acc = 1 - min(metric), meanexec = mean(runtime))

  plot = data.aggr %>%
    ggplot2::ggplot(ggplot2::aes(x = ids, y = meanexec, fill = classifier)) +
    ggplot2::geom_bar(stat = "identity", position = "dodge") +
    ggplot2::coord_flip() +
    ggplot2::facet_wrap(~dataset) +
    ggplot2::ylab("Runtime (in seconds)") +
    ggplot2::xlab("")

  return(plotly::ggplotly(plot))
}