如何在传单中的addCircles中使用colorNumeric

我有一张传单地图，其中我使用了addCircles，其大小基于我的数据位置的人口大小。我现在想用colorNumeric根据人口收入给这些圆圈上色。如何使用人口变量确定圆半径，同时使用收入变量确定颜色

```{r}
library(leaflet)

leaflet()%>%
addTiles() %>%
addCircles(data = censusdata3, lng = ~Lon, lat = ~Lat, weight = 1, radius = ~households_estimate_total, popup = ~Geography, group = "Population", color) 
```

数据样本：

---

我基本上只是结合了两个

小册子中的示例

您可以使用
colorNumeric
或
传单
中的其他调色板功能之一构建调色板，然后以与choropleth相同的方式为圆圈上色

csv文件就是从电子表格下载的文件

library(tidyverse)
library(leaflet)

censusdata3 <- read_csv("censusdata - ACS_16_5YR_S1901_with_ann.csv") %>%
    setNames(c("Geography", "Lon", "Lat", "total", "median_income", "median_income_moe", "mean_income", "mean_income_moe")) %>%
    mutate_at(vars(total:mean_income_moe), as.numeric)

color_pal <- colorNumeric(palette = "magma", domain = censusdata3$median_income, reverse = F)

leaflet()%>%
    addTiles() %>%
    addCircles(data = censusdata3, 
                         lng = ~Lon, lat = ~Lat, 
                         weight = 1, 
                         radius = ~total, 
                         popup = ~Geography,
                         color = ~color_pal(median_income)
                         ) 

库（tidyverse）
图书馆（单张）
审查数据3%
设置名称（c（“地理”、“Lon”、“Lat”、“总计”、“收入中位数”、“收入中位数”、“收入平均值”、“收入平均值”））%>%
变异（变量（总：平均收入），如数字）
颜色百分比
addTiles（）%>%
addCircles（数据=censusdata3，
液化天然气=~Lon，lat=~lat，
重量=1，
半径=~总半径，
弹出窗口=~地理，
颜色=~color\u pal（收入中值）
) 

不是为了发表社论，但我也建议用人口的平方根来缩放半径，而不是人口本身，因为人们感知到圆圈面积的差异。形状的示例包括一个类似的地图，它们使用
radius=~sqrt（Pop）*30
您能发布一个数据示例吗？对此表示抱歉。我用我的数据在我的谷歌工作表上添加了一个链接。希望能成功！