Легенда пропорциональных символов в буклете для R

Я отображаю посадки на остановках общественного транспорта в виде круговых маркеров, используя radius = ~Ons для создания непрерывной карты градуированных символов. Мне интересно, есть ли способ сделать легенду в Leaflet для R, где размер кругов в легенде соответствует уровню посадок. Нужно ли мне накладывать некоторые бункеры, чтобы это работало? Большинство примеров, которые я нашел, относятся к картограммам, но я хочу, чтобы цвет символов оставался неизменным.

Я попытался выполнить пример 1.7 с этой страницы, но получаю сообщение об ошибке цвета аргументов отсутствуют по умолчанию. Я пытался добавить 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

Было бы полезно, если бы я показал часть набора данных the_25? Не уверен, что это лучший способ сделать это с помощью объекта sf.