r-通过bscols排列串扰图

Question

我正在尝试通过R中的串扰连接一个绘图图和一个绘图映射。我知道如何控制每个图形的宽度，如下所示：

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

但我得到的是一半大小的输出。如何控制高度？我想要一个完整尺寸的图形和地图：从屏幕的顶部到底部。目前，我正在将屏幕的上半部分分成两个相等的宽度(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)

Answer 1

图表的宽度和高度可以在原始plotly((和leaflet((调用中作为参数传递，然后将这两个对象传递给bscols((，如下所示：

图书馆(传单(图书馆(地震(

方程<-highlight_key(地震(

电台<-filter_slider("站"，"站数"，eqs，~站(

p<-plot_ly(方程，x=~深度，y=~磁，宽度="100%"，高度=800(%>%add_markers(alpha=0.5(%>%高亮显示("plotly_selected"(

映射<-小叶(eqs，宽度="100%"，高度=800(%>%addTiles((%>%addCircles((

bscols(宽度＝c(6，6，3(，p、 地图、车站(