RMarkdown渲染PDF时Flextable表格格式问题求助

问题说明 #

在RMarkdown中使用flextable生成PDF表格时遇到以下问题：

• 表头第一行添加背景色后，下方第二行表头的背景色长度与上一行不一致
• 合并两行表头后出现白色线条
• 用gg_chunk创建的Sparkline列中，顶部和底部的点被列截断

解决方案及修复代码 #

1. 修复表头背景色长度不一致 #

问题根源是表头合并后，背景色设置未对应合并后的单元格范围。需确保在完成所有表头合并操作后再设置背景色，同时正确指定表头行的范围。

2. 移除合并表头后的白色线条 #

通过移除默认边框或设置透明边框，消除合并后的白色分割线条。

3. 避免Sparkline点被截断 #

在ggplot中添加内边距设置，给图表上下留出空间，防止点被单元格边界截断。

完整修复代码 #

library(purrr)
library(ggplot2)
library(data.table)
library(flextable)
library(dplyr)

z <- as.data.table(iris)
z <- z[c(1:5, 51:55, 101:105),]

dataset_gg <- z %>%
  select(Sepal.Length, Species) %>%
  nest(Sepal.Length)

# 修复Sparkline的ggplot函数：添加内边距防止点被截断
gg <- function(x) {
  d <- x %>% 
    mutate(x = row_number()) %>% 
    rename(y = 1)
  
  ggplot(d) +
    geom_line(aes(x, y), size = 0.2) + 
    geom_point(aes(x, y), colour = ifelse(x == max(x),'red','black'), size = 0.7) +
    theme_void() +
    theme(plot.margin = margin(1, 1, 1, 1, "mm"))  # 给图表添加内边距
}

dataset_gg <- dataset_gg %>% 
  mutate(Trend = purrr::map(data, ~ gg(.x)))

z <- left_join(z, dataset_gg, by = "Species")

ft <- flextable(z,
                col_keys = c("Species", "Sepal.Length", "Petal.Length", "Sepal.Width", "Petal.Width", "Trend"))

# 表头合并配置
header.df <- data.frame(
  col_keys = c("Species", "Sepal.Length", "Petal.Length", "Sepal.Width", "Petal.Width", "Trend"),
  line1 = c("Species", rep("Length", 2), rep("Width", 2), ""),
  line2 = c("Species", "Sepal.Length", "Petal.Length", "Sepal.Width", "Petal.Width", "Trend")
)

ft <- set_header_df(ft, mapping = header.df, key = "col_keys")
ft <- merge_h(ft, part = "header")
ft <- merge_v(ft, j = "Species", part = "header") 

# 移除默认边框，解决白色线条问题
ft <- border_remove(ft)

# 设置主题和对齐
ft <- theme_zebra(ft) 
ft <- flextable::align(ft, align = "center", part = "header") 
ft <- flextable::width(ft, width = 1.2, unit = "in") 

# 添加脚注行并设置背景色
ft <- add_header_row(ft, values = "*Footnote", top = TRUE, colwidths = 6) 
ft <- bg(ft, i = 1, bg = "#839098", part = "header") 
ft <- bg(ft, i = 2:3, bg = "#EA763B", part = "header") 

# 插入Sparkline图表
ft <- flextable::compose(ft, j = "Trend", value = as_paragraph(
  gg_chunk(value = Trend, width = 15, height = 6.5, unit = "mm")))

ft

关键修复点说明 #

• Sparkline截断问题：在gg函数中添加theme(plot.margin = margin(1, 1, 1, 1, "mm"))，给图表上下左右各留1mm边距，确保点不会被单元格边界截断。
• 表头白色线条：使用border_remove(ft)移除所有默认边框，合并后的表头就不会出现白色分割线。
• 背景色长度不一致：确保所有表头合并操作完成后再设置背景色，此时i=2:3对应的是合并后的表头行，背景色会正确覆盖合并后的单元格范围。

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