如何将此示例 xml 重新格式化为所需的格式？

如何解决如何将此示例 xml 重新格式化为所需的格式？

我正在尝试将此 xml 更改为下图中显示的格式，但是到目前为止我还没有取得任何成功。下面是包含在 xml 中的示例数据，但我只关心更改 xml 的格式以匹配下面所需的输出图像。注意我使用的是包 xml2。任何帮助将不胜感激！

RTI_valores_negociables <- list(
  Transferencia_internacional_de_Valores_Negociables = c("Rechazada"),Fecha_de_liquidacion = c("2020-07-01"),Entidad_depositaria_del_exterior = c("EUROCLEAR"),Denominaci93n = c(""),Nro_de_la_cuenta_receptoraX85Xemisora_del_exterior = c(7500),Pa92s_de_la_cuenta_receptoraX85Xemisora_del_exterior = c("Rusia"),Cuenta_depositante_Nro = c(58),Nro_de_la_cuenta_comitente_de_Argentina = c(21201),Especie_transferida = c("T?tulo Privado"),Denominacion_de_la_especie = c(""),TICKER_del_VN = c("AL30"),Tipo_de_c93digo_identificatorio_del_VN = c("ISIM"),C93digo_identificatorio_del_VN = c("US040114HK91"),Moneda_de_cotizaci93n_del_VN = c("Dolar Canadiense"),Cantidad_nominal_de_VN_transferida = c( 12000),Las_cuentas_comitentes_comparten_alg94n_cond93mino = c("NO"),Denominaci93n_contraparte_del_exterior = c("PEREZ JUAN"),Cantidad_de_clientes_y_otros_sujetos_vinculados_a_la_cuenta_comitente_de_Argentina_a_la_fecha_de_la_transferencia = c(0)
)
  

IDENTIFICACI98N_DE_CLIENTES <- list(
  Tipo_Cliente88Cliente = c("Otro"),CUIT_CUIL_CDI_CIE88Cliente = c("99999999"),Tipo_de_Persona88Cliente = c("Persona humana"),Apellidos88Cliente = c("PEREZ"),Nombres88Cliente = c("JUAN"),Tipo_Documento88Cliente = c("Documento Nacional de Identidad"),N94mero_Documento88Cliente = c(911111) 
)


mylist <- list(RTI_valores_negociables,IDENTIFICACI98N_DE_CLIENTES)

YYY2 <- xml_new_document() %>% 
  xml_add_child('RTI_valores_negociables Version="1.0"') 
  
YYY2 %>% 
     xml_add_child("Transferencia_internacional_de_Valores_Negociables",mylist[[1]][[1]][[1]]) %>% 
     xml_add_sibling("Fecha_de_liquidaci93n",mylist[[1]][[2]][[1]]) %>% 
     xml_add_sibling("Entidad_depositaria_del_exterior",mylist[[1]][[3]][[1]]) %>% 
     xml_add_sibling("Denominaci93n",mylist[[1]][[4]][[1]]) %>% 
     xml_add_sibling("Nro_de_la_cuenta_receptoraX85Xemisora_del_exterior",mylist[[1]][[5]][[1]]) %>% 
     xml_add_sibling("Pa92s_de_la_cuenta_receptoraX85Xemisora_del_exterior",mylist[[1]][[6]][[1]]) %>% 
     xml_add_sibling("Cuenta_depositante_Nro",mylist[[1]][[7]][[1]]) %>% 
     xml_add_sibling("Nro_de_la_cuenta_comitente_de_Argentina",mylist[[1]][[8]][[1]]) %>% 
     xml_add_sibling("Especie_transferida",mylist[[1]][[9]][[1]]) %>% 
     xml_add_sibling("Denominacion_de_la_especie",mylist[[1]][[10]][[1]]) %>% 
     xml_add_sibling("TICKER_del_VN",mylist[[1]][[11]][[1]]) %>%
     xml_add_sibling("Tipo_de_c93digo_identificatorio_del_VN",mylist[[1]][[12]][[1]]) %>% 
     xml_add_sibling("C93digo_identificatorio_del_VN",mylist[[1]][[13]][[1]]) %>% 
     xml_add_sibling("Moneda_de_cotizaci93n_del_VN",mylist[[1]][[14]][[1]]) %>% 
     xml_add_sibling("Cantidad_nominal_de_VN_transferida",mylist[[1]][[15]][[1]]) %>% 
     xml_add_sibling("Las_cuentas_comitentes_comparten_alg94n_cond93_mino",mylist[[1]][[16]][[1]]) %>% 
     xml_add_sibling("Denominaci93n_contraparte_del_exterior",mylist[[1]][[17]][[1]]) %>% 
     xml_add_sibling("Cantidad_de_clientes_y_otros_sujetos_vinculados_a_la_cuenta_comitente_de_Argentina_a_la_fecha_de_transferencia",mylist[[1]][[18]][[1]])
   
   YYY2 %>% 
     xml_add_child("IDENTIFICACI98N_DE_CLIENTES",.where = "before") %>% 
     xml_add_child("Tipo_Cliente88Cliente",mylist[[2]][[1]][[1]]) %>%
     xml_add_sibling("CUIT_CUIL_CDI_CIE88Cliente",mylist[[2]][[2]][[1]]) %>%
     xml_add_sibling("Tipo_de_Persona88Cliente",mylist[[2]][[3]][[1]]) %>%
     xml_add_sibling("Apellidos88Cliente",mylist[[2]][[4]][[1]]) %>%
     xml_add_sibling("Nombres88Cliente",mylist[[2]][[5]][[1]]) %>%
     xml_add_sibling("Tipo_Documento88Cliente",mylist[[2]][[6]][[1]]) %>%
     xml_add_sibling("N94mero_Documento88Cliente",mylist[[2]][[7]][[1]]) 
   
   YYY2 %>% 
     xml_add_parent("Operacion")
      
cat(as.character(YYY2))

desired xml format

my xml format