用星号 (*) 替换 NA

Question

我有一个从 .csv 文件中读取的数据集。经过一些编辑工作后，我现在需要将其编写为 .txt 文件，其中 (i) 删除所有引号 (ii) 将整个文件中的每个 NA 替换为星号 *，以及 (iii) 首先行（变量名）已排除。

到目前为止，以下脚本删除了引号，我只是想知道如何添加或完成 (ii) 和 (iii)。

write.table(ped5, "ped5.txt" ,row.names=FALSE)
ped5 <- read.table("ped5.txt", header=TRUE)
write.table(ped5, "ped7.txt", row.names=FALSE, quote=FALSE)

任何帮助将不胜感激！

Answer 1

对于 (ii) 使用 na = "*" 和 (iii) col.names=FALSE。
所以：

write.table(ped5,"ped7.txt",row.names=FALSE,quote=FALSE, na="*", col.names=FALSE)

一切尽在help page to write.table (?write.table)。