在R中的单张地图区域内绘制圆（圆堆积）

Question

我希望能够生成一个类似于以下所示值的圆包装图： https://www.r-graph-gallery.com/308-interactive-circle-packing/

但是，我希望能够使用R中的传单（或其他软件包）在地图上某个区域的边界内（例如县区）绘制该图。

我尝试运行示例中从站点提供的代码来生成其图，但是由于某种原因我无法使其正常工作。

当我尝试自己在地图区域内进行操作时，结果如下图所示。谢谢您的帮助。

packages <-c("tidyverse","charlatan" "ggmap", "reshape2", "raster", "GISTools", "rgdal", "sp", "maps", "mapdata", "rgeos", "maptools", "rstan", "leaflet")
lapply(packages, require, character.only = TRUE)

us <- getData('GADM', country='USA', level=2)
texas <- subset(us,NAME_1=="Texas")
Dallas <- subset(texas, NAME_2=="Dallas")

leaflet(Dallas) %>%
    addPolygons() %>%
    addTiles()

bb <- bbox(Dallas)
minx <- bb[1]
miny <- bb[2]
maxx <- bb[3]
maxy <- bb[4]
set.seed(23)
LL1k <- data.frame(ch_position(n = 7, bbox = c(minx, miny, maxx, maxy)))
LL1kcol <- as.data.frame(t(LL1k))
colnames(LL1kcol) <- c("lon", "lat")

leaflet(Dallas) %>%
    addPolygons() %>%
    addTiles() %>%
    addCircles(lat = LL1kcol$lat, lng = LL1kcol$lon, radius = iris$Sepal.Length*500, color = iris$Species)