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

Question

我想在一个位置显示两种不同类型的信息。

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

    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中/ p>

    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))

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

但是，我想为单个标记显示两个弹出窗口。用户会在标记上无比点击，然后弹出窗口会并排出现（也许以蜘蛛侠的方式）。

有办法吗？