向单个标记位置坐标添加多个弹出窗口

我可以这样做,在一个弹出窗口中显示所有内容:

    leaflet() %>% addCircleMarkers(data  = goo,
                     lng   = ~ lng,
                     lat   = ~ lat,
                     popup = ~ paste("<strong>", str_to_title(name), "</strong>", 
                                     "<br>", "Process:", n_proc,
                                     "<br><p style=color:#808080>", process, '</p>'), 
                     clusterOptions = markerClusterOptions(spiderfyDistanceMultiplier = 1.7))

或者我可以为同一位置生成两个标记,分别显示信息,使用 vector 内部 popup 参数,其自身包含两个不同的文本块 paste

    leaflet() %>% addCircleMarkers(data  = goo,
                     lng   = ~ lng,
                     lat   = ~ lat,
                     popup = ~ c(paste("<strong>", str_to_title(name), "</strong>", 
                                     "<br>", "Process:", n_proc),
                                     paste("<br><p style=color:#808080>", process, '</p>')), 
                     clusterOptions = markerClusterOptions(spiderfyDistanceMultiplier = 1.7))

在上图中,每个标记代表相同的位置,但具有不同的弹出内容。

然而,我想做的是为一个标记显示两个弹出窗口。一个用户点击标记,弹出窗口就会并排出现(可能是蜘蛛式的)。

有办法吗?