如何在R中添加带有if和函数的单张弹出窗口？

我正在用R和传单制作一些地图，我在缓冲区上数着几年的点数。现在我把多边形放在地图和所有的点上，我把图层添加到地图上

所以，我的问题是，当我在层上选择或取消选择一年时，这个操作将总和或剩余缓冲区中的总计数

我怎样才能在一张地图上制作这个，而不是一年制作几个地图

# Counting points
BUF_2014 <- gBuffer(LOCATI,width = 0.00182, byid = TRUE)
count_2014 <- over(BUF_2014, GEO_2014, fn=length)
BUF_2014$count <- count_2014$NRO
... # Do this with 2015,2016,2017,2018

# Buffer
BUF <- rbind(BUF_2014,BUF_2015,BUF_2016,
             BUF_2017,BUF_2018)

leaflet() %>% addTiles() %>%
  addCircleMarkers(GEO_2014@coords[,1],GEO_2014@coords[,2],
                   group = "2014", clusterOptions = markerClusterOptions()) %>%
  addCircleMarkers(GEO_2015@coords[,1],GEO_2015@coords[,2],
                   group = "2015", clusterOptions = markerClusterOptions()) %>%
  addCircleMarkers(GEO_2016@coords[,1],GEO_ACCIDENTE_2016@coords[,2],
                   group = "2016", clusterOptions = markerClusterOptions()) %>%
  addCircleMarkers(GEO_2017@coords[,1],GEO_2017@coords[,2],
                   group = "2017", clusterOptions = markerClusterOptions()) %>%
  addCircleMarkers(GEO_2018@coords[,1],GEO_2018@coords[,2],
                   group = "2018", clusterOptions = markerClusterOptions()) %>%
  addPolygons(data = BUF, 
              popup=~paste(count)) %>%
  addLayersControl(overlayGroups = c("2014","2015","2016","2017","2018")) 

#计数点
BUF_2014%
addCircleMarkers（地理位置）_2016@coords[，1]，地理意外_2016@coords[,2],
group=“2016”，clusterOptions=markerClusterOptions（））%>%
addCircleMarkers（地理位置）_2017@coords[，1]，地理位置_2017@coords[,2],
group=“2017”，clusterOptions=markerClusterOptions（））%>%
addCircleMarkers（地理位置）_2018@coords[，1]，地理位置_2018@coords[,2],
group=“2018”，clusterOptions=markerClusterOptions（））%>%
添加多边形（数据=BUF，
弹出窗口=~粘贴（计数））%>%
addLayersControl（OverlyGroup=c（“2014”、“2015”、“2016”、“2017”、“2018”））

我只是每年得到5个多边形和一年的计数，我只想通过添加或删除层得到一个多边形和计数之和