用星号代替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）。