如何实现类似dput的功能，将R环境中的数据框直接输出为可粘贴的Markdown表格格式

方案1：使用现有包函数（推荐） #

你可以直接用knitr包的kable()函数，默认输出就是标准Markdown表格，无需自己造轮子，输出内容可直接复制到.md文件使用，完全不需要依赖Rmd环境：

# 未装包先执行安装
# install.packages("knitr")
library(knitr)

# 控制台直接输出可复制的Markdown表格
kable(df, format = "markdown")

如果需要直接写入.md文件，不用手动复制，可以用：

capture.output(kable(df, format = "markdown"), file = "你要保存的文件路径.md")

方案2：自定义轻量dmd()函数（无额外依赖） #

如果你不想引入第三方包，可以直接用下面的原生R自定义函数，开箱即用：

dmd <- function(df, align = "left") {
  # 计算每列最大宽度（匹配列名和内容的最长长度）
  col_widths <- mapply(function(col, col_name) {
    max(nchar(as.character(c(col_name, col))))
  }, df, names(df))
  
  # 格式化表头
  header <- paste(mapply(function(name, w) sprintf(paste0("%-", w, "s"), name), 
                  names(df), col_widths), collapse = " | ")
  # 格式化分隔线
  sep <- paste(strrep("-", col_widths), collapse = " | ")
  # 格式化内容行
  content <- apply(df, 1, function(row) {
    paste(mapply(function(val, w) sprintf(paste0("%-", w, "s"), val), 
            row, col_widths), collapse = " | ")
  })
  
  # 输出完整表格
  cat(paste(c(header, sep, content), collapse = "\n"), "\n")
}

使用效果： #

dmd(df)

控制台直接输出标准Markdown表格，复制即可使用：

year_yyyy | 01 | 02 | 03
----------|----|----|----
2005      | 2  | 2  | 2 
2006      | 2  | 2  | 2 
2007      | 2  | 2  | 2 
2008      | 2  | 2  | 2 
2009      | 2  | 2  | 3 

扩展说明 #

如果需要调整对齐方式，kable()可直接指定align参数，比如align = c('l','c','c','c')就是第一列左对齐，剩余三列居中；自定义函数也可以修改分隔线规则，比如居中对齐的分隔线改成|:---:|格式即可。

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