R中如何将dataframe转为Stack Overflow可用表格并复制到剪贴板

你要的功能很容易实现，既可以自己写轻量函数，也有现成包的功能可以直接用：

• 自定义函数方案：只需要依赖跨平台剪贴板包clipr，复制下面的函数运行一次，之后就可以按照你期望的table_to_clipboard(df)方式调用，生成的表格会自动对齐，和你给出的示例格式完全一致：

table_to_clipboard <- function(df) {
  # 计算每列需要的宽度，保证表格对齐
  col_widths <- mapply(
    function(col, col_name) max(nchar(c(as.character(col), col_name))),
    df, names(df)
  )

  # 拼接表头
  header_row <- paste0(
    "| ",
    paste(mapply(function(txt, w) formatC(txt, width = w), names(df), col_widths), collapse = " | "),
    " |"
  )

  # 拼接头和数据之间的分隔线
  sep_row <- paste0(
    "|",
    paste(mapply(function(w) strrep("-", w + 2), col_widths), collapse = "|"),
    "|"
  )

  # 拼接所有数据行
  data_rows <- apply(df, 1, function(row) {
    paste0(
      "| ",
      paste(mapply(function(txt, w) formatC(as.character(txt), width = w), row, col_widths), collapse = " | "),
      " |"
    )
  })

  # 整合完整表格内容写入剪贴板
  full_md_table <- paste(c(header_row, sep_row, data_rows), collapse = "\n")
  clipr::write_clip(full_md_table)
  message("已复制到剪贴板，直接粘贴即可")
}

• 现成包方案：不想自己写函数的话，直接安装datapasta包，调用dpasta(df)就会自动把传入的data.frame转换成符合Stack Overflow格式要求的Markdown表格，自动复制到剪贴板，不需要额外设置。
• 小提示：Linux系统使用剪贴板相关功能前，需要先安装系统组件xclip，Windows和macOS装完对应的R包即可直接使用，没有额外依赖。

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