R DataFrame打印：列间单字符分隔且保留可变间距对齐的实现方案

在之前的提问中，我获取了两列对齐的R DataFrame输出，对应结果如下图所示：

该回答解决了我最初的需求，但我后续要使用的目标程序要求导入的文本文件满足两列对齐、且列间仅由单个字符（如制表符）分隔的规则。此前的解决方案会根据每行第一列字符串的长度，在两列之间生成数量不等的大量空格，而直接插入单字符分隔符又会导致列对齐失效。
请问是否有方法可以将列间的大量空格替换为单个带可变间距的字符，既实现单字符分隔，又能保证第二列对齐？
若需参考目标输出格式，可下载对应示例txt文件：该文件不存在第一列名称长度不一的问题，两列由单个空格字符分隔且对齐正常，将该分隔符复制粘贴到我的输出文件列间后，目标程序可成功解析txt文件，实现单字符分隔与对齐效果共存。
补充示例如下，第一张图中高亮的单个分隔字符对应的格式可正常解析，第二张图的格式则无法解析：

要实现单字符分隔+列对齐的效果，核心是将第一列统一填充到固定长度（等于第一列最长值的字符数），补位的空格归属第一列内容，再在两列之间插入单个分隔符，这样既满足分隔符唯一的要求，也能保证第二列全局对齐。

基础R实现 #

# 假设你的数据框名为df，第一列为需要对齐的文本列，第二列为数值列
max_col1_len <- max(nchar(as.character(df[[1]])))
# 第一列左对齐，末尾补空格至最大长度
df[[1]] <- sprintf(paste0("%-", max_col1_len, "s"), df[[1]])
# 输出文件，分隔符可指定为单个空格或制表符\t
write.table(df, "aligned_output.txt", sep = " ", row.names = F, col.names = F, quote = F)

tidyverse实现 #

library(dplyr)
library(stringr)
library(readr)

max_col1_len <- max(str_length(df[[1]]))
df <- df %>%
  mutate(across(1, ~str_pad(.x, width = max_col1_len, side = "right", pad = " ")))
# 输出文件
write_delim(df, "aligned_output.txt", delim = " ", col_names = F, quote = "none")

补充说明 #

• 补位空格全部归属第一列内容，程序按单分隔符切割后，仅需对第一列做去首尾空格处理即可得到原始内容，不会丢失信息
• 若需要使用制表符作为分隔符，仅需将代码中的sep = " "替换为sep = "\t"即可，分隔符始终仅出现1次
• 输出后可直接验证：所有行的分隔符位置完全对齐，第二列起始位置统一，和多空格分隔的对齐效果完全一致

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