This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Cmd+Shift+Enter.

plot(cars)

Add a new chunk by clicking the Insert Chunk button on the toolbar or by pressing Cmd+Option+I.

When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the Preview button or press Cmd+Shift+K to preview the HTML file).

Manual de Paquete xlsx en R

JOSE RODOLFO RAMIREZ SILVA

29 de marzo de 2017

Actualmente, en el manejo de base de datos XLSX, lo usan usuarios de Microsoft Excel.

Para trabajar con R studio en clases de la mater??a de M??todos Cuantitativos Aplicados a la Administraci??n, de la maestr??a de Administraci??n enfocada al transporte de pasajeros.

Esta proceso ser?? enfocada al uso del paquete .xls para importar y exportar archivos de Excel utilizando Rstudio.

Xlsx es uno de los potentes paquetes de R para leer, escribir y formatear archivos de Excel. Es una soluci??n basada en java y est?? disponible para Windows, Mac y Linux. Funciona tanto para los formatos de archivo Excel (formatos de archivo xls y xlsx).

En CRAN (el repositorio de paquetes R) podemos encontrar m??ltiples paquetes para trabajar con hojas de c??lculo Excel desde R. Uno de ellos es el paquete xlsx, con el que tambi??n puede trabajar anteriores de Excel. Para instalar este paquete no tenemos m??s que facilitar su nombre a install.packages desde la consola de R. Si la configuraci??n del repositorio es correcta, se descargar?? el paquete y tambi??n sus dependencias, quedando instalados y listos para usar.

Para descargar el paquete: install.packages(???xlsx???) Cargar el paquete en archivo .Rdata: library(xlsx)

En este tutorial, aprender?? a usar el paquete xlsx para:

# Leer y escribir archivos Excel. # Agregar conjuntos de datos e im??genes (o gr??ficos) en una hoja de c??lculo de Excel. # Formatear la apariencia de la hoja de Excel estableciendo formatos de datos, fuentes, colores y bordes. # Guarda el archivo de Excel con un nombre y la extensi??n para que R lo lea (ejemplo ???input.xlsx???.) Debes guardarlo en el directorio de trabajo actual del espacio de trabajo R. Para verificar el directorio de trabajo, basta con escribir en la consola getwd(). # Para importar los datos: # El input.xlsx se lee utilizando la funci??n read.xlsx () como se muestra a continuaci??n. El resultado se almacena como un marco de datos en el entorno R. de las siguientes dos maneras:

data <- read.xlsx(“sheet1.xlsx”, sheetIndex = 1)

read_excel(“RH1.xlsx”, RH = 1)

probablemente pedira instalar rJava y xlsxjars

getwd() library(xlsx)

getwd()
library(xlsx)

data <- read.xlsx(“sheet1.xlsx”, sheetIndex = 1) read_excel(“sheet1.xlsx”, sheet = 1)

data <- read.xlsx("sheet1.xlsx", sheetIndex = 1)
read_excel("sheet1.xlsx", sheet = 1)

R me marca error

Please provide a sheet name OR a sheet index.

Es probable que sea por la version en equipo Mac,

data <- read.xlsx(“sheet1.xlsx”, sheetIndex = 1)

read_excel(“imput.xlsx”, sheet = 1)

data <- read.xlsx(“input.xlsx”, sheetIndex = 1) read_excel(“input.xlsx”, sheet = 1)

data <- read.xlsx("input.xlsx", sheetIndex = 1)
read_excel("input.xlsx", sheet = 1)

Para importar Dataset que queremos trabajar en R, debemos ir al directorio de trabajo de R, buscar el archivo .xlsx, dar clic en importar Dataset y se el archivo aparecer?? en una ventana (en mi caso por ser equipo mac) de R.

Una vez instalado, ggplot podremos ejecutarlo cuando lo deseamos empleando el codigo de comando de R: install.packages(“directlabels”)

Con estos datos, podemos realizar un histograma. Habiendo instalado previamiente el paquete ggplot2, hacemos lo siguiente:

library(ggplot2) install.packages(“directlabels”) Sueldo <- read.csv(file=“sheet1.csv”, header=TRUE) View(Sueldo) library(ggplot2) qplot(Sueldo, geom = “histogram”)

