使用HTML在R Shiny中创建自定义图例

Question

我正在尝试创建一个自定义图例，该图例与数据无关，应放置在绘图下。我想为此使用HTML。看起来像this网站上的this。

以下是要求：

1. 在行旁边或上方添加文本
2. 具有不同颜色的线。
3. 更改线条的粗细。
4. 更改线条的宽度。

因为这不是一个新问题，所以我扫描了其他几个问题（here and here e.g.）。但是我未能构建出具有多条线和不同颜色的完整图例。

首先，我尝试了以下方法：

ui <- navbarPage("Page",
             tabPanel("Panel",
                      fluidPage(
                        fluidRow(
                          tags$style(HTML("hr {border-top: 2px solid #fa0505;}")),
                          HTML("Red ", "<hr width=10% align=left>")
                        )
                      )
             )
)

server <- function(input, output, session) {}

shinyApp(server = server, ui = ui)

但是对于标签$ style（...），似乎所有行都具有相同的样式。