在Shiny与Plotly中结合str_wrap实现带自定义HTML样式的多字段工具提示的方案求助

我来帮你搞定这个需求！其实核心思路是利用HTML标签自定义tooltip的内容结构——Plotly支持直接解析tooltip中的HTML代码，这样既能保留str_wrap对长文本的规整效果，又能轻松添加其他字段、给标题加样式。

下面是具体的实现方案，我会一步步拆解关键细节：

关键步骤说明 #

1. 整合所有需要的字段：把model、mpg以及处理后的长文本lorem都放到ggplot的text映射里，用HTML标签来组织结构。
2. 处理长文本的换行：str_wrap生成的是普通换行符\n，在HTML里不会自动生效，所以要把它替换成HTML的换行标签<br>。
3. 自定义标题样式：用<b>标签把字段标题包裹起来，实现加粗效果；还可以根据需求调整其他样式（比如颜色、字号，用<span style="color:red">这类标签）。

完整示例代码 #

library(shiny)
library(tidyverse)
library(plotly)
library(stringi)
library(glue) # 用glue拼接HTML更简洁易读

dat <- mtcars %>% rownames_to_column(var = "model")
dat[["lorem"]] <- rep(stri_rand_lipsum(n_paragraphs = 1), 32)

ui <- fluidPage(
  plotlyOutput("plot1")
)

server <- function(input, output, session) {
  output$plot1 <- renderPlotly({
    p1 <- dat %>% 
      ggplot(aes(x = wt, y = mpg, 
                 # 用glue拼接HTML格式的tooltip内容
                 text = glue(
                   "<b>车型:</b> {model}<br>",
                   "<b>油耗(MPG):</b> {round(mpg, 2)}<br>",
                   "<b>车重:</b> {round(wt, 2)}<br><br>",
                   "<b>详细描述:</b><br>{str_replace_all(str_wrap(lorem, width = 80), '\n', '<br>')}"
                 ))) + 
      geom_point(color = "#2c3e50", size = 2)
    
    # 生成Plotly图表，指定tooltip读取text映射的内容
    ggplotly(p1, tooltip = "text") %>% 
      config(displayModeBar = FALSE) # 可选：隐藏顶部的模式栏
  })
}

shinyApp(ui, server)

额外说明 #

• 如果不想用glue包，也可以用paste0来拼接内容，比如：

  text = paste0(
    "<b>Model:</b> ", model, "<br>",
    "<b>MPG:</b> ", round(mpg,2), "<br>",
    "<b>Details:</b><br>", str_replace_all(str_wrap(lorem, 80), "\n", "<br>")
  )
  

• 你可以自由扩展字段（比如添加hp马力），或者调整样式（比如用<i>设置斜体，用style属性改颜色），只要是合法的HTML标签都能在tooltip里生效。
• str_wrap的width参数可以根据你的需求调整，控制每行显示的字符数。

内容的提问来源于stack exchange，提问作者DJC