如何将.csv或R中的dataframe转换为指定格式的逗号分隔.txt文件？

我来帮你搞定这个问题！你已经解决了引号的困扰，但现在卡在了短行末尾多余的逗号上——这是因为write.table会严格按照Dataframe的列数生成每行的分隔符，就算单元格是空的，也会保留, 的占位，导致出现不必要的尾部分隔符。

下面给你两种简单的R内解决方案，完全不用去学Emacs：

方法一：逐行过滤非空元素后写入 #

这个方法最直接，先对每行数据做处理，只保留非空单元格，再用, 连接，从根源避免多余逗号：

# 假设你的数据集是df
formatted_rows <- apply(df, 1, function(row) {
  # 过滤掉空字符串的元素
  valid_cells <- row[row != ""]
  # 用", "连接有效单元格
  paste(valid_cells, collapse = ", ")
})

# 将处理好的行写入文件，指定换行符为\r\n
writeLines(formatted_rows, "clean_output.txt", sep = "\r\n")

方法二：先写入再清理尾部多余逗号 #

如果你的数据集特别大，apply效率稍低的话，也可以先按原方式写入临时文件，再读取回来清理每行的尾部多余逗号：

# 先按原方式写入临时文件
write.table(df, "temp.txt", sep = ", ", na = "", eol = "\r\n", 
            row.names = FALSE, col.names = FALSE, append = FALSE, quote = FALSE)

# 读取文件内容并清理每行末尾的", "
clean_lines <- readLines("temp.txt")
clean_lines <- gsub(", $", "", clean_lines)  # 替换每行末尾的", "为空

# 写入最终文件
writeLines(clean_lines, "final_output.txt", sep = "\r\n")

# 可按需删除临时文件
file.remove("temp.txt")

这两种方法都能完美生成你需要的cell1, cell2, cell3格式，解决短行空单元格带来的异常问题。

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