ggMarginal() not implemented #2025

Activity

1. jackparmer

   added

   ggplotly

   on Sep 30, 2021
2. jackparmer

   assigned

   moutikabdessabour

   on Sep 30, 2021
3. jackparmer

   assigned

   cpsievert

   on Oct 22, 2021
4. cpsievert commented on Nov 1, 2021

   

   cpsievert

   on Nov 1, 2021

   Last edited by cpsievert

   Collaborator

   More actions

   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)

   
5. cpsievert

   closed this as completedon Nov 1, 2021