如何在R的collapsibleTree包中实现文本换行？

我完全懂你的需求——用collapsibleTree做可折叠树形图时，想让节点里的美元金额和百分比文本换行，还不想碰JavaScript代码对吧？其实不用写JS，在R层面就能轻松搞定，核心是利用HTML的换行标签和包自带的HTML解析参数。

步骤1：预处理数据，插入HTML换行标签 #

首先，在准备你的数据集时，把需要换行的金额和百分比文本用HTML的<br>标签拼接起来。比如：

library(collapsibleTree)

# 构造示例数据
tree_data <- data.frame(
  Level1 = c("Revenue", "Revenue", "Expenses", "Expenses"),
  Level2 = c("Product A", "Product B", "Operations", "Marketing"),
  Amount = c("$45,000", "$32,000", "$28,000", "$15,000"),
  Percentage = c("58%", "42%", "65%", "35%")
)

# 拼接带换行的节点文本
tree_data$DisplayText <- paste0(tree_data$Amount, "<br>", tree_data$Percentage)

步骤2：调用collapsibleTree并开启HTML解析 #

接下来调用树形图函数时，指定我们拼接好的DisplayText作为节点文本，同时设置nodeHtml = TRUE——这个参数会告诉包把节点文本当作HTML来解析，<br>就会变成换行符，而不是直接显示成字符串：

collapsibleTree(
  tree_data,
  hierarchy = c("Level1", "Level2"),
  nodeText = "DisplayText",
  nodeHtml = TRUE,
  fill = "#5B8FF9",
  nodeSize = 10
)

如果是汇总节点（collapsibleTreeSummary） #

如果你用的是带汇总功能的collapsibleTreeSummary，同样可以用类似的思路，自定义汇总文本并开启summaryHtml = TRUE：

collapsibleTreeSummary(
  tree_data,
  hierarchy = c("Level1", "Level2"),
  attribute = "Amount",
  # 自定义汇总内容，加入换行
  summary = function(values) {
    total_amount <- sum(as.numeric(gsub("[\\$,]", "", values)))
    total_pct <- paste0(round(total_amount / sum(as.numeric(gsub("[\\$,]", "", tree_data$Amount))) * 100), "%")
    paste0("$", format(total_amount, big.mark = ","), "<br>", total_pct)
  },
  summaryHtml = TRUE,
  fill = "#61DDAA"
)

原理说明 #

collapsibleTree本质是基于HTML和JavaScript渲染的，所以它天然支持HTML格式的文本。我们只需要在R里提前把换行逻辑用HTML标签写好，再开启对应的解析参数，就能实现想要的换行效果，完全不需要自己写JS代码。

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