Html R传单-如何在弹出窗口中组合文本和图形？

我想结合在一个小册子弹出文本和一个数字。我在德国铁路公司的网站上看到：

网站：

对我来说，将这4个显示的“窗口”->一个文本（paste0（））和一个ggplot（图形）组合起来就足够了。这在R中可能吗

致以最良好的问候，并非常感谢：）

到目前为止，我的代码是：

ll_maps %>%
  addCircles(
    data = df_temp,
    lng = ~x_coord,
    lat = ~y_coord,
    weight = 1,
    radius = 1000,
    popup = ~lapply(leafpop::popupGraph(pic_list_temp, width = 500, height = 500), HTML),
    label = ~lapply(paste0("<br><b>Textline1</b> = ", tl1_object,
                    "<br><b>Textline2</b> = ", tl2_object), HTML),
    popupOptions = popupOptions(maxWidth = 500),
    labelOptions = labelOptions(textsize = "12px"),
    opacity = 1, 
    fillOpacity = 0.5,
    color = "red")

ll\u映射%>%
addCircles(
数据=df_温度，
液化天然气=~x_coord，
lat=~y_coord，
重量=1，
半径=1000，
popup=~lappy（leafpop:：popupGraph（pic_list_temp，宽度=500，高度=500），HTML），
label=~lapply（粘贴0（“
Textline1=”，tl1_对象，
“
Textline2=，tl2_对象），HTML），
popupOptions=popupOptions（最大宽度=500），
labelOptions=labelOptions（textsize=“12px”），
不透明度=1，
填充不透明度=0.5，
color=“红色”）

---

现在，我想将标签和弹出窗口合并为一个弹出窗口，可以说：）

请共享您的代码请共享您的代码