如何将前导空白行添加到CSV？

我正在做一些预处理，其中导入csv与read.csv后，我从csv中删除两列，我需要将处理后的数据导出到新的csv中。原始的csv在文件开始处有两个空白行，我需要将其添加回新的csv。如何将前导空白行添加到CSV？

予读取CSV，如下，通过跳过前三行（包括标头）：

Bla <- read.csv("Bla.csv", skip = 3, header = TRUE)

采取的处理步骤的护理后，我写一个csv如下：

write.csv(Bla, file = "Clean_Bla.csv", row.names = FALSE)

我希望新csv的前三行留空，就像原来的cvs一样。我尝试了cat，但这似乎不起作用。我想这是因为cat所做的是在csv的末尾添加空白行。

cat("\n", file='Clean_Bla.csv', append=TRUE)

感谢您的帮助！

来源

2017-05-05 Filippoflow

在这里工作的例子，你必须把NA为之前缺失值到数据帧，那么你不得不说成R来写“”为NA

#data your dataframe before writing 
    data<-data.frame(Type=c("A","B","D","D","E","E"), 
       Ratio=c(5,6,3,3,4,4), 
       Number=c(65,74,43,34,23,12)) 
a<-rep(NA,dim(data)[2]) 
a<-rbind(a,a,a) 
write.table(a, file = "Clean_Bla.csv", row.names = FALSE,na="",col.names=FALSE,sep=",") 
write.table(data, file = "Clean_Bla.csv", row.names = FALSE,na="",append=TRUE,sep=",")

来源

2017-05-05 11:56:36

对不起，现在是OK –

它完美地工作。这是一个很好的解决方案。感谢费德里科！ – Filippoflow

另一种方法是阅读2完成后单独将其连接到您的Clean_Bla。这样，您不必真正指定前两行是什么。你只要把它直接从原始数据集：

Bla_first3 = read.csv("Bla.csv", nrow = 2, header = TRUE) 
Bla = read.csv("Bla.csv", skip = 3, header = TRUE) 

# After cleaning 
CleanBla = rbind(Bla_first3, Bla) 

write.csv(CleanBla, file = "Clean_Bla.csv", row.names = FALSE)

注意，这里假设你的原始数据集具有相同的列最终数据集

来源

2017-05-05 12:23:10 useR

如何将前导空白行添加到CSV？

回答

相关问题