将水平滚动条添加到曲线图上以避免调整r的大小

如何解决将水平滚动条添加到曲线图上以避免调整r的大小

我有一个使用地理数据的博客博客。我希望choropleth使用滚动条而不是调整大小，因为调整大小会将其大幅缩小，并且在手机上看起来很奇怪（我的许多用户都在看它）。

查看实际问题（https://www.deploythedata.com/2020/08/17/covid19-second-wave-highlights-melbournes-occupational-segregation/）

如何添加滚动条以避免调整大小的问题？

---
title: "Melbourne"
output: html_document
---

knitr::opts_chunk$set(collapse = TRUE,out.width = "100%")


library(tidyverse)
library(sf)
library(absmapsdata)
library(plotly)
library(kableExtra)
library(DT)
library(RColorBrewer)
library(downloadthis)
library(viridis)

maps <- sa32016 %>%
  filter(gcc_name_2016 == "Greater Melbourne") 


g <- list(showlegend = FALSE,showframe = FALSE,showcoastlines = FALSE,projection = list(type = 'Mercator')
)


melb.plot <- sa32016 %>%
  filter(gcc_name_2016 == "Greater Melbourne") %>%
plot_geo(split = ~sa3_name_2016,showlegend = FALSE,hoverinfo = "text",text = ~paste("LGA:",sa3_name_2016,"<br>","Size:",areasqkm_2016)) %>%
  add_sf(color = ~areasqkm_2016,showscale = FALSE,hoveron = "fills") %>%
  add_markers(x = ~cent_long,y = ~cent_lat,size = ~areasqkm_2016) %>%
  layout(geo = g)



colorbar(melb.plot,len = 0.4)