如何在kable生成的PDF表格中同时实现长文本换行与下划线？

在使用kableExtra生成PDF格式表格时，设置列宽度可实现长文本自动换行，但为目标列添加下划线后，换行功能会失效。需要找到方法同时保留下划线样式和文本换行效果。

原始示例代码 #

1. 正常实现换行的代码

# Load packages
library(kableExtra)
library(dplyr)

# Fake data
dt <- tibble(
  Items = c("Item 1", "Item 2", "Item 3"),
  Text_1 = c("Lorem ipsum dolor sit amet, consectetur adipiscing elit. Proin vehicula tempor ex. Morbi malesuada sagittis turpis, at accumsan nisl fermentum vel.",
             "Curabitur ac metus vitae eros placerat luctus. Donec eget ligula vel enim ultricies dignissim. Sed auctor, metus at aliquet tincidunt, neque nunc porta metus, vitae sollicitudin odio justo in libero.",
             "Nullam eget tellus vitae erat ultrices posuere. Fusce vel velit vitae nisi convallis interdum. Integer non neque vitae turpis ullamcorper pellentesque."),
  Text_2 = c("Duis posuere placerat magna, ac aliquam lorem viverra non. Ut ultrices tempus eros, quis sollicitudin nisl tincidunt a.",
             "Etiam sit amet neque vitae odio convallis posuere. Phasellus sed tellus in odio bibendum ultricies. Nulla facilisi. Mauris ac ligula vel turpis hendrerit hendrerit.",
             "Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Suspendisse potenti. Vivamus eget enim euismod, placerat metus sit amet, convallis odio.")
)

# Wrapping works
kbl(dt, "latex", booktabs = T,
    col.names = c("Item", "Short Title", "Very Very Very Very Very Very Long Title")) %>%
  column_spec(2:3, width = "5cm")

2. 添加下划线后换行失效的代码

# Table with underline
kbl(dt, "latex", booktabs = T, escape = F,
    col.names = c("Item", "Short Title", "Very Very Very Very Very Very Long Title")) |> 
  column_spec(2:3, width = "5cm") |> 
  column_spec(3, underline = TRUE, color = "blue")

解决方案 #

问题根源在于column_spec的underline = TRUE默认使用LaTeX的\underline命令，该命令不支持自动换行。要实现可换行的下划线，需要使用LaTeX的ulem宏包提供的\uline命令，具体步骤如下：

1. 配置Rmarkdown加载ulem宏包

在Rmarkdown的YAML头部添加以下内容，确保PDF输出时加载ulem宏包：

output:
  pdf_document:
    extra_dependencies: ulem

2. 修改表格代码实现双效果

通过column_spec的format参数，手动用\uline{}包裹目标列的内容，替代默认的underline参数：

# 同时实现换行和下划线的表格
kbl(dt, "latex", booktabs = TRUE, escape = FALSE,
    col.names = c("Item", "Short Title", "Very Very Very Very Very Very Long Title")) |> 
  column_spec(2:3, width = "5cm") |> 
  # 使用\uline包裹列内容，结合ulem宏包实现可换行的下划线
  column_spec(3, format = function(x) paste0("\\uline{", x, "}"), color = "blue")

3. 另一种方式：用cell_spec处理单元格

也可以直接在数据预处理阶段用cell_spec给目标列添加格式：

# 预处理数据，给Text_2列添加可换行的下划线
dt <- dt |> 
  mutate(Text_2 = cell_spec(Text_2, "latex", color = "blue", format = function(x) paste0("\\uline{", x, "}")))

# 生成表格
kbl(dt, "latex", booktabs = TRUE, escape = FALSE,
    col.names = c("Item", "Short Title", "Very Very Very Very Very Very Long Title")) |> 
  column_spec(2:3, width = "5cm")

这两种方法都能让长文本正常换行，同时保留蓝色下划线样式。

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