Necesario crear una función

fn.media.listas <- function(...) {
  l <- list(...) # Lista porque son de varios longitudes
 # l es una variable y list palabra reservada que significa listas
  
  print("Las medias (promedios) de cada conjunto de datos (listas):")
  print(l)  # Aqui se imprimen las listas todas al mismo tiempo
  print("Son ... :")
  for (i in 1:length(l)) {
     media <- mean(l[[i]]) # La media de cada lista
     print(media)   # Utilizar cat o print() dentro del for
  }
  
}

Importar datos en CSV

# Importar datos CSV
# ? read.csv
# install.packages("readr")
# library(readr)
misdatos <- read.csv(file = "datos.csv")
misdatos <- read.csv("datos.csv")
misdatos
##    Nombre Edad Genero
## 1  Carlos   23      M
## 2 Alberto   25      M
## 3    Juan   21      M
## 4   Maria   27      F
## 5  Carmen   23      F
## 6    Alba   22      F
class(misdatos)
## [1] "data.frame"
fn.media.listas(misdatos$Edad)
## [1] "Las medias (promedios) de cada conjunto de datos (listas):"
## [[1]]
## [1] 23 25 21 27 23 22
## 
## [1] "Son ... :"
## [1] 23.5

Importando archivo excel

#install.packages("xlsx")
# Será necesario instalar el run de java
# https://java.com/en/download/manual.jsp
#install.packages("rJava")

library(xlsx)
## Warning: package 'xlsx' was built under R version 3.4.4
library(rJava)
## Warning: package 'rJava' was built under R version 3.4.4
#setwd()
#getwd()
#dir()


# Importando datos xlsx
misdatos <- read.xlsx("datos.xlsx", 1) # La hoja 1
misdatos
##    Nombre Edad Genero
## 1  Carlos   23      M
## 2 Alberto   25      M
## 3    Juan   21      M
## 4   Maria   27      F
## 5  Carmen   23      F
## 6    Alba   22      F
# Otracomando en R para importar datos
library(readxl)
## Warning: package 'readxl' was built under R version 3.4.2
misdatos <- read_excel("~/CURSO TITULACION/mis ejercicios/datos.xlsx")
misdatos
## # A tibble: 6 x 3
##    Nombre  Edad Genero
##     <chr> <dbl>  <chr>
## 1  Carlos    23      M
## 2 Alberto    25      M
## 3    Juan    21      M
## 4   Maria    27      F
## 5  Carmen    23      F
## 6    Alba    22      F

Importando datos XML

