使用R将csv转换为标准化的xml格式

install.packages("XML")
install.packages("dplyr")
library(XML)
library(dplyr)

data <- read.csv("data.csv")

xml_data <- newXMLDoc()

root_node <- newXMLNode("root", doc = xml_data)

for (i in 1:nrow(data)) {
  row_node <- newXMLNode("row", parent = root_node)
  
  for (j in 1:ncol(data)) {
    column_name <- colnames(data)[j]
    column_value <- data[i, j]
    
    column_node <- newXMLNode(column_name, parent = row_node)
    xmlValue(column_node) <- column_value
  }
}

saveXML(xml_data, file = "output.xml")