Вы можете использовать hw_grid в качестве быстрого исправления, если все они имеют одинаковую высоту:
library(htmltools)
library(highcharter)
h1 = hchart(prcomp(mtcars))
h2 = hchart(iris$Sepal.Width)
h3 = hchart(data.frame(x=1:10+runif(10),y=1:10+runif(10)),type="line")
combined = list(h1,h2,h3) %>% hw_grid(ncol=1,rowheight=250)
browsable(combined)
Или на самом деле go вниз использование пакетов для объединения htmlwidgets, где вы можете указать макет + высоту строк:
library(manipulateWidget)
combineWidgets(h1,h2,h3,ncol=1,rowsize=c(2,1,1))