R语言中如何将dataframe转换为指定格式字符串

按照你要求的输出格式 "input;output;aux#aa;bb;cc;#a1;b1;c1#a2;b2;c2"，可通过以下两种方式在本地R环境直接运行实现，无需依赖外部跳转资源。

首先构造和你描述结构完全一致的测试dataframe，方便验证代码正确性：

df <- data.frame(
  input = c("aa", "a1", "a2"),
  output = c("bb", "b1", "b2"),
  aux = c("cc", "c1", "c2")
)

Base R 无依赖实现 #

完全基于R自带内置函数，不需要安装任何额外包，核心逻辑为拆分表头片段、逐行拼接行内容、按规则用指定分隔符组合：

# 1. 拼接表头字符串，列间用;分隔
header_part <- paste(names(df), collapse = ";")

# 2. 逐行拼接每行的列值，同行列值用;分隔
row_parts <- apply(df, 1, function(row) paste(row, collapse = ";"))

# 3. 按格式规则组合所有片段：表头#第一行内容带末尾分号#后续行用#连接
result <- paste0(
  header_part,
  "#",
  row_parts[1],
  ";",
  "#",
  paste(row_parts[-1], collapse = "#")
)

运行后输出结果和目标格式完全匹配：

> result
[1] "input;output;aux#aa;bb;cc;#a1;b1;c1#a2;b2;c2"

Tidyverse 生态实现 #

如果日常使用dplyr、tidyr系列工具链，可通过管道语法简化拼接流程：

# 未安装tidyverse可先通过 install.packages("tidyverse") 完成安装
library(tidyverse)

result <- df %>%
  # 统一将所有列转为字符型，避免数值列自动保留小数位导致格式错位
  mutate(across(everything(), as.character)) %>%
  # 逐行拼接所有列值，列间用;分隔
  unite(row_str, everything(), sep = ";") %>%
  pull(row_str) %>%
  # 按格式要求拼接所有行片段
  {paste0(.[1], ";#", paste(.[-1], collapse = "#"))} %>%
  # 拼接表头部分完成最终组合
  {paste0(paste(names(df), collapse = ";"), "#", .)}

注意事项 #

• 上述代码可自动适配任意行数的dataframe，只要「第一行数据块末尾带分号、不同块之间用#分隔」的规则不变，不需要手动调整拼接位置。
• 如果后续格式规则调整为所有行块末尾都带分号，仅需在拼接行片段时给每个行字符串后补充分号即可，修改逻辑为paste(paste0(row_parts, ";"), collapse = "#")。

内容的提问来源于stack exchange，提问作者Nelson FIGUEROA SERRANO