adjust margin_left on the length of variable_names

Author: hbaniecki

DESCRIPTION

@@ -41,3 +41,4 @@ VignetteBuilder: knitr
 URL: https://modelstudio.drwhy.ai, https://github.com/ModelOriented/modelStudio
 BugReports: https://github.com/ModelOriented/modelStudio/issues
 Language: en-US
+LazyData: true

NEWS.md

@@ -3,6 +3,7 @@
   * this version requires `R >=3.6`, `DALEX >=2.2.1`, `ingredients >=2.2.0` and `iBreakDown >=2.0.1`
   * the deprecated alias `modelStudioOptions()` is removed from this version of the package; after being deprecated for over a year since **v1.1.0**. Use the recommended `ms_options()` instead.
   * added new parameter to `modelStudio()`: `N_sv = 3*N`, which by default decreases the number of observations used for the calculation of `Shapley Values` (rows in `data`)
+  * `margin_left = NULL` by default and it is adjusted based on the length of variable names 
 * add the `verbose` parameter to `modelStudio()` as an alias to `show_info` [(#101)](https://github.com/ModelOriented/modelStudio/issues/101)
 
 

R/data.R

@@ -5,12 +5,15 @@
 #' social support, etc. \code{happiness_train} accumulates the data from years 2015-2018,
 #' while \code{happiness_test} is the data from the year 2019, which imitates the 
 #' out-of-time validation.
-#'
+#' 
+#' Source: \href{https://www.kaggle.com/unsdsn/world-happiness}
+#' 
 #' The following columns: GDP per Capita, Social Support, Life Expectancy, 
 #' Freedom, Generosity, Corruption describe the extent to which these factors
 #' contribute in evaluating the happiness in each country.
+#' 
 #' \itemize{
-#' \item \textbf{score} - target variable, continuous value between 0 and 10 (regression) 
+#' \item \strong{score} - target variable, continuous value between 0 and 10 (regression) 
 #' \item gdp_per_capita
 #' \item social_support
 #' \item healthy_life_expectancy

R/modelStudio.R

@@ -491,7 +491,8 @@ modelStudio.explainer <- function(explainer,
   if (!is.null(license)) options$license <- paste(readLines(license), collapse=" ")
   if (is.null(options$ms_title)) options$ms_title <- paste0("Interactive Studio for ", label, " Model")
   if (!is.null(options$ms_subtitle)) options$ms_margin_top <- options$ms_margin_top + 40
-
+  if (is.null(options$margin_left)) options$margin_left <- 7*max(nchar(variable_names))
+  
   options <- c(list(time = time,
                     model_name = label,
                     variable_names = as.list(variable_names),

R/ms_options.R

@@ -113,7 +113,7 @@ ms_options <- function(...) {
     margin_top = 50,
     margin_right = 20,
     margin_bottom = 70,
-    margin_left = 105,
+    margin_left = NULL, # 105,
     margin_inner = 40,
     margin_small = 5,
     margin_big = 10,

README.md

@@ -142,6 +142,7 @@ model <- xgb.train(params, xgb_matrix, nrounds = 500)
 explainer <- explain(model,
                      data = test_matrix,
                      y = test$survived,
+                     type = "classification",
                      label = "xgboost")
 
 # pick observations

inst/d3js/modelStudio.js

@@ -111,11 +111,16 @@ var CLICKED_VARIABLE_NAME = variableNames[0],
     IS_BUTTON_CLICKED = false;
 
 /// set dimensions
-var margin = {top: options.margin_top, right: options.margin_right,
-              bottom: options.margin_bottom, left: options.margin_left,
-              inner: options.margin_inner,
-              small: options.margin_small, big: options.margin_big,
-              ytitle: options.margin_ytitle};
+var margin = {
+  top: options.margin_top,
+  right: options.margin_right,
+  bottom: options.margin_bottom,
+  left: options.margin_left,
+  inner: options.margin_inner,
+  small: options.margin_small,
+  big: options.margin_big,
+  ytitle: options.margin_ytitle
+};
 
 var w = options.w, h = options.h;
 

inst/d3js/myTools.js

@@ -178,6 +178,17 @@ function getTextWidth(text, fontSize, fontFace) {
   return context.measureText(text).width;
 }
 
+function getMaxTextWidth(textArray, fontSize, fontFace) {
+  let maxTextWidth = 0;
+  for (let i = 0; i < textArray.length; i++) {
+    let textWidth = getTextWidth(textArray[i], fontSize, fontFace)
+    if (textWidth > maxTextWidth) {
+      maxTextWidth = textWidth
+    }
+  }
+  return maxTextWidth
+}
+
 function wrapText(text, width) {
   // this function wraps text
   text.each(function () {