library(ggplot2)
install.packages("directlabels")
Sueldo <- read.csv(file="sheet1.csv", header=TRUE)
View(Sueldo)
library(ggplot2)
qplot(Sueldo, geom = "histogram")

Exportar de R a Excel

Las funciones R write.xlsx () se pueden utilizar para exportar datos de R a un libro de Excel.

El formato simplificado de estas funciones es:

write.xlsx (x, file, sheetName = “Sheet1”, col.names = TRUE, row.name = TRUE, append = FALSE)

write.xlsx (x, file, sheetName = "Sheet1",
            col.names = TRUE, row.name = TRUE, append = FALSE)

X: un marco de datos que se escribir?? en el libro

File: la ruta al archivo de salida

SheetName: una cadena de caracteres a utilizar para el nombre de la hoja.

col.names, row.names: un valor l??gico que especifica si los nombres de columnas / nombres de filas de x deben escribirse en el archivo

Append: un valor l??gico que indica si se debe a??adir x a un archivo existente.

ejemplo:

library (xlsx) Write.xlsx (Sueldosbase, file = “myworkbook.xlsx”, SheetName = “Sueldos por base”)

library (xlsx)
Write.xlsx (Sueldosbase, file = "myworkbook.xlsx",
            SheetName = "Sueldos por base")

Para agregar varios conjuntos de datos en el mismo libro de Excel, tiene que utilizar el argumento append = TRUE. Esto se ilustra en el siguiente c??digo R:

librowrite.xlsx(USArrests, file=“myworkbook.xlsx”, sheetName=“SUEDOS-BASE”, append=FALSE)

Fuentes:

