R的传单中的比例符号图例

我正在将公交车站的登机牌映射为圆标记，使用半径=~Ons创建一个连续的带刻度符号地图。我想知道是否有办法在R的传单上做一个图例，其中图例中圆圈的大小与登机牌的等级相对应。我需要设置一些垃圾箱来实现这一点吗？我发现的大多数示例都是关于choropleth贴图的，但我希望符号的颜色保持不变

我试图按照第页的示例1.7进行操作，但我得到一个错误参数“colors”丢失，没有默认值。我尝试添加

pal=“#55cc00”

，但随后我发现错误：没有适用于“metaData”的方法应用于类为“NULL”的对象。我也看过这篇文章，但它似乎并没有完全传输，因为数据是分类的

有人知道怎么做吗？谢谢你的帮助

ridership_25<- leaflet()%>%
  setView(-75.1213, lat = 39.97266, zoom = 12)%>%
  addProviderTiles(providers$Wikimedia)%>%
  addPolylines(data = line_25, 
               color = 'tomato', 
               weight = 1.5)%>%
  addCircleMarkers(data = the_25, 
             color = 'tomato', 
             radius = ~Ons, 
             fillOpacity = 0.4, 
             popup = paste("Route: ", the_25$LineAbbr, "<br>",
                           "Direction: ", the_25$Direction, "<br>",
                            "Boards: ", the_25$Ons, "<br>",
                           "Alights: ", the_25$Offs))%>%
  addLegend("bottomright", values = ~Ons, title = "Boardings, opacity = 0.6")

ridership_25

25%的乘客量
setView（-75.1213，纬度=39.97266，缩放=12）%>%
addProviderTiles（提供商$Wikimedia）%>%
添加多段线（数据=线25，
颜色=‘番茄’，
重量=1.5）%>%
addCircleMarkers（数据=_25，
颜色=‘番茄’，
半径=~s，
fillOpacity=0.4，
popup=粘贴（“路由：”，the_25$LineAbbr“
”，
“方向：”，即“25美元方向”
“，
“董事会：”，the_25$Ons，“
”，
“下车：”，the_25$Offs））%>%
addLegend（“右下角”，值=~Ons，title=“边界，不透明度=0.6”）
乘客人数(25)

若我展示一些_25数据集会有帮助吗？不确定使用sf对象执行此操作的最佳方式