# install.packages("XML")
library(XML)
## Warning: package 'XML' was built under R version 3.4.4
datos <- xmlParse("datos.xml")
datos
## <?xml version="1.0" encoding="UTF-8"?>
## <root>
##   <row>
##     <Nombre>Carlos</Nombre>
##     <Edad>23</Edad>
##     <Genero>M</Genero>
##   </row>
##   <row>
##     <Nombre>Alberto</Nombre>
##     <Edad>25</Edad>
##     <Genero>M</Genero>
##   </row>
##   <row>
##     <Nombre>Juan</Nombre>
##     <Edad>21</Edad>
##     <Genero>M</Genero>
##   </row>
##   <row>
##     <Nombre>Maria</Nombre>
##     <Edad>27</Edad>
##     <Genero>F</Genero>
##   </row>
##   <row>
##     <Nombre>Carmen</Nombre>
##     <Edad>23</Edad>
##     <Genero>F</Genero>
##   </row>
##   <row>
##     <Nombre>Alba</Nombre>
##     <Edad>22</Edad>
##     <Genero>F</Genero>
##   </row>
## </root>
## 
datos.root <- xmlRoot(datos)
datos.root
## <root>
##   <row>
##     <Nombre>Carlos</Nombre>
##     <Edad>23</Edad>
##     <Genero>M</Genero>
##   </row>
##   <row>
##     <Nombre>Alberto</Nombre>
##     <Edad>25</Edad>
##     <Genero>M</Genero>
##   </row>
##   <row>
##     <Nombre>Juan</Nombre>
##     <Edad>21</Edad>
##     <Genero>M</Genero>
##   </row>
##   <row>
##     <Nombre>Maria</Nombre>
##     <Edad>27</Edad>
##     <Genero>F</Genero>
##   </row>
##   <row>
##     <Nombre>Carmen</Nombre>
##     <Edad>23</Edad>
##     <Genero>F</Genero>
##   </row>
##   <row>
##     <Nombre>Alba</Nombre>
##     <Edad>22</Edad>
##     <Genero>F</Genero>
##   </row>
## </root>
datos.size <- xmlSize(datos.root)
datos.size
## [1] 6
datos.root[1]
## $row
## <row>
##   <Nombre>Carlos</Nombre>
##   <Edad>23</Edad>
##   <Genero>M</Genero>
## </row> 
## 
## attr(,"class")
## [1] "XMLInternalNodeList" "XMLNodeList"
datos.root[2]
## $row
## <row>
##   <Nombre>Alberto</Nombre>
##   <Edad>25</Edad>
##   <Genero>M</Genero>
## </row> 
## 
## attr(,"class")
## [1] "XMLInternalNodeList" "XMLNodeList"
# Otro archivo a importar
# Una factura
datos <- xmlParse("factura.xml")
datos
## <?xml version="1.0" encoding="UTF-8"?>
## <cfdi:Comprobante xmlns:cfdi="http://www.sat.gob.mx/cfd/3" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.sat.gob.mx/cfd/3 http://www.sat.gob.mx/sitio_internet/cfd/3/cfdv33.xsd" Version="3.3" Serie="AC-2018" Folio="68" Fecha="2018-05-30T13:02:23" FormaPago="02" SubTotal="17275.92" Moneda="MXN" Total="20040.07" TipoDeComprobante="I" MetodoPago="PUE" LugarExpedicion="03730" NoCertificado="00001000000408175782" Sello="EewzTXDxH+TK8l9+uyVQBhWbsT5njPPIsBQT0Pivg2kJC+ZsYG881GaLoOSWuFOHURgzWQgsdyoqsmP1/94hPO32xJPp0ZSP9dio945dUbFagaDm3+qsyHKZGO21NBGDhRLdGaxNGp4p3/6vQrXWHVwc068kjZCG8U5lDkv7lVkQ+lWxIrH5aVaSNcUcQNxTI734/XSiLXJOhfs8+PPTbEpy7bQx9x7Bc7UKQIcwPo8ql9mkghuFbpHrP2OsMlT32xtQAgiasVUzxPT1r01izvkVmbeFD1Ep9uH1znZDlmIztNDRwT0fwsv/quO/y5X3Lfx+SlbtbWkFEAS45rVnsA==" Certificado="MIIGIzCCBAugAwIBAgIUMDAwMDEwMDAwMDA0MDgxNzU3ODIwDQYJKoZIhvcNAQELBQAwggGyMTgwNgYDVQQDDC9BLkMuIGRlbCBTZXJ2aWNpbyBkZSBBZG1pbmlzdHJhY2nDs24gVHJpYnV0YXJpYTEvMC0GA1UECgwmU2VydmljaW8gZGUgQWRtaW5pc3RyYWNpw7NuIFRyaWJ1dGFyaWExODA2BgNVBAsML0FkbWluaXN0cmFjacOzbiBkZSBTZWd1cmlkYWQgZGUgbGEgSW5mb3JtYWNpw7NuMR8wHQYJKoZIhvcNAQkBFhBhY29kc0BzYXQuZ29iLm14MSYwJAYDVQQJDB1Bdi4gSGlkYWxnbyA3NywgQ29sLiBHdWVycmVybzEOMAwGA1UEEQwFMDYzMDAxCzAJBgNVBAYTAk1YMRkwFwYDVQQIDBBEaXN0cml0byBGZWRlcmFsMRQwEgYDVQQHDAtDdWF1aHTDqW1vYzEVMBMGA1UELRMMU0FUOTcwNzAxTk4zMV0wWwYJKoZIhvcNAQkCDE5SZXNwb25zYWJsZTogQWRtaW5pc3RyYWNpw7NuIENlbnRyYWwgZGUgU2VydmljaW9zIFRyaWJ1dGFyaW9zIGFsIENvbnRyaWJ1eWVudGUwHhcNMTcxMTE3MDAxOTE2WhcNMjExMTE3MDAxOTE2WjCBwzEoMCYGA1UEAxQfTUEgVFJJTklEQUQgREVOSVNFIEJB0UFMRVMgTEVPTjEoMCYGA1UEKRQfTUEgVFJJTklEQUQgREVOSVNFIEJB0UFMRVMgTEVPTjEoMCYGA1UEChQfTUEgVFJJTklEQUQgREVOSVNFIEJB0UFMRVMgTEVPTjEWMBQGA1UELRMNQkFMVDgwMDYwMVA5QTEbMBkGA1UEBRMSQkFMVDgwMDYwMU1HVFhOUjIxMQ4wDAYDVQQLEwVWVUNFTTCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAIGdcxRKFFwAExQCLtunn6X4UwbxbadvYZ0JiREN9ftdMHQ+Q0Cyhla4ZPlDIjqyYy/1TvN9B+DfJJDPMzgi2ue8SKakQaEbM1Adts+/5Np5ggVQwe1tlux+vk9c572/iHfd/hfjezaxse1zdmglnEoT4HLEQelyB+nVB6aovMP23I3vU95mGEoOHOIWXzb38icjUWsVHlg4ny71WFPIQRLF8+9N3oVs+KkuvORhF789C5m6qoHfEtoZSLoxB49SFU4sEzOuXmQrYoRtWe1dxw2aafd0RER65yPB0zOXjtzMb4S+FaYiqepnHwPOx+Z/pLSvWsPSDhg+niQCQO+5h00CAwEAAaMdMBswDAYDVR0TAQH/BAIwADALBgNVHQ8EBAMCBsAwDQYJKoZIhvcNAQELBQADggIBAEAJFT8K3uoQ5alNR7jNF60Ya+FUVjHsmUrHWpTxOTu21hLHMw8+1pwakIysVlvmmwXyIZrl++yr2rujjja0XMyiTU5lDF35EodvWEt5jYltlOhFrrjlch/WXoNCeR07PWAJyjxAjG7Bt01Dtc32AFP6B4d3/TfIWNlIBnKhgXOTBj4bYEJXzKyTCItC5FV8d49ev77nqSU/OWt8GIemgqj5oFcLh0j2s9ma9zKgnntvumLvEP3mfil1D9EDHMGRUbvoW9Hf3VfPAgDzCwxxWO1kUl+ALCIDE9KPIy0z763h6Bsspkmcglo9mn0C3Wq0nkcHirLnc02eBMj6FeUQMFf0OJ2MQp7S5ZjnX0TbIw8MVUQ16ckDFdeJeAHav4lTIH091MbQ4PMbfrL2IYhBbsVBTWjr61TLo+vLl48lRUMg+i+F53D0GaQXC1AXWzBdAClv99fuqYSl1zOk7tnoT3JVN4rmHPHFLFL7luA3auJOIkFeVXQIOam6TPG0aHswe9/xWs24EDhtF3Ti2C2qfhUK1iyP9jBdhZgXniZ/e+e9vucvc+4xgJFk8UaP7PuV7JhVhFNMiCZJnZS/kUS48ltuBy8YkRfHv9/bRvoYcLUAFIDNt3pbbbIMLWcL8vGK9RXwbX/04vO3YJf5vX35uoxMqJtsNO8CON9yBgIvRma3">
##   <cfdi:Emisor Rfc="BALT800601P9A" Nombre="Ma. Trinidad Denise Bañales León" RegimenFiscal="612"/>
##   <cfdi:Receptor Rfc="TNM140723GFA" Nombre="TECNOLOGICO NACIONAL DE MEXICO / INSTITUTO TECNOLÃ<U+0093>GICO DE DURANGO" UsoCFDI="P01"/>
##   <cfdi:Conceptos>
##     <cfdi:Concepto ClaveProdServ="41111924" NoIdentificacion="HL_PK25" Cantidad="12.00" ClaveUnidad="XKI" Unidad="Kit" Descripcion="Módulo Detector De Dióxido De Carbono (CO2) Sensor MG811&#9;&#9;&#9;&#9;&#13;&#10;Módulo Detector De Partículas De Ozono (Sensor O3) MQ-131&#9;&#9;&#9;&#9;&#13;&#10;Módulo Detector De Monóxido de Carbono (Sensor Co) MQ7&#9;&#9;&#9;&#9;&#13;&#10;Módulo MQ135 Sensor de Calidad del Aire NH3 NOX Benceno CO2&#9;&#9;&#9;&#9;&#13;&#10;Sensor de Temperatura y Humedad Digital DHT11" ValorUnitario="1439.660000" Importe="17275.920000">
##       <cfdi:Impuestos>
##         <cfdi:Traslados>
##           <cfdi:Traslado Base="17275.920000" Impuesto="002" TipoFactor="Tasa" TasaOCuota="0.160000" Importe="2764.147200"/>
##         </cfdi:Traslados>
##       </cfdi:Impuestos>
##     </cfdi:Concepto>
##   </cfdi:Conceptos>
##   <cfdi:Impuestos TotalImpuestosTrasladados="2764.15">
##     <cfdi:Traslados>
##       <cfdi:Traslado Impuesto="002" TipoFactor="Tasa" TasaOCuota="0.160000" Importe="2764.15"/>
##     </cfdi:Traslados>
##   </cfdi:Impuestos>
##   <cfdi:Complemento>
##     <tfd:TimbreFiscalDigital xmlns:tfd="http://www.sat.gob.mx/TimbreFiscalDigital" xsi:schemaLocation="http://www.sat.gob.mx/TimbreFiscalDigital http://www.sat.gob.mx/sitio_internet/cfd/TimbreFiscalDigital/TimbreFiscalDigitalv11.xsd" Version="1.1" FechaTimbrado="2018-05-31T13:09:42" SelloCFD="EewzTXDxH+TK8l9+uyVQBhWbsT5njPPIsBQT0Pivg2kJC+ZsYG881GaLoOSWuFOHURgzWQgsdyoqsmP1/94hPO32xJPp0ZSP9dio945dUbFagaDm3+qsyHKZGO21NBGDhRLdGaxNGp4p3/6vQrXWHVwc068kjZCG8U5lDkv7lVkQ+lWxIrH5aVaSNcUcQNxTI734/XSiLXJOhfs8+PPTbEpy7bQx9x7Bc7UKQIcwPo8ql9mkghuFbpHrP2OsMlT32xtQAgiasVUzxPT1r01izvkVmbeFD1Ep9uH1znZDlmIztNDRwT0fwsv/quO/y5X3Lfx+SlbtbWkFEAS45rVnsA==" UUID="2CC61975-7AE7-EBDB-73E4-46B42AE9E3AD" NoCertificadoSAT="00001000000402636111" RfcProvCertif="SAD110722MQA" SelloSAT="RFh23ALiMFkQVpcyaWxAVa/iNBBcozTmqyzOldP+Vhy75dU/XDg9fctwQRebdymXL0x2Te92D5xfcpkCr/LCuSqvI6p4CH8lNSFMIkGMauGwNWS+cUp/dxw7yUXCJvGxemH5c+PrXlLeC9grw20CIxLJJhg8ghTCyXfkuxpEsi8Vwtf+GEpXxrijgxtPHypEBrQxEPz9gwR2CGUoXTfljCd6MGybIg+C98E1+bUyCxbOpHep9mC+jljNv/7rV2qFS9ipnpK/L4ixt0pyivPAAPzJwjPNSEAWwC8U59LdsO6/qRETDS46y0NrjhXiGc0Hfc3YS805yUoMOa17y/ExXw=="/>
##   </cfdi:Complemento>
##   <cfdi:Addenda>
##     <advans:Adicionales xmlns:advans="http://www.advans.mx/adicionales" xsi:schemaLocation="http://www.advans.mx/adicionales http://www.advans.mx/recursos/adicionales_advans.xsd" Version="1.0" ReceptorDireccion="ARCOS DE BELEN NO. 79, 2do. PISO, COL. CENTRO  DEL. CUAUHTEMOC, CD. DE MÃ<U+0089>XICO  CP 06010"/>
##   </cfdi:Addenda>
## </cfdi:Comprobante>
## 
datos.root <- xmlRoot(datos)
datos.root
## <cfdi:Comprobante xmlns:cfdi="http://www.sat.gob.mx/cfd/3" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.sat.gob.mx/cfd/3 http://www.sat.gob.mx/sitio_internet/cfd/3/cfdv33.xsd" Version="3.3" Serie="AC-2018" Folio="68" Fecha="2018-05-30T13:02:23" FormaPago="02" SubTotal="17275.92" Moneda="MXN" Total="20040.07" TipoDeComprobante="I" MetodoPago="PUE" LugarExpedicion="03730" NoCertificado="00001000000408175782" Sello="EewzTXDxH+TK8l9+uyVQBhWbsT5njPPIsBQT0Pivg2kJC+ZsYG881GaLoOSWuFOHURgzWQgsdyoqsmP1/94hPO32xJPp0ZSP9dio945dUbFagaDm3+qsyHKZGO21NBGDhRLdGaxNGp4p3/6vQrXWHVwc068kjZCG8U5lDkv7lVkQ+lWxIrH5aVaSNcUcQNxTI734/XSiLXJOhfs8+PPTbEpy7bQx9x7Bc7UKQIcwPo8ql9mkghuFbpHrP2OsMlT32xtQAgiasVUzxPT1r01izvkVmbeFD1Ep9uH1znZDlmIztNDRwT0fwsv/quO/y5X3Lfx+SlbtbWkFEAS45rVnsA==" Certificado="MIIGIzCCBAugAwIBAgIUMDAwMDEwMDAwMDA0MDgxNzU3ODIwDQYJKoZIhvcNAQELBQAwggGyMTgwNgYDVQQDDC9BLkMuIGRlbCBTZXJ2aWNpbyBkZSBBZG1pbmlzdHJhY2nDs24gVHJpYnV0YXJpYTEvMC0GA1UECgwmU2VydmljaW8gZGUgQWRtaW5pc3RyYWNpw7NuIFRyaWJ1dGFyaWExODA2BgNVBAsML0FkbWluaXN0cmFjacOzbiBkZSBTZWd1cmlkYWQgZGUgbGEgSW5mb3JtYWNpw7NuMR8wHQYJKoZIhvcNAQkBFhBhY29kc0BzYXQuZ29iLm14MSYwJAYDVQQJDB1Bdi4gSGlkYWxnbyA3NywgQ29sLiBHdWVycmVybzEOMAwGA1UEEQwFMDYzMDAxCzAJBgNVBAYTAk1YMRkwFwYDVQQIDBBEaXN0cml0byBGZWRlcmFsMRQwEgYDVQQHDAtDdWF1aHTDqW1vYzEVMBMGA1UELRMMU0FUOTcwNzAxTk4zMV0wWwYJKoZIhvcNAQkCDE5SZXNwb25zYWJsZTogQWRtaW5pc3RyYWNpw7NuIENlbnRyYWwgZGUgU2VydmljaW9zIFRyaWJ1dGFyaW9zIGFsIENvbnRyaWJ1eWVudGUwHhcNMTcxMTE3MDAxOTE2WhcNMjExMTE3MDAxOTE2WjCBwzEoMCYGA1UEAxQfTUEgVFJJTklEQUQgREVOSVNFIEJB0UFMRVMgTEVPTjEoMCYGA1UEKRQfTUEgVFJJTklEQUQgREVOSVNFIEJB0UFMRVMgTEVPTjEoMCYGA1UEChQfTUEgVFJJTklEQUQgREVOSVNFIEJB0UFMRVMgTEVPTjEWMBQGA1UELRMNQkFMVDgwMDYwMVA5QTEbMBkGA1UEBRMSQkFMVDgwMDYwMU1HVFhOUjIxMQ4wDAYDVQQLEwVWVUNFTTCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAIGdcxRKFFwAExQCLtunn6X4UwbxbadvYZ0JiREN9ftdMHQ+Q0Cyhla4ZPlDIjqyYy/1TvN9B+DfJJDPMzgi2ue8SKakQaEbM1Adts+/5Np5ggVQwe1tlux+vk9c572/iHfd/hfjezaxse1zdmglnEoT4HLEQelyB+nVB6aovMP23I3vU95mGEoOHOIWXzb38icjUWsVHlg4ny71WFPIQRLF8+9N3oVs+KkuvORhF789C5m6qoHfEtoZSLoxB49SFU4sEzOuXmQrYoRtWe1dxw2aafd0RER65yPB0zOXjtzMb4S+FaYiqepnHwPOx+Z/pLSvWsPSDhg+niQCQO+5h00CAwEAAaMdMBswDAYDVR0TAQH/BAIwADALBgNVHQ8EBAMCBsAwDQYJKoZIhvcNAQELBQADggIBAEAJFT8K3uoQ5alNR7jNF60Ya+FUVjHsmUrHWpTxOTu21hLHMw8+1pwakIysVlvmmwXyIZrl++yr2rujjja0XMyiTU5lDF35EodvWEt5jYltlOhFrrjlch/WXoNCeR07PWAJyjxAjG7Bt01Dtc32AFP6B4d3/TfIWNlIBnKhgXOTBj4bYEJXzKyTCItC5FV8d49ev77nqSU/OWt8GIemgqj5oFcLh0j2s9ma9zKgnntvumLvEP3mfil1D9EDHMGRUbvoW9Hf3VfPAgDzCwxxWO1kUl+ALCIDE9KPIy0z763h6Bsspkmcglo9mn0C3Wq0nkcHirLnc02eBMj6FeUQMFf0OJ2MQp7S5ZjnX0TbIw8MVUQ16ckDFdeJeAHav4lTIH091MbQ4PMbfrL2IYhBbsVBTWjr61TLo+vLl48lRUMg+i+F53D0GaQXC1AXWzBdAClv99fuqYSl1zOk7tnoT3JVN4rmHPHFLFL7luA3auJOIkFeVXQIOam6TPG0aHswe9/xWs24EDhtF3Ti2C2qfhUK1iyP9jBdhZgXniZ/e+e9vucvc+4xgJFk8UaP7PuV7JhVhFNMiCZJnZS/kUS48ltuBy8YkRfHv9/bRvoYcLUAFIDNt3pbbbIMLWcL8vGK9RXwbX/04vO3YJf5vX35uoxMqJtsNO8CON9yBgIvRma3">
##   <cfdi:Emisor Rfc="BALT800601P9A" Nombre="Ma. Trinidad Denise Bañales León" RegimenFiscal="612"/>
##   <cfdi:Receptor Rfc="TNM140723GFA" Nombre="TECNOLOGICO NACIONAL DE MEXICO / INSTITUTO TECNOLÓGICO DE DURANGO" UsoCFDI="P01"/>
##   <cfdi:Conceptos>
##     <cfdi:Concepto ClaveProdServ="41111924" NoIdentificacion="HL_PK25" Cantidad="12.00" ClaveUnidad="XKI" Unidad="Kit" Descripcion="Módulo Detector De Dióxido De Carbono (CO2) Sensor MG811&#9;&#9;&#9;&#9;&#13;&#10;Módulo Detector De Partículas De Ozono (Sensor O3) MQ-131&#9;&#9;&#9;&#9;&#13;&#10;Módulo Detector De Monóxido de Carbono (Sensor Co) MQ7&#9;&#9;&#9;&#9;&#13;&#10;Módulo MQ135 Sensor de Calidad del Aire NH3 NOX Benceno CO2&#9;&#9;&#9;&#9;&#13;&#10;Sensor de Temperatura y Humedad Digital DHT11" ValorUnitario="1439.660000" Importe="17275.920000">
##       <cfdi:Impuestos>
##         <cfdi:Traslados>
##           <cfdi:Traslado Base="17275.920000" Impuesto="002" TipoFactor="Tasa" TasaOCuota="0.160000" Importe="2764.147200"/>
##         </cfdi:Traslados>
##       </cfdi:Impuestos>
##     </cfdi:Concepto>
##   </cfdi:Conceptos>
##   <cfdi:Impuestos TotalImpuestosTrasladados="2764.15">
##     <cfdi:Traslados>
##       <cfdi:Traslado Impuesto="002" TipoFactor="Tasa" TasaOCuota="0.160000" Importe="2764.15"/>
##     </cfdi:Traslados>
##   </cfdi:Impuestos>
##   <cfdi:Complemento>
##     <tfd:TimbreFiscalDigital xmlns:tfd="http://www.sat.gob.mx/TimbreFiscalDigital" xsi:schemaLocation="http://www.sat.gob.mx/TimbreFiscalDigital http://www.sat.gob.mx/sitio_internet/cfd/TimbreFiscalDigital/TimbreFiscalDigitalv11.xsd" Version="1.1" FechaTimbrado="2018-05-31T13:09:42" SelloCFD="EewzTXDxH+TK8l9+uyVQBhWbsT5njPPIsBQT0Pivg2kJC+ZsYG881GaLoOSWuFOHURgzWQgsdyoqsmP1/94hPO32xJPp0ZSP9dio945dUbFagaDm3+qsyHKZGO21NBGDhRLdGaxNGp4p3/6vQrXWHVwc068kjZCG8U5lDkv7lVkQ+lWxIrH5aVaSNcUcQNxTI734/XSiLXJOhfs8+PPTbEpy7bQx9x7Bc7UKQIcwPo8ql9mkghuFbpHrP2OsMlT32xtQAgiasVUzxPT1r01izvkVmbeFD1Ep9uH1znZDlmIztNDRwT0fwsv/quO/y5X3Lfx+SlbtbWkFEAS45rVnsA==" UUID="2CC61975-7AE7-EBDB-73E4-46B42AE9E3AD" NoCertificadoSAT="00001000000402636111" RfcProvCertif="SAD110722MQA" SelloSAT="RFh23ALiMFkQVpcyaWxAVa/iNBBcozTmqyzOldP+Vhy75dU/XDg9fctwQRebdymXL0x2Te92D5xfcpkCr/LCuSqvI6p4CH8lNSFMIkGMauGwNWS+cUp/dxw7yUXCJvGxemH5c+PrXlLeC9grw20CIxLJJhg8ghTCyXfkuxpEsi8Vwtf+GEpXxrijgxtPHypEBrQxEPz9gwR2CGUoXTfljCd6MGybIg+C98E1+bUyCxbOpHep9mC+jljNv/7rV2qFS9ipnpK/L4ixt0pyivPAAPzJwjPNSEAWwC8U59LdsO6/qRETDS46y0NrjhXiGc0Hfc3YS805yUoMOa17y/ExXw=="/>
##   </cfdi:Complemento>
##   <cfdi:Addenda>
##     <advans:Adicionales xmlns:advans="http://www.advans.mx/adicionales" xsi:schemaLocation="http://www.advans.mx/adicionales http://www.advans.mx/recursos/adicionales_advans.xsd" Version="1.0" ReceptorDireccion="ARCOS DE BELEN NO. 79, 2do. PISO, COL. CENTRO  DEL. CUAUHTEMOC, CD. DE MÉXICO  CP 06010"/>
##   </cfdi:Addenda>
## </cfdi:Comprobante>
datos.size <- xmlSize(datos.root)
datos.size
## [1] 6
datos.root[1]
## $Emisor
## <cfdi:Emisor Rfc="BALT800601P9A" Nombre="Ma. Trinidad Denise Bañales León" RegimenFiscal="612"/> 
## 
## attr(,"class")
## [1] "XMLInternalNodeList" "XMLNodeList"
datos.root[2]
## $Receptor
## <cfdi:Receptor Rfc="TNM140723GFA" Nombre="TECNOLOGICO NACIONAL DE MEXICO / INSTITUTO TECNOLÓGICO DE DURANGO" UsoCFDI="P01"/> 
## 
## attr(,"class")
## [1] "XMLInternalNodeList" "XMLNodeList"
datos.root[4]
## $Impuestos
## <cfdi:Impuestos TotalImpuestosTrasladados="2764.15">
##   <cfdi:Traslados>
##     <cfdi:Traslado Impuesto="002" TipoFactor="Tasa" TasaOCuota="0.160000" Importe="2764.15"/>
##   </cfdi:Traslados>
## </cfdi:Impuestos> 
## 
## attr(,"class")
## [1] "XMLInternalNodeList" "XMLNodeList"
datos.root[5]
## $Complemento
## <cfdi:Complemento>
##   <tfd:TimbreFiscalDigital xmlns:tfd="http://www.sat.gob.mx/TimbreFiscalDigital" xsi:schemaLocation="http://www.sat.gob.mx/TimbreFiscalDigital http://www.sat.gob.mx/sitio_internet/cfd/TimbreFiscalDigital/TimbreFiscalDigitalv11.xsd" Version="1.1" FechaTimbrado="2018-05-31T13:09:42" SelloCFD="EewzTXDxH+TK8l9+uyVQBhWbsT5njPPIsBQT0Pivg2kJC+ZsYG881GaLoOSWuFOHURgzWQgsdyoqsmP1/94hPO32xJPp0ZSP9dio945dUbFagaDm3+qsyHKZGO21NBGDhRLdGaxNGp4p3/6vQrXWHVwc068kjZCG8U5lDkv7lVkQ+lWxIrH5aVaSNcUcQNxTI734/XSiLXJOhfs8+PPTbEpy7bQx9x7Bc7UKQIcwPo8ql9mkghuFbpHrP2OsMlT32xtQAgiasVUzxPT1r01izvkVmbeFD1Ep9uH1znZDlmIztNDRwT0fwsv/quO/y5X3Lfx+SlbtbWkFEAS45rVnsA==" UUID="2CC61975-7AE7-EBDB-73E4-46B42AE9E3AD" NoCertificadoSAT="00001000000402636111" RfcProvCertif="SAD110722MQA" SelloSAT="RFh23ALiMFkQVpcyaWxAVa/iNBBcozTmqyzOldP+Vhy75dU/XDg9fctwQRebdymXL0x2Te92D5xfcpkCr/LCuSqvI6p4CH8lNSFMIkGMauGwNWS+cUp/dxw7yUXCJvGxemH5c+PrXlLeC9grw20CIxLJJhg8ghTCyXfkuxpEsi8Vwtf+GEpXxrijgxtPHypEBrQxEPz9gwR2CGUoXTfljCd6MGybIg+C98E1+bUyCxbOpHep9mC+jljNv/7rV2qFS9ipnpK/L4ixt0pyivPAAPzJwjPNSEAWwC8U59LdsO6/qRETDS46y0NrjhXiGc0Hfc3YS805yUoMOa17y/ExXw=="/>
## </cfdi:Complemento> 
## 
## attr(,"class")
## [1] "XMLInternalNodeList" "XMLNodeList"
datos.root[6]
## $Addenda
## <cfdi:Addenda>
##   <advans:Adicionales xmlns:advans="http://www.advans.mx/adicionales" xsi:schemaLocation="http://www.advans.mx/adicionales http://www.advans.mx/recursos/adicionales_advans.xsd" Version="1.0" ReceptorDireccion="ARCOS DE BELEN NO. 79, 2do. PISO, COL. CENTRO  DEL. CUAUHTEMOC, CD. DE MÉXICO  CP 06010"/>
## </cfdi:Addenda> 
## 
## attr(,"class")
## [1] "XMLInternalNodeList" "XMLNodeList"

