将数据附加到csv文件＆amp;在Le

Question

我在csv文件中附加数据并分配列名但列名未正确显示。我在下面给出了代码和输出。

    setwd("C:Users/Data")
    write.csv(c(), "Summary.csv")

    L <- 10:15
    T <- c(0.1, 0.2, 0.3, 0.4, 0.5, 0.6) 
    df1 <- data.frame(L, T)
    names(df1) <- c("L", "T")

    for(i in 1:dim(df1)[1]){

        temp_d1 <- df1[i, ]

             if (i == 1){
  write.table(temp_d1, file="Summary.csv", append=TRUE, col.names = TRUE,sep = ',')
  }else{

    write.table(temp_d1, file="Summary.csv", append=TRUE, col.names = FALSE,sep = ',')

             }

}

以下是Summary.csv文件的输出。我不明白为什么第一个附加列1：6出现在csv中。理想情况下，标签“L”应该是列10:15而“T”应该是0.1：0.6，但它并不像我预期的那样。请建议正确贴标签。

L   T   
1   10  0.1
2   11  0.2
3   12  0.3
4   13  0.4
5   14  0.5
6   15  0.6

Answer 1

默认情况下，write.table会为每行添加行名称或数字。要停止此操作，请在row.names = FALSE语句中添加参数write.table。