提前感谢支持这个问题。我正在开发一个 Shiny 应用程序，其中包含一些有关向州检察长办公室提交的投诉的数据。我将制作交互式 ggplot 图形和其他东西。我想用 HTML 元素为我的 ggplot 的标题赋予样式（我不知道在我试图用那个标题做的复杂级别上有任何其他方法来做到这一点）。由于我的数据的性质以及我使用的 csv 和 Rdata 文档的数量，我无法提供可重复的示例，对此我深表歉意。
下面的代码代表了 ggplot 部分以及我如何在 renderPlot 环境中引入它。如果有人能告诉我如何在 ggplot 的标题中使用 HTML 元素，或者有任何其他选项可以在句子和粗体文本之间引入空格（不是所有文本，只是几个字），我将不胜感激。
library(extrafont)
loadfonts(device = "win")
library(openxlsx)
library(zoo)
library(ggplot2)
library(gridExtra)
library(shiny)
library(shinyWidgets)
library(shinydashboard)
library(shinyjqui)
library(shinyjs)
library(plyr)
library(dplyr)
library(dbplyr)
library(dint)
library(bbplot)
library(osmdata)
library(stats)
graph_1 <- reactiveValues()
observeEvent({
input$tentativa
input$provincia
input$periodo_tipo
input$periodo_ranking
input$periodo_ranking_t
input$periodo_ranking_m
},{
datos<-datos_f()
datos<-datos %>% count(datos$delitos)
datos<-datos %>%
rename(
delitos = `datos$delitos`,
)
datos<-join(x = datos, y =catalogo_delito,
by = "delitos" )
datos$Tipo_Delito_PJ<- NULL
#eliminar duplicados
datos<-datos[!duplicated(datos$delitos), ]
datos<-datos[order(datos$n, …