輸出資料
最后更新于：2022-04-01 02:44:09
# 輸出資料
### 透過 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")
~~~