使用R的write.table导出TXT时出现多余换行的解决咨询

一、在R中直接处理（无需回SAS） #

读取数据后，针对所有字符型列清理换行/回车这类隐藏控制字符：

library(haven)

# 读取SAS数据集
data <- as.data.frame(read_sas("data.sas7bdat"))

# 遍历列，清除字符列里的换行、回车符
data[] <- lapply(data, function(x) {
  if(is.character(x)) {
    gsub("[\r\n]", "", x)  # 精准替换回车(\r)、换行(\n)为空
    # 若要移除所有控制字符，改用：gsub("[[:cntrl:]]", "", x)
  } else {
    x
  }
})

# 重新导出txt
write.table(data, "data.txt", header=FALSE, sep="\t", quote=FALSE, row.names=FALSE, col.names=FALSE)

二、在SAS中预处理原始数据 #

如果能操作原始SAS数据集，提前清理字符变量里的隐藏换行：

data cleaned_data;
  set original_data;
  /* 遍历所有字符型变量 */
  array char_vars _character_;
  do over char_vars;
    /* 移除换行、回车等空白控制符 */
    char_vars = compress(char_vars, , 'kw');
    /* 也可以精准替换：char_vars = translate(char_vars, '', '0A'x '0D'x); */
  end;
run;

/* 导出清理后的SAS数据集，再导入R使用 */
proc export data=cleaned_data outfile="cleaned_data.sas7bdat" dbms=sas7bdat replace;
run;

三、Notepad++中一键修正 #

不想改代码的话，直接在Notepad++里批量清理：

• 打开导出的data.txt，点击工具栏的「¶」图标（显示所有字符），确认隐藏换行的类型（是\r还是\n）
• 按Ctrl+H打开替换窗口：
  • 查找目标：输入[\r\n]+（匹配所有连续换行控制符）
  • 替换为：留空
  • 点击「全部替换」
• 若只是换行格式不兼容，可点击「编辑」→「EOL转换」→「Windows (CR LF)」统一换行格式

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