Convirtiendo un XML en un data.frame

xmldatos.df <- xmlToDataFrame("datos.xml")

xmldatos.df
##    Nombre Edad Genero
## 1  Carlos   23      M
## 2 Alberto   25      M
## 3    Juan   21      M
## 4   Maria   27      F
## 5  Carmen   23      F
## 6    Alba   22      F

Importando datos de JSON

# install.packages("rjson")
library(rjson)
## Warning: package 'rjson' was built under R version 3.4.4
# datos.jason <- fromJSON("datosjson") # Error por argumentos
datos.jason <- fromJSON(file = "datos.json")
datos.jason
## $Nombre
## [1] "Carlos"  "Alberto" "Juan"    "Maria"   "Carmen"  "Alba"   
## 
## $Edad
## [1] 23 25 21 27 23 22
## 
## $Genero
## [1] "M" "M" "M" "F" "F" "F"
class(datos.jason)
## [1] "list"
datos.jason$Nombre
## [1] "Carlos"  "Alberto" "Juan"    "Maria"   "Carmen"  "Alba"
# convertir el json en data.frame
datos.jason.df <- data.frame(datos.jason, row.names = NULL)

datos.jason.df
##    Nombre Edad Genero
## 1  Carlos   23      M
## 2 Alberto   25      M
## 3    Juan   21      M
## 4   Maria   27      F
## 5  Carmen   23      F
## 6    Alba   22      F
class(datos.jason.df)
## [1] "data.frame"