ggMarginal() not implemented

[danton267]

library(plotly)
library(ggplot2)
library(ggExtra)

data(mpg)

p <- ggplot(mpg, aes(cty, hwy)) +
  geom_count() +
  geom_smooth(method="lm", se=F)

p <- ggMarginal(p, type = "histogram", fill="transparent")

ggplotly(p)

yields the following error:

Error in UseMethod("ggplotly", p) : 
  no applicable method for 'ggplotly' applied to an object of class "c('ggExtraPlot', 'gtable', 'gTree', 'grob', 'gDesc')"

[cpsievert]

As with #2026, #2020, and #2028, {ggMarginal} is implemented on the {grid} level, so again, implementing a proper conversion would be a huge undertaking.

As a workaround, you can do something like:

library(plotly)

data(mpg)

p <- ggplot(mpg, aes(cty, hwy)) +
  geom_count() +
  geom_smooth(method="lm", se=F)

subplot(
  plot_ly(x = mpg$cty, color = I("black")),
  plotly_empty(),
  ggplotly(p),
  plot_ly(y = mpg$hwy, color = I("black")),
  nrows = 2, shareX = TRUE, shareY = TRUE,
  heights = c(0.2, 0.8),
  widths = c(0.8, 0.2),
  margin = 0.01
) %>%
  layout(showlegend = FALSE)