Multicategory axis support

[benjaminschwetz]

Hi,

I am trying to use multicategory axes and get very inconsistent behavior. This is what I tested so far:

Bar charts:

I need to manually supply type = "multicategory" to the axis. This is opposed to what I have read for the python api, where this will happen automatically if your traces have arrays. see here

reprex

library(plotly)
two_f <- rbind(
  c("BB+", "BB+", "BB+", "BB", "BB", "BB"),
  c(16, 17, 18, 16, 17, 18)
)
p <- plot_ly() %>% 
  add_bars(x=two_f,y=c(1,2,3,4,5,6)) %>% 
  layout(barmode="relative")
p # no multicategory axis
p_multi <- p %>% layout(xaxis=list(side = "top", type = "multicategory"))
p_multi # multicategory axis on top

Heatmaps:

Thanks to michaelbabyn, I know how to create a multicategory x-axis for a heatmap. However, as opposed to bar charts, making a multicategory y-axis crashes, and trying to move the x-axis on top of the chart also crashes.

reprex

library(plotly)
q <- plot_ly() %>% 
  add_heatmap(
    x=rbind(c('aa', 'aa', 'bb', 'bb', 'cc', 'cc'), c(1,2,3,4,5,6)),
    y=c(1,2,3,4,5,6),
    z = array(seq(1,10, length.out = 36), c(6,6)))
q # this works
q_y <- plot_ly() %>% 
  add_heatmap(
    x=c(1,2,3,4,5,6),
    y=rbind(c('aa', 'aa', 'bb', 'bb', 'cc', 'cc'), c(1,2,3,4,5,6)),
    z = array(seq(1,10, length.out = 36), c(6,6))) 
## this would crash the Rstudio session:
## it should render something like https://codepen.io/michaelbabyn/pen/pMOOwM?editors=0010
# q_y

## this also breaks the session:
qx_top <- q %>% layout(xaxis=list(side = "top"))
# qx_top

[cpsievert]

I can't seem to replicate the RStudio crash in your 2nd example (i.e., it renders ok for me). If you use the dev version of plotly (devtools::install_github("ropensci/plotly")) and/or a recent version of RStudio, does the problem go away? If not, please report the output of devtools::session_info()

[benjaminschwetz]

I tried it today, the issue is still there @cpsievert . For clarification: it freezes when I comment out the lines # q_y and # qx_top from above, in order to show the plots. Perhaps that was not clear.

In either case, this is from my session info:

