R語言XML格式數(shù)據(jù)導(dǎo)入與處理

數(shù)據(jù)解析

XML是一種可擴(kuò)展標(biāo)記語言，它被設(shè)計(jì)用來傳輸和存儲數(shù)據(jù)。XML是各種應(yīng)用程序之間進(jìn)行數(shù)據(jù)傳輸?shù)淖畛Ｓ玫墓ぞ?。它與Access，Oracle和SQL Server等數(shù)據(jù)庫不同，數(shù)據(jù)庫提供了更強(qiáng)有力的數(shù)據(jù)存儲和分析能力，例如：數(shù)據(jù)索引、排序、查找、相關(guān)一致性等，它僅僅是存儲數(shù)據(jù)。事實(shí)上它與其他數(shù)據(jù)表現(xiàn)形式最大的不同是：它極其簡單，這是一個看上去有點(diǎn)瑣細(xì)的優(yōu)點(diǎn)，但正是這點(diǎn)使它與眾不同。
針對XML格式數(shù)據(jù)，R語言XML包可以對其進(jìn)行數(shù)據(jù)導(dǎo)入與處理，詳見下面的案例說明。

案例1

直接輸入一段標(biāo)記語言文本，使用XML包解析。

library(XML)

tt =
  '<x>
<a>text</a>
<b foo="1"/>
<c bar="me">
<d>a phrase</d>
</c>
</x>'
doc = xmlParse(tt)
xmlToList(doc)
# use an R-level node representation
doc = xmlTreeParse(tt)
xmlToList(doc)
案例2
導(dǎo)入已有的xml格式數(shù)據(jù)并處理，本案例用到的是手機(jī)通訊錄xml數(shù)據(jù)，按如下步驟操作:

#讀取xml格式數(shù)據(jù)并解析
xmlfile=xmlParse(file.choose(),encoding="UTF-8")
class(xmlfile)

#形成根目錄列表數(shù)據(jù)
xmltop = xmlRoot(xmlfile)
class(xmltop) #查看類
xmlName(xmltop) #查看根目錄名
xmlSize(xmltop) #查看根目錄總數(shù)
xmlName(xmltop[[1]]) #查看子目錄名

# 查看第一個子目錄
xmltop[[1]]
# 查看第二個子目錄
xmltop[[2]]

#子目錄節(jié)點(diǎn)
xmlSize(xmltop[[1]]) #子目錄節(jié)點(diǎn)數(shù)
xmlSApply(xmltop[[1]], xmlName) #子目錄節(jié)點(diǎn)名
xmlSApply(xmltop[[1]], xmlAttrs) #子目錄節(jié)點(diǎn)屬性
xmlSApply(xmltop[[1]], xmlSize) #子目錄節(jié)點(diǎn)大小

#查看第一個子目錄的第一個節(jié)點(diǎn)
xmltop[[1]][[1]]
#查看第一個子目錄的第二個節(jié)點(diǎn)
xmltop[[1]][[2]]

#第二個子目錄
xmltop[[2]][[1]]
xmltop[[2]][[2]]

xmltop[[1]][[3]][[1]][[1]] #查看聯(lián)系人電話
xmltop[['Contact']][['PhoneList']][[1]][[1]]  #第二種方式
getNodeSet(xmltop, "http://Contact/PhoneList")[[1]][[1]][[1]] #第三種方式

xmltop[[1]][[3]][[1]][[1]] = 13717232323 #更改聯(lián)系人電話
xmltop[[1]][[1]][[1]]= "zhangsan "#更改聯(lián)系人姓名

#保存
saveXML(xmltop, file="out.xml",encoding="UTF-8")
xml格式轉(zhuǎn)dataframe

按如下步驟操作:

xmlToDataFrame(xmlfile) #第一種方式，直接用xmlToDataFrame()函數(shù)

library("plyr") #第二種方式，數(shù)據(jù)格式處理專用包plyr

MyContact=ldply(xmlToList(file.choose()), data.frame) #先轉(zhuǎn)成list,再轉(zhuǎn)dataframe
View(MyContact)

# 查看聯(lián)系方式
MyContact[,c("Name" ,"PhoneList.Phone.text")]

# 聯(lián)系方式保存
write.csv(MyContact, "MyContact.csv", row.names=FALSE)