http://www.sthda.com/english/wiki/r-xlsx-package-a-quick-start-guide-to-manipulate-excel-files-in-r https://www.tutorialspoint.com/r/r_excel_files.htm

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVGhpcyBpcyBhbiBbUiBNYXJrZG93bl0oaHR0cDovL3JtYXJrZG93bi5yc3R1ZGlvLmNvbSkgTm90ZWJvb2suIFdoZW4geW91IGV4ZWN1dGUgY29kZSB3aXRoaW4gdGhlIG5vdGVib29rLCB0aGUgcmVzdWx0cyBhcHBlYXIgYmVuZWF0aCB0aGUgY29kZS4gCgpUcnkgZXhlY3V0aW5nIHRoaXMgY2h1bmsgYnkgY2xpY2tpbmcgdGhlICpSdW4qIGJ1dHRvbiB3aXRoaW4gdGhlIGNodW5rIG9yIGJ5IHBsYWNpbmcgeW91ciBjdXJzb3IgaW5zaWRlIGl0IGFuZCBwcmVzc2luZyAqQ21kK1NoaWZ0K0VudGVyKi4gCgpgYGB7cn0KcGxvdChjYXJzKQpgYGAKCkFkZCBhIG5ldyBjaHVuayBieSBjbGlja2luZyB0aGUgKkluc2VydCBDaHVuayogYnV0dG9uIG9uIHRoZSB0b29sYmFyIG9yIGJ5IHByZXNzaW5nICpDbWQrT3B0aW9uK0kqLgoKV2hlbiB5b3Ugc2F2ZSB0aGUgbm90ZWJvb2ssIGFuIEhUTUwgZmlsZSBjb250YWluaW5nIHRoZSBjb2RlIGFuZCBvdXRwdXQgd2lsbCBiZSBzYXZlZCBhbG9uZ3NpZGUgaXQgKGNsaWNrIHRoZSAqUHJldmlldyogYnV0dG9uIG9yIHByZXNzICpDbWQrU2hpZnQrSyogdG8gcHJldmlldyB0aGUgSFRNTCBmaWxlKS4KCgojIE1hbnVhbCBkZSBQYXF1ZXRlIHhsc3ggZW4gUgojIEpPU0UgUk9ET0xGTyBSQU1JUkVaIFNJTFZBCiMgMjkgZGUgbWFyem8gZGUgMjAxNwojIEFjdHVhbG1lbnRlLCBlbiBlbCBtYW5lam8gZGUgYmFzZSBkZSBkYXRvcyBYTFNYLCBsbyB1c2FuIHVzdWFyaW9zIGRlIE1pY3Jvc29mdCBFeGNlbC4KIyBQYXJhIHRyYWJhamFyIGNvbiBSIHN0dWRpbyBlbiBjbGFzZXMgZGUgbGEgbWF0ZXI/P2EgZGUgTT8/dG9kb3MgQ3VhbnRpdGF0aXZvcyBBcGxpY2Fkb3MgYSBsYSBBZG1pbmlzdHJhY2k/P24sIGRlIGxhIG1hZXN0cj8/YSBkZSBBZG1pbmlzdHJhY2k/P24gZW5mb2NhZGEgYWwgdHJhbnNwb3J0ZSBkZSBwYXNhamVyb3MuCiMgRXN0YSBwcm9jZXNvIHNlcj8/IGVuZm9jYWRhIGFsIHVzbyBkZWwgcGFxdWV0ZSAueGxzIHBhcmEgaW1wb3J0YXIgeSBleHBvcnRhciBhcmNoaXZvcyBkZSBFeGNlbCB1dGlsaXphbmRvIFJzdHVkaW8uCiMgWGxzeCBlcyB1bm8gZGUgbG9zIHBvdGVudGVzIHBhcXVldGVzIGRlIFIgcGFyYSBsZWVyLCBlc2NyaWJpciB5IGZvcm1hdGVhciBhcmNoaXZvcyBkZSBFeGNlbC4gRXMgdW5hIHNvbHVjaT8/biBiYXNhZGEgZW4gamF2YSB5IGVzdD8/IGRpc3BvbmlibGUgcGFyYSBXaW5kb3dzLCBNYWMgeSBMaW51eC4gRnVuY2lvbmEgdGFudG8gcGFyYSBsb3MgZm9ybWF0b3MgZGUgYXJjaGl2byBFeGNlbCAoZm9ybWF0b3MgZGUgYXJjaGl2byB4bHMgeSB4bHN4KS4KIyBFbiBDUkFOIChlbCByZXBvc2l0b3JpbyBkZSBwYXF1ZXRlcyBSKSBwb2RlbW9zIGVuY29udHJhciBtPz9sdGlwbGVzIHBhcXVldGVzIHBhcmEgdHJhYmFqYXIgY29uIGhvamFzIGRlIGM/P2xjdWxvIEV4Y2VsIGRlc2RlIFIuIFVubyBkZSBlbGxvcyBlcyBlbCBwYXF1ZXRlIHhsc3gsIGNvbiBlbCBxdWUgdGFtYmk/P24gcHVlZGUgdHJhYmFqYXIgYW50ZXJpb3JlcyBkZSBFeGNlbC4gUGFyYSBpbnN0YWxhciBlc3RlIHBhcXVldGUgbm8gdGVuZW1vcyBtPz9zIHF1ZSBmYWNpbGl0YXIgc3Ugbm9tYnJlIGEgaW5zdGFsbC5wYWNrYWdlcyBkZXNkZSBsYSBjb25zb2xhIGRlIFIuIFNpIGxhIGNvbmZpZ3VyYWNpPz9uIGRlbCByZXBvc2l0b3JpbyBlcyBjb3JyZWN0YSwgc2UgZGVzY2FyZ2FyPz8gZWwgcGFxdWV0ZSB5IHRhbWJpPz9uIHN1cyBkZXBlbmRlbmNpYXMsIHF1ZWRhbmRvIGluc3RhbGFkb3MgeSBsaXN0b3MgcGFyYSB1c2FyLgojIFBhcmEgZGVzY2FyZ2FyIGVsIHBhcXVldGU6IGluc3RhbGwucGFja2FnZXMoPz8/eGxzeD8/PykgQ2FyZ2FyIGVsIHBhcXVldGUgZW4gYXJjaGl2byAuUmRhdGE6IGxpYnJhcnkoeGxzeCkKCiNFbiBlc3RlIHR1dG9yaWFsLCBhcHJlbmRlcj8/IGEgdXNhciBlbCBwYXF1ZXRlIHhsc3ggcGFyYToKICAjCUxlZXIgeSBlc2NyaWJpciBhcmNoaXZvcyBFeGNlbC4KICAjCUFncmVnYXIgY29uanVudG9zIGRlIGRhdG9zIGUgaW0/P2dlbmVzIChvIGdyPz9maWNvcykgZW4gdW5hIGhvamEgZGUgYz8/bGN1bG8gZGUgRXhjZWwuCiAgIwlGb3JtYXRlYXIgbGEgYXBhcmllbmNpYSBkZSBsYSBob2phIGRlIEV4Y2VsIGVzdGFibGVjaWVuZG8gZm9ybWF0b3MgZGUgZGF0b3MsIGZ1ZW50ZXMsIGNvbG9yZXMgeSBib3JkZXMuCiMgR3VhcmRhIGVsIGFyY2hpdm8gZGUgRXhjZWwgY29uIHVuIG5vbWJyZSB5IGxhIGV4dGVuc2k/P24gcGFyYSBxdWUgUiBsbyBsZWEgKGVqZW1wbG8gPz8/aW5wdXQueGxzeD8/Py4pIERlYmVzIGd1YXJkYXJsbyBlbiBlbCBkaXJlY3RvcmlvIGRlIHRyYWJham8gYWN0dWFsIGRlbCBlc3BhY2lvIGRlIHRyYWJham8gUi4gUGFyYSB2ZXJpZmljYXIgZWwgZGlyZWN0b3JpbyBkZSB0cmFiYWpvLCBiYXN0YSBjb24gZXNjcmliaXIgZW4gbGEgY29uc29sYSBnZXR3ZCgpLgojIFBhcmEgaW1wb3J0YXIgbG9zIGRhdG9zOgojIEVsIGlucHV0Lnhsc3ggc2UgbGVlIHV0aWxpemFuZG8gbGEgZnVuY2k/P24gcmVhZC54bHN4ICgpIGNvbW8gc2UgbXVlc3RyYSBhIGNvbnRpbnVhY2k/P24uIEVsIHJlc3VsdGFkbyBzZSBhbG1hY2VuYSBjb21vIHVuIG1hcmNvIGRlIGRhdG9zIGVuIGVsIGVudG9ybm8gUi4gZGUgbGFzIHNpZ3VpZW50ZXMgZG9zIG1hbmVyYXM6CgojIGRhdGEgPC0gcmVhZC54bHN4KCJzaGVldDEueGxzeCIsIHNoZWV0SW5kZXggPSAxKQoKIyByZWFkX2V4Y2VsKCJSSDEueGxzeCIsIFJIID0gMSkKIyBwcm9iYWJsZW1lbnRlIHBlZGlyYSBpbnN0YWxhciBySmF2YSB5IHhsc3hqYXJzCmdldHdkKCkKbGlicmFyeSh4bHN4KQpgYGB7cn0KZ2V0d2QoKQpsaWJyYXJ5KHhsc3gpCmBgYAoKZGF0YSA8LSByZWFkLnhsc3goInNoZWV0MS54bHN4Iiwgc2hlZXRJbmRleCA9IDEpCnJlYWRfZXhjZWwoInNoZWV0MS54bHN4Iiwgc2hlZXQgPSAxKQpgYGB7cn0KZGF0YSA8LSByZWFkLnhsc3goInNoZWV0MS54bHN4Iiwgc2hlZXRJbmRleCA9IDEpCnJlYWRfZXhjZWwoInNoZWV0MS54bHN4Iiwgc2hlZXQgPSAxKQpgYGAKCiMgUiBtZSBtYXJjYSBlcnJvciAgIAojIFBsZWFzZSBwcm92aWRlIGEgc2hlZXQgbmFtZSBPUiBhIHNoZWV0IGluZGV4LgojIEVzIHByb2JhYmxlIHF1ZSBzZWEgcG9yIGxhIHZlcnNpb24gZW4gZXF1aXBvIE1hYywKCiMgZGF0YSA8LSByZWFkLnhsc3goInNoZWV0MS54bHN4Iiwgc2hlZXRJbmRleCA9IDEpCiMgcmVhZF9leGNlbCgiaW1wdXQueGxzeCIsIHNoZWV0ID0gMSkKCmRhdGEgPC0gcmVhZC54bHN4KCJpbnB1dC54bHN4Iiwgc2hlZXRJbmRleCA9IDEpCnJlYWRfZXhjZWwoImlucHV0Lnhsc3giLCBzaGVldCA9IDEpCmBgYHtyfQpkYXRhIDwtIHJlYWQueGxzeCgiaW5wdXQueGxzeCIsIHNoZWV0SW5kZXggPSAxKQpyZWFkX2V4Y2VsKCJpbnB1dC54bHN4Iiwgc2hlZXQgPSAxKQpgYGAKCiMgUGFyYSBpbXBvcnRhciBEYXRhc2V0IHF1ZSBxdWVyZW1vcyB0cmFiYWphciBlbiBSLCBkZWJlbW9zIGlyIGFsIGRpcmVjdG9yaW8gZGUgdHJhYmFqbyBkZSBSLCBidXNjYXIgZWwgYXJjaGl2byAueGxzeCwgZGFyIGNsaWMgZW4gaW1wb3J0YXIgRGF0YXNldCB5IHNlIGVsIGFyY2hpdm8gYXBhcmVjZXI/PyBlbiB1bmEgdmVudGFuYSAoZW4gbWkgY2FzbyBwb3Igc2VyIGVxdWlwbyBtYWMpIGRlIFIuCiMgVW5hIHZleiBpbnN0YWxhZG8sIGdncGxvdCBwb2RyZW1vcyBlamVjdXRhcmxvIGN1YW5kbyBsbyBkZXNlYW1vcyBlbXBsZWFuZG8gZWwgY29kaWdvIGRlIGNvbWFuZG8gZGUgUjogIGluc3RhbGwucGFja2FnZXMoImRpcmVjdGxhYmVscyIpCiMgQ29uIGVzdG9zIGRhdG9zLCBwb2RlbW9zIHJlYWxpemFyIHVuIGhpc3RvZ3JhbWEuIEhhYmllbmRvIGluc3RhbGFkbyBwcmV2aWFtaWVudGUgZWwgcGFxdWV0ZSBnZ3Bsb3QyLCBoYWNlbW9zIGxvIHNpZ3VpZW50ZToKCmxpYnJhcnkoZ2dwbG90MikKaW5zdGFsbC5wYWNrYWdlcygiZGlyZWN0bGFiZWxzIikKU3VlbGRvIDwtIHJlYWQuY3N2KGZpbGU9InNoZWV0MS5jc3YiLCBoZWFkZXI9VFJVRSkKVmlldyhTdWVsZG8pCmxpYnJhcnkoZ2dwbG90MikKcXBsb3QoU3VlbGRvLCBnZW9tID0gImhpc3RvZ3JhbSIpCmBgYHtyfQpsaWJyYXJ5KGdncGxvdDIpCmluc3RhbGwucGFja2FnZXMoImRpcmVjdGxhYmVscyIpClN1ZWxkbyA8LSByZWFkLmNzdihmaWxlPSJzaGVldDEuY3N2IiwgaGVhZGVyPVRSVUUpClZpZXcoU3VlbGRvKQpsaWJyYXJ5KGdncGxvdDIpCnFwbG90KFN1ZWxkbywgZ2VvbSA9ICJoaXN0b2dyYW0iKQpgYGAKCgoKIyBFeHBvcnRhciBkZSBSIGEgRXhjZWwKCiMgTGFzIGZ1bmNpb25lcyBSIHdyaXRlLnhsc3ggKCkgc2UgcHVlZGVuIHV0aWxpemFyIHBhcmEgZXhwb3J0YXIgZGF0b3MgZGUgUiBhIHVuIGxpYnJvIGRlIEV4Y2VsLgojIEVsIGZvcm1hdG8gc2ltcGxpZmljYWRvIGRlIGVzdGFzIGZ1bmNpb25lcyBlczoKICAKd3JpdGUueGxzeCAoeCwgZmlsZSwgc2hlZXROYW1lID0gIlNoZWV0MSIsCiAgICAgICAgICAgIGNvbC5uYW1lcyA9IFRSVUUsIHJvdy5uYW1lID0gVFJVRSwgYXBwZW5kID0gRkFMU0UpCmBgYHtyfQp3cml0ZS54bHN4ICh4LCBmaWxlLCBzaGVldE5hbWUgPSAiU2hlZXQxIiwKICAgICAgICAgICAgY29sLm5hbWVzID0gVFJVRSwgcm93Lm5hbWUgPSBUUlVFLCBhcHBlbmQgPSBGQUxTRSkKYGBgCgojIFg6IHVuIG1hcmNvIGRlIGRhdG9zIHF1ZSBzZSBlc2NyaWJpcj8/IGVuIGVsIGxpYnJvCiMgRmlsZTogbGEgcnV0YSBhbCBhcmNoaXZvIGRlIHNhbGlkYQojIFNoZWV0TmFtZTogdW5hIGNhZGVuYSBkZSBjYXJhY3RlcmVzIGEgdXRpbGl6YXIgcGFyYSBlbCBub21icmUgZGUgbGEgaG9qYS4KIyBjb2wubmFtZXMsIHJvdy5uYW1lczogdW4gdmFsb3IgbD8/Z2ljbyBxdWUgZXNwZWNpZmljYSBzaSBsb3Mgbm9tYnJlcyBkZSBjb2x1bW5hcyAvIG5vbWJyZXMgZGUgZmlsYXMgZGUgeCBkZWJlbiBlc2NyaWJpcnNlIGVuIGVsIGFyY2hpdm8KIyBBcHBlbmQ6IHVuIHZhbG9yIGw/P2dpY28gcXVlIGluZGljYSBzaSBzZSBkZWJlIGE/P2FkaXIgeCBhIHVuIGFyY2hpdm8gZXhpc3RlbnRlLgoKIyBlamVtcGxvOgpsaWJyYXJ5ICh4bHN4KQpXcml0ZS54bHN4IChTdWVsZG9zYmFzZSwgZmlsZSA9ICJteXdvcmtib29rLnhsc3giLAogICAgICAgICAgICBTaGVldE5hbWUgPSAiU3VlbGRvcyBwb3IgYmFzZSIpCmBgYHtyfQpsaWJyYXJ5ICh4bHN4KQpXcml0ZS54bHN4IChTdWVsZG9zYmFzZSwgZmlsZSA9ICJteXdvcmtib29rLnhsc3giLAogICAgICAgICAgICBTaGVldE5hbWUgPSAiU3VlbGRvcyBwb3IgYmFzZSIpCmBgYAoKIyBQYXJhIGFncmVnYXIgdmFyaW9zIGNvbmp1bnRvcyBkZSBkYXRvcyBlbiBlbCBtaXNtbyBsaWJybyBkZSBFeGNlbCwgdGllbmUgcXVlIHV0aWxpemFyIGVsIGFyZ3VtZW50byBhcHBlbmQgPSBUUlVFLiBFc3RvIHNlIGlsdXN0cmEgZW4gZWwgc2lndWllbnRlIGM/P2RpZ28gUjoKbGlicm93cml0ZS54bHN4KFVTQXJyZXN0cywgZmlsZT0ibXl3b3JrYm9vay54bHN4IiwKICAgICAgICAgICAgICAgIHNoZWV0TmFtZT0iU1VFRE9TLUJBU0UiLCBhcHBlbmQ9RkFMU0UpCgojIEZ1ZW50ZXM6Cmh0dHA6Ly93d3cuc3RoZGEuY29tL2VuZ2xpc2gvd2lraS9yLXhsc3gtcGFja2FnZS1hLXF1aWNrLXN0YXJ0LWd1aWRlLXRvLW1hbmlwdWxhdGUtZXhjZWwtZmlsZXMtaW4tcgpodHRwczovL3d3dy50dXRvcmlhbHNwb2ludC5jb20vci9yX2V4Y2VsX2ZpbGVzLmh0bQoK