I am trying to plot the following two graphs chord and plt_interactive
library(igraph)
library(tidygraph)
library(chorddiag)
library(ggplot2)
m <- matrix(c(11975, 5871, 8916, 2868,
1951, 10048, 2060, 6171,
8010, 16145, 8090, 8045,
1013, 990, 940, 6907),
byrow = TRUE,
nrow = 4, ncol = 4)
groupnames <- c("black", "blonde", "brown", "red")
row.names(m) <- groupnames
colnames(m) <- groupnames
chord= chorddiag(m,type = "bipartite")
plt <- ggplot(mtcars) + geom_bar(aes(x= factor(cyl)))+ coord_flip()
plt_interactive <- ggplotly(plt)
I used to do the following code for two ggplotly graphs:
plotly::subplot(f3, f4, nrows=2, heights = c(0.1, 0.9), margin = c(0,0,0.1,0))
But now I was not sure how to combine those two into subplots as they are different types of graph
I also tried the patchwork
library and do f3 + f4
but it did now work either
I also tried cowplot
library and do plot_grid(f3, f4)
with no luck
You can glue the "plots" together using htmltools::browsable
. Try this:
library(htmltools)
browsable(
tagList(list(
tags$div(
#style = 'width:80%;display:block;float:left;',
plt_interactive
),
tags$div(
#style = 'width:20%;display:block;float:left;',
chord
)
))
)
An alternative approach would be to use crosstalk::bscols(plt_interactive, chord)
.