Missing labels when using subplot with geom_tile

[talgalili]

Self contained example:

library(ggplot2)
# If you want to draw arbitrary rectangles, use geom_tile() or geom_rect()
df <- data.frame(
 x = rep(c(2, 5, 7, 9, 12), 2),
 y = rep(c(1, 2), each = 5),
 z = factor(rep(1:5, each = 2)),
 w = rep(diff(c(0, 4, 6, 8, 10, 14)), 2)
)
p <- ggplot(df, aes(x, y)) +
 geom_tile(aes(fill = z))

Using ggplotly works fine:

library(plotly)
ggplotly(p)

But using subplot makes the left labels disappear:

library(plotly)
subplot(plotly_empty(), p, nrows = 1, widths = c(.2,.8), margin = 0,
 shareX = TRUE, shareY = TRUE, titleX = FALSE, titleY = FALSE)

This bug is important for heatmaply, since we get truncated labels, for example:

devtools::install_github("ropensci/plotly")
devtools::install_github('talgalili/heatmaply')
library(heatmaply)
heatmaply(mtcars, k_row = 3, k_col = 2)

[cpsievert]

In your minimal example, the labels disappear because you have specified shareY = TRUE. Unfortunately, it isn't possible to both draw interior tick labels and coordinate zoom/pan.

Fortunately, this isn't really a problem for the truncated labels you're getting in heatmaply(). You can just add to the plot margin:

heatmaply(mtcars, k_row = 3, k_col = 2) %>% layout(margin = list(l = 130, b = 20))

[talgalili]

Hi @cpsievert
Is there a way to know the needed margin values without forcing the user to supply them?
If so, I would rather calculate the needed values automatically for the user.

Thanks!

[cpsievert]

We could be doing a better job of this in ggplotly() (or really, anytime layout.axisid.ticktext is supplied). Feel free to post another issue with a minimal example to remind me to revisit :)

[talgalili]

Hi @cpsievert
I don't know exactly when layout.axisid.ticktext is supplied, but I found another example of the text not showing properly and opened an issue for it (#600).
I hope this demonstrates the same problem.

Thanks for the help, fixing this would be very valuable for heatmaply.

Cheers,
Tal