第 7 章 Appendix

7.1 XML

library(xml2)
xmldata <- xml2::read_xml("https://www.dgbas.gov.tw/public/data/open/Cen/Mp05012A107.xml")
# 使用chrome檢視xml tree
browseURL("https://www.dgbas.gov.tw/public/data/open/Cen/Mp05012A107.xml")

classes:

  • xml_node: 「一個node」.
  • xml_nodeset: 「一個set of nodes」.
  • xml_document: 「
class(xmldata)
library(dplyr)
xmldata %>% xml_name()
xml_path(xmldata)
xml_children(xmldata) %>% as_list() %>% View
xmlList_0 <- xmldata %>% xml2::as_list()
as.data.frame(xmlList_0)
jsonLabor <- jsonlite::fromJSON("https://quality.data.gov.tw/dq_download_json.php?nid=31070&md5_url=14f0003f7e74ba0a55ef286eb5a33635")

\[W_i=c+E_{i}'\beta_E+F_{i}'\beta_F+J_i'\beta_J+\epsilon_i\]