Universidad Nacional Autonóma de México

Facultad de Contaduría y Administración, Posgrado.

Profesor: Dr. Carlos Rodriguez.

Materia: Métodos Cuantitativos Aplicados a la Administración

Existen diversas soluciones para importar archivos de Excel usando el aplicativo R, el paquete XLSX es uno de los paquetes más poderosos para leer, escribir y dar formato a los archivos de excel. Es una solución basado en el lenguaje de programación de java, la solución está disponible para diversos Sistemas Operativos como Linux, Mac y Windows. Funciona correctamente para diversas versiones del aplicativo Microsoft Excel 2000, XP, 2003, 2007 y 2013 en los formatos de archivo tipo xls y xlsx. Desafortunadamente el paquete XLSX no está especificamente bien documentado.

Es de vital importancia actualizar el programa R y posteriormente instalar los siguientes paquetes y sus dependencias.

1. rJava

2. xlxsjars

Para Instalar el paquete usamos los siguientes comandos en R: install.packages(“xlsx”)

Es importante resaltar que usaremos la versión de Excel 1997-2003 por ello la extensión del archivo es “xls”

# Instala el paquete XLSX pero como ya lo tengo instalado solo cargare el paquete.
# install.packages("xlsx")
library(xlsx)
## Loading required package: rJava
## Loading required package: xlsxjars
misdatos <- read.xlsx("datos.xls", sheetIndex = 1, header=TRUE, colClasses = "character") 
View(misdatos)
misdatos
##                       NOMBRE SALARIO FECHA    DEPARTAMENTO
## 1 Maria del Carmen Gutierrez   20000 42434       Auditoria
## 2      Natalie Lechuga Perez   22000 41767    Contabilidad
## 3             Fabian Cordoba   13000 41823 Soporte tecnico
## 4           Gustavo Garayzar   15000 42278    Programacion
## 5            Griselda Torres   21000 42797        Finanzas
## 6                       <NA>      NA     /            <NA>

Ahora procedemos con la creación de una gráfica y exportación de la misma a un archivo de excel.

Crearemos una gráfica y se exportara como tipo de archivo imagen PNG y JPG

# Se crea la gráfica.
png(filename = "boxplot.png", height=800, width=800, res=250, pointsize=8)
boxplot(summary(misdatos$SALARIO), y= "Lechuga",col = "blue", main="Sueldos", xlab="Natalie Lechuga Pérez", ylab="Pesos Mexicanos")
summary(misdatos$SALARIO)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##   13000   15000   20000   18200   21000   22000       1
jpeg('rplot.jpg')
boxplot(summary(misdatos$SALARIO), y= "Lechuga",col = "blue", main="Sueldos", xlab="Natalie Lechuga Pérez", ylab="Pesos Mexicanos")
Gráfica de R en formato JPG y PNG

Gráfica de R en formato JPG y PNG

Crear una nueva hoja de excel en el archivo

wb<-createWorkbook(type="xls")
sheet <-createSheet(wb, sheetName = "boxplot")
addPicture("boxplot.png", sheet, scale = 1, startRow = 4,     startColumn = 1)
saveWorkbook(wb, "archivofinal.xls")
Fin del proyecto!

Fin del proyecto!