Fix x-axis data/label for bar graphs

Author: mkcor

R/trace_generation.R

@@ -21,7 +21,6 @@ layer2traces <- function(l, d, misc) {
   barmode <- "group"
   if (g$geom == "bar" || g$geom == "histogram") {
     if (l$stat$objname == "bin") {
-      bargap <- 0
       if (g$geom != "histogram") {
         warning("You may want to use geom_histogram.")
       }
@@ -67,16 +66,18 @@ layer2traces <- function(l, d, misc) {
                                 "%Y-%m-%d %H:%M:%S")
         } else if (inherits(data.vec, "factor")) {
           ## Re-order data so that Plotly gets it right from ggplot2.
-          g$data <- g$data[order(g$data[[a]]),]
+          g$data <- g$data[order(g$data[[a]]), ]
           data.vec <- data.vec[match(g$data[[a]], as.numeric(data.vec))]
-          g$prestats.data <- g$prestats.data[order(g$prestats.data[[a]]),]
+          g$prestats.data <- g$prestats.data[order(g$prestats.data[[a]]), ]
           pdata.vec <- pdata.vec[match(g$prestats.data[[a]],
                                        as.numeric(pdata.vec))]
           if (length(pdata.vec) == length(data.vec))
             pdata.vec <- data.vec
         }
         g$data[[a]] <- data.vec
         g$prestats.data[[a]] <- pdata.vec
+        if (!is.factor(g$prestats.data[[a]]))
+          g$prestats.data[[a]] <- g$prestats.data[[paste0(a, ".name")]]
       }
     }
   }

tests/testthat/test-ggplot-histogram.R

@@ -8,6 +8,9 @@ test_that("default position is translated to barmode=stack", {
   L <- gg2list(hist)
   expect_equal(length(L), 2)
   expect_identical(L$kwargs$layout$barmode, "stack")
+  expect_identical(L$kwargs$layout$xaxis$type, "category")
+  expect_identical(L[[1]]$type, "histogram")
+  expect_true(L[[1]]$x[1] %in% c("CDN", "MEX", "USA"))
 
   save_outputs(hist, "histogram-barmodestack")
 })