Создать пользовательскую легенду в R блестящий с HTML

Question

Я пытаюсь создать собственную легенду, которая не зависит от данных и должна располагаться прямо под графиком. Я хочу использовать HTML для этого. Это может выглядеть как это с этого веб-сайта.

Вот требования:

1. Добавить текст рядом или над строками
2. Линии разных цветов.
3. Изменение толщины линий.
4. Изменение ширины линий.

Поскольку это не новый вопрос,Я сканировал несколько других ( здесь и здесь, например ). Но мне не удалось создать полную легенду с несколькими линиями и разными цветами.

Для начала я попробовал это:

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 (... ) похоже, что все линии имеют одинаковый стиль.