devtools::session_info()
#> - Session info ----------------------------------------------------------
#>  setting  value                       
#>  version  R version 3.6.1 (2019-07-05)
#>  os       Windows 10 x64              
#>  system   x86_64, mingw32             
#>  ui       RTerm                       
#>  language (EN)                        
#>  collate  Danish_Denmark.1252         
#>  ctype    Danish_Denmark.1252         
#>  tz       Europe/Paris                
#>  date     2019-10-24                  
#> 
#> - Packages --------------------------------------------------------------
#>  package     * version    date       lib source                          
#>  assertthat    0.2.1      2019-03-21 [1] CRAN (R 3.6.1)                  
#>  backports     1.1.5      2019-10-02 [1] CRAN (R 3.6.1)                  
#>  callr         3.3.2      2019-09-22 [1] CRAN (R 3.6.1)                  
#>  cli           1.1.0      2019-03-19 [1] CRAN (R 3.6.1)                  
#>  colorspace    1.4-1      2019-03-18 [1] CRAN (R 3.6.1)                  
#>  crayon        1.3.4      2017-09-16 [1] CRAN (R 3.6.1)                  
#>  data.table    1.12.6     2019-10-18 [1] CRAN (R 3.6.1)                  
#>  desc          1.2.0      2018-05-01 [1] CRAN (R 3.6.1)                  
#>  devtools      2.2.1      2019-09-24 [1] CRAN (R 3.6.1)                  
#>  digest        0.6.21     2019-09-20 [1] CRAN (R 3.6.1)                  
#>  dplyr         0.8.3      2019-07-04 [1] CRAN (R 3.6.1)                  
#>  ellipsis      0.3.0      2019-09-20 [1] CRAN (R 3.6.1)                  
#>  evaluate      0.14       2019-05-28 [1] CRAN (R 3.6.1)                  
#>  fs            1.3.1      2019-05-06 [1] CRAN (R 3.6.1)                  
#>  ggplot2     * 3.2.1      2019-08-10 [1] CRAN (R 3.6.1)                  
#>  glue          1.3.1      2019-03-12 [1] CRAN (R 3.6.1)                  
#>  gtable        0.3.0      2019-03-25 [1] CRAN (R 3.6.1)                  
#>  highr         0.8        2019-03-20 [1] CRAN (R 3.6.1)                  
#>  htmltools     0.4.0      2019-10-04 [1] CRAN (R 3.6.1)                  
#>  htmlwidgets   1.5.1      2019-10-08 [1] CRAN (R 3.6.1)                  
#>  httr          1.4.1      2019-08-05 [1] CRAN (R 3.6.1)                  
#>  jsonlite      1.6        2018-12-07 [1] CRAN (R 3.6.1)                  
#>  knitr         1.25       2019-09-18 [1] CRAN (R 3.6.1)                  
#>  lazyeval      0.2.2      2019-03-15 [1] CRAN (R 3.6.1)                  
#>  lifecycle     0.1.0      2019-08-01 [1] CRAN (R 3.6.1)                  
#>  magrittr      1.5        2014-11-22 [1] CRAN (R 3.6.1)                  
#>  memoise       1.1.0      2017-04-21 [1] CRAN (R 3.6.1)                  
#>  munsell       0.5.0      2018-06-12 [1] CRAN (R 3.6.1)                  
#>  pillar        1.4.2      2019-06-29 [1] CRAN (R 3.6.1)                  
#>  pkgbuild      1.0.6      2019-10-09 [1] CRAN (R 3.6.1)                  
#>  pkgconfig     2.0.3      2019-09-22 [1] CRAN (R 3.6.1)                  
#>  pkgload       1.0.2      2018-10-29 [1] CRAN (R 3.6.1)                  
#>  plotly      * 4.9.0.9000 2019-10-24 [1] Github (ropensci/plotly@cdfdc7c)
#>  prettyunits   1.0.2      2015-07-13 [1] CRAN (R 3.6.1)                  
#>  processx      3.4.1      2019-07-18 [1] CRAN (R 3.6.1)                  
#>  ps            1.3.0      2018-12-21 [1] CRAN (R 3.6.1)                  
#>  purrr         0.3.3      2019-10-18 [1] CRAN (R 3.6.1)                  
#>  R6            2.4.0      2019-02-14 [1] CRAN (R 3.6.1)                  
#>  Rcpp          1.0.2      2019-07-25 [1] CRAN (R 3.6.1)                  
#>  remotes       2.1.0      2019-06-24 [1] CRAN (R 3.6.1)                  
#>  rlang         0.4.0      2019-06-25 [1] CRAN (R 3.6.1)                  
#>  rmarkdown     1.16       2019-10-01 [1] CRAN (R 3.6.1)                  
#>  rprojroot     1.3-2      2018-01-03 [1] CRAN (R 3.6.1)                  
#>  scales        1.0.0      2018-08-09 [1] CRAN (R 3.6.1)                  
#>  sessioninfo   1.1.1      2018-11-05 [1] CRAN (R 3.6.1)                  
#>  stringi       1.4.3      2019-03-12 [1] CRAN (R 3.6.0)                  
#>  stringr       1.4.0      2019-02-10 [1] CRAN (R 3.6.1)                  
#>  testthat      2.2.1      2019-07-25 [1] CRAN (R 3.6.1)                  
#>  tibble        2.1.3      2019-06-06 [1] CRAN (R 3.6.1)                  
#>  tidyr         1.0.0      2019-09-11 [1] CRAN (R 3.6.1)                  
#>  tidyselect    0.2.5      2018-10-11 [1] CRAN (R 3.6.1)                  
#>  usethis       1.5.1      2019-07-04 [1] CRAN (R 3.6.1)                  
#>  vctrs         0.2.0      2019-07-05 [1] CRAN (R 3.6.1)                  
#>  viridisLite   0.3.0      2018-02-01 [1] CRAN (R 3.6.1)                  
#>  withr         2.1.2      2018-03-15 [1] CRAN (R 3.6.1)                  
#>  xfun          0.10       2019-10-01 [1] CRAN (R 3.6.1)                  
#>  yaml          2.2.0      2018-07-25 [1] CRAN (R 3.6.0)                  
#>  zeallot       0.1.0      2018-01-28 [1] CRAN (R 3.6.1)                  

^{Created on 2019-10-24 by the reprex package (v0.3.0)}

[justin-sleep]

I've been able to get multicategory axes working reliably except for the divider placement. Here's an example using the Titanic data set:

library(tidyverse)
library(magrittr)
library(plotly)

titanic = as.data.frame(Titanic)

titanic_grouped = titanic %>% group_by(
    Class,
    Survived
) %>% summarize(Frequency = sum(Freq))

error_chart = titanic_grouped %>% plot_ly(
    type = 'bar',
    orientation = 'h',
    x = ~Frequency,
    y = list(
        ~Class,
        ~Survived
    )
) %>%
layout(
    title = 'Titanic Survival Rate by Class',
    yaxis = list(
        autorange = 'reversed'
    ),
    showlegend = FALSE
) %>%
config(
    displaylogo = F
)

error_chart

It seems the divider axis locations are offset by one.

EDIT: This only happens when autorange = 'reversed'. See plotly/plotly.js#4927. This is broader than the R library, so multicategory axes should otherwise be working.