R 使用html/css将标题放置在图形中

我有一个wordcloud绘图的示例应用程序，其中wordcloud没有标题选项。所以我想在上面加个标题。我有点麻烦。以下是示例应用程序：

df <- structure(list(key = c("Hello", "Okay", "Apple", "Orange", "Cheerios", 
"Today", "Tomorrow", "Water", "Steve", "Basket"), value = c(52L, 
51L, 25L, 21L, 20L, 12L, 12L, 12L, 11L, 9L)), row.names = c(57L, 
53L, 20L, 36L, 18L, 3L, 16L, 50L, 13L, 15L), class = "data.frame")

ui <- fluidPage(
  fluidRow(
    column(width = 6,
        HTML("<div>"),
        HTML("<h2 style='color:black; z-index: 9'>User Ranking</h2>"),
        wordcloud2Output("plot1", height = '500px')
        HTML("</div>")
    )
  )
)

server <- function(input, output, session) {
  output$plot1 <- renderWordcloud2({
      require('wordcloud2')
      data.frame(word = df$key, count = df$value) %>% wordcloud2(., size=.7, color='random-dark')

  })
}
shinyApp(ui, server)

---

df您可以将
style='position:absolute；'
-标记中的code>以实现此目的。我不确定这是否是一个好主意，因为这可能会导致wordcloud内容和标题的过度抽签，但如果您确定该区域永远不会用于wordcloud内容，我想您可以这样做

library(shiny)
library(wordcloud2)
library(tidyverse)

df <- structure(list(key = c("Hello", "Okay", "Apple", "Orange", "Cheerios", 
                         "Today", "Tomorrow", "Water", "Steve", "Basket"), 
                 value = c(52L, 51L, 25L, 21L, 20L, 12L, 12L, 12L, 11L, 9L)), 
            row.names = c(57L, 53L, 20L, 36L, 18L, 3L, 16L, 50L, 13L, 15L),
            class = "data.frame")

ui <- fluidPage(
  fluidRow(
    column(width = 6,
           HTML("<div>"),
           HTML("<h2 style='color:black; z-index: 9'>User Ranking</h2>"),
           HTML("<h2 style='position:absolute;'>TITLE</h2>"),
           wordcloud2Output("plot1", height = '500px'),
           HTML("</div>")
    )
  )
)

server <- function(input, output, session) {
  output$plot1 <- renderWordcloud2({
    require('wordcloud2')
    data.frame(word = df$key, count = df$value) %>% wordcloud2(., size=.7, color='random-dark')
    
  })
}
shinyApp(ui, server)

库（闪亮）
图书馆（wordcloud2）
图书馆（tidyverse）
df