R语言spec_plot在kable表格内嵌绘图报错：x必须为长度1的字符串

错误根源分析 #

• 输入数据结构不匹配：spec_plot要求传入的列表每个元素是单数值向量，但你的代码中split(tbl.example[,2:4], f = tbl.example$cars)得到的是每个元素为数据框的列表，不符合函数输入要求，这是触发错误的核心原因。
• image参数使用错误：column_spec的image参数需要接收spec_plot生成的图片路径向量，而非直接传入未正确执行的spec_plot调用。
• 初始数据类型隐患：用cbind拼接数据后得到的是矩阵，后续dplyr操作会出现不必要的类型转换问题，建议改用数据框构建初始数据。

修正后的代码 #

library(tidyverse)
library(stringr)
library(kableExtra)

# 修正初始数据构建，避免矩阵类型问题
tbl.example <- tibble(
  groups = paste0("G", c(1,2,1,1,2,1,1,1,2,3)),
  cars = rownames(mtcars[1:10,]),
  mpg = mtcars[1:10,]$mpg
) %>%
  mutate(cars = stringr::word(cars, 1)) %>%
  spread(groups, mpg) %>%
  replace(is.na(.), 10)

# 调整为spec_plot要求的结构：每个元素是数值向量
tbl.chart <- pmap(tbl.example[,2:4], c) %>% set_names(tbl.example$cars)

# 生成带chart列的表格
tbl <- tbl.example %>% mutate(chart = "")

# 正确生成内嵌图表
tbl %>% 
  kable(booktabs = T, longtable = T, align = 'l', linesep = "\\\\addlinespace") %>%
  kable_styling(latex_options = c("HOLD_position", 'repeat_header')) %>% 
  row_spec(0, bold = T) %>%
  column_spec(1, bold = F, border_right = T) %>%
  column_spec(ncol(tbl), image = spec_plot(tbl.chart, polymin = 5))

关键修正点说明 #

1. 用tibble构建初始数据，避免cbind带来的矩阵类型问题，让后续dplyr操作更顺畅。
2. 用pmap把每行的G1/G2/G3列值转换成数值向量，再用set_names绑定车型名称，得到符合spec_plot要求的列表结构。
3. 确保spec_plot接收正确输入后生成对应的图片路径向量，再传入column_spec的image参数。

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