# 輸出資料 ### 透過 write.table 輸出資料 以下利用 write.table 輸出 CSV 檔案。 ~~~ data <- iris # iris 是 R 內建的資料。 write.table(data, file = "test.CSV", sep = ",") ~~~ ### 輸出 XML 檔案 跟輸入 XML 檔案一樣，是使用 XML package 來實做，但會需要利用到建立 tag 的函數。 ~~~ > data <- iris > xml <- xmlTree() > xml$addTag("document", close = FALSE) # 建立一個名為 document 的 tag。 > for (i in 1:nrow(data)) { + xml$addTag("row", close = FALSE) # 建立一個名為 row 的 tag。 + for (j in names(data)) { + xml$addTag(j, data[i, j]) # j 為欄位名稱，所以是依序建立不同欄為名稱的 tag， 並賦予值與結束此 tag。 + } + xml$closeTag() # 建立 tag 時，如果有下參數 close = FALSE 的話，記得要在結束 tag 地方下 closeTag()。 + } > xml$closeTag() > saveXML(xml, "test.xml") [1] "test.xml" ~~~ XML 檔案輸出結果。 ~~~ <?xml version="1.0" encoding="UTF-8"?> <document> <row> <Sepal.Length>5.1</Sepal.Length> <Sepal.Width>3.5</Sepal.Width> <Petal.Length>1.4</Petal.Length> <Petal.Width>0.2</Petal.Width> <Species>setosa</Species> </row> . . . . </document> ~~~ ### 輸出 RDA 檔案 利用 save 函數輸出 RDA 檔案。 ~~~ > data <- iris > save(data, file="test.rda") ~~~