如何将knitr中kable的输出转为字符并合并到R数组？

方法1：修改pmatrix()函数使其返回字符类型 #

原函数使用cat()直接输出内容，没有返回值。我们可以调整函数逻辑，将LaTeX代码拼接为字符串后返回，这样就能直接赋值给变量u。

修改后的函数：

pmatrix <- function(x) {
  # 构造LaTeX代码的各个组成部分
  latex_components <- c("\\begin{equation*}\n",
                        "\\left(\n",
                        knitr::kable(x, format = "latex", 
                                     tabular = "array",
                                     vline = "",
                                     align = "c",
                                     linesep = "",
                                     toprule = NULL,
                                     bottomrule = NULL),
                        "\n\\right)\\, .\n",
                        "\\end{equation*}\n")
  # 将所有部分合并为单个字符串
  latex_str <- paste(latex_components, collapse = "")
  return(latex_str)
}

使用示例：

x <- structure(c(6, 4, 3, 1, 6, 2, 5, 3, 5, 3, 6, 0, 6, 0, 5, 5), dim = c(4L, 4L))

# 赋值给u，此时u为字符类型
u <- pmatrix(x)

# 合并到字符串数组
combined_content <- c("Hello", u, "world")

# 输出到txt文件
writeLines(combined_content, "output.txt")

方法2：用capture.output()捕获原函数输出（无需修改原函数） #

如果不想改动原函数，可以借助capture.output()捕获cat()打印的内容，转换为字符向量：

# 保留原函数不变
pmatrix <- function(x) {
  cat(c("\\begin{equation*}\\n",
    "\\left(",
    knitr::kable(x, format = "latex", 
                 tabular = "array",
                 vline = "",
                 align = "c",
                 linesep = "",
                 toprule = NULL,
                 bottomrule = NULL),
    "\\n\\right)\\, .\\n",
    "\\end{equation*}\\n"))
}

x <- structure(c(6, 4, 3, 1, 6, 2, 5, 3, 5, 3, 6, 0, 6, 0, 5, 5), dim = c(4L, 4L))

# 捕获输出到u
u <- capture.output(pmatrix(x))
# 可选：将多行内容合并为单个字符串
u <- paste(u, collapse = "\n")

# 合并字符串数组并写入文件
combined_content <- c("Hello", u, "world")
writeLines(combined_content, "output.txt")

补充说明 #

• 方法1更推荐，直接构造并返回字符内容，逻辑更清晰，避免额外的捕获操作。
• 两种方法都能让u成为可操作的字符类型，满足你合并字符串、写入文件的需求。

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