1

我正在做一些预处理，在导入 csv 后read.csv，我从 csv 中删除了两列，我需要将处理后的数据导出回新的 csv。原始 csv 在文件的开头有 2 个空白行，我需要将其添加回新的 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)

谢谢您的帮助！

4

2 回答 2

1

这是一个工作示例，您必须先将缺失值的 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-05T11:56:36.513 回答
1

另一种方法是分别阅读这两行并在Clean_Bla完成后将其附加到您的身上。这样，您不必实际指定前 2 行是什么。您只需直接从原始数据集中获取它：

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-05T12:23:10.047 回答