r - bscols によるクロストーク グラフの配置

Question

Rのクロストークを介して1つのプロットグラフとプロットマップを接続しようとしています。次のように各グラフの幅を制御する方法を知っています:

bscols(widths = c(6, 6),
 graph, map)

しかし、私はハーフサイズの出力を得ています。高さをコントロールするには？画面の上から下まで、グラフと地図をフルサイズで表示したい。現在、画面の上半分を 2 つの等しい幅 (6,6) に分割しています。実際、私はこの本でここに提示されているものと同じものを持っています:

https://plotly-r.com/client-side-linking.html#filter - 章 16.2、グラフ 16.9:

グラフはこちら: https://plotly-r.com/interactives/plotly-leaflet-filter.html

コード：

library(leaflet)
library(quakes)

eqs <- highlight_key(quakes)

stations <- filter_slider("station", "Number of Stations", eqs, ~stations)

p <- plot_ly(eqs, x = ~depth, y = ~mag) %>% add_markers(alpha = 0.5) %>% highlight("plotly_selected")

map <- leaflet(eqs) %>%  addTiles() %>% addCircles()

bscols(
widths = c(6, 6, 3), 
 p, map, stations)