1.3.3.9001

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: explore
 Title: Simplifies Exploratory Data Analysis
-Version: 1.3.3.9000
+Version: 1.3.3.9001
 Authors@R: 
     person("Roland", "Krasser", , "[email protected]", role = c("aut", "cre"))
 Description: Interactive data exploration with one line of code, automated

R/explore.R

@@ -1020,6 +1020,12 @@ explore_cor <- function(data, x, y, target, bins = 8, min_val = NA, max_val = NA
 
   }
 
+  else if(x_type == "cat" & is.numeric(data[[y_txt]]) & (x_descr$unique == nrow(data))) {
+
+     p <- explore_col(data, !!x_quo, !!y_quo, ...)
+
+  }
+
   else if(x_type == "cat" & y_type == "num") {
 
     data[[x_txt]] <- as.factor(data[[x_txt]])
@@ -1980,6 +1986,7 @@ explore_count <- function(data, cat, n, target, pct = FALSE, split = TRUE, title
 #' @param subtitle Subtitle of the plot
 #' @param numeric Display variable as numeric (not category)
 #' @param max_cat Maximum number of categories to be plotted
+#' @param na Value to use for NA
 #' @param flip Flip plot? (for categorical variables)
 #' @param color Color for bar
 #' @return Plot object
@@ -1994,6 +2001,7 @@ explore_col <- function(data, var_label, var_value,
                         title = NA, subtitle = "",
                         numeric = FALSE,
                         max_cat = 30,
+                        na = 0,
                         flip = NA,
                         color = "#ADD8E6") {
 
@@ -2029,6 +2037,11 @@ explore_col <- function(data, var_label, var_value,
     stop("var_value must be a numeric variable")
   }
 
+  # replance NA values (is wanted)
+  if (!is.na(na)) {
+    data[val_txt] <- ifelse(is.na(data[[val_txt]]), na, data[[val_txt]])
+  }
+
   data_plot <- data[ , c(lab_txt, val_txt)]
   names(data_plot) <- c("label", "value")