R传单地图-将图层组选择与图例相结合？

我知道这里有几个R传单线程，关于仅当使用addLayersControl命令选择图层时才显示图层图例

但我的问题与美学略有不同。我有一张有几层的地图，对应不同的动物足迹，每一层都有不同的颜色。我希望用户能够显示/隐藏每个曲目（使用addLayersControl），并且我希望显示所有曲目的图例。但是，如果将单选按钮与图例项组合在一起，则图例中的项目集和addLayersControl按钮中的项目集看起来会更好。我现在拥有的地图见下文：

有人知道有什么代码可以做到这一点吗

谢谢