lintr

R/plot.R

@@ -562,7 +562,7 @@ make_beeswarm_plot <- function(dt_plot, col, index_x_explain, x, factor_cols) {
 
   gg <- ggplot2::ggplot(dt_plot, ggplot2::aes(x = variable, y = phi, color = feature_value_scaled)) +
     ggplot2::geom_hline(yintercept = 0, color = "grey70", linewidth = 0.5) +
-    ggbeeswarm::geom_beeswarm(priority = "random", cex = 1 / length(index_x_explain)^(1/4)) +
+    ggbeeswarm::geom_beeswarm(priority = "random", cex = 1 / length(index_x_explain)^(1 / 4)) +
     ggplot2::coord_flip() +
     ggplot2::theme_classic() +
     ggplot2::theme(panel.grid.major.y = ggplot2::element_line(colour = "grey90", linetype = "dashed")) +