R中的表子標題

Question

在R中我試圖根據其中一個變量輸出一個帶有子標題的數據框。我們需要的是用副標題所示（使用虹膜數據）CSV文本：

# setosa 
5.1, 3.5, 1.4, 0.2 
4.9, 3.0, 1.4, 0.2 
... 
# versicolor 
7.0, 3.2, 4.7, 1.4 
6.4, 3.2, 4.5, 1.5 
... 
# virginica 
6.3, 3.3, 6.0, 2.5 
5.8, 2.7, 5.1, 1.9 
... 

有哪些處理這樣的任務的本機命令的？有包裝嗎？

Answer 1

您可以使用cat和write.table與append = TRUE的組合來創建輸出。請注意，我們將在開始時設置append = FALSE。

mylist = split(iris, iris$Species) 
lapply(1:length(mylist), function(i){ 
    if (i == 1){ 
     append = FALSE 
    }else{ 
     append = TRUE 
    } 
    #Write the name of the Species 
    cat(paste0("#",names(mylist)[i],"\n"), file = "~/test.csv", append = append) 
    #Write the data corresponding to the above Species 
    write.table(mylist[[i]], file = "~/test.csv", sep = ",", append = TRUE) 
})