¿Cómo leer/guardar información en R?

Tabla de contenidos

• 1. Guardar datos (data.frame o matrix) en formato de tabla (.txt, .csv, .xls, .xlsx) 
  • Desde archivos delimitados (.txt, .csv o .xls)
  • Desde Excel (.xls o .xlsx)
• 2. Guardar objetos (datos o funciones) en formato .RData
• 3. Guardar objetos (datos o funciones) con sus metadatos
• 4. Guardar gráficos (.jpg, .png, .tiff, .bmp, .pdf)

Máster de Estadística Aplicada con R Software 8ª edición 2019 (Reserva de plaza)

1. Guardar datos (data.frame o matrix) en formato de tabla (.txt, .csv, .xls, .xlsx)

Desde archivos delimitados (.txt, .csv o .xls)

• Para guardar datos:

1. write.table() y write.csv() -los objetos tipo data.frame o matriz podemos guardarlos, uno a la vez, en un archivo externo manteniendo su estructura-
2. write() -guarda datos atómicos en un archivo externo de texto-

write.table(x, file = "", append = FALSE, quote = TRUE, sep = " ", na = "NA", dec = ".", row.names = TRUE, col.names = TRUE, ...)

write.csv(...)

• Para leer datos:

read.table(file, header = FALSE, sep = "", quote = "\"'", dec = ".", row.names, col.names, na.strings = "NA", ...)

read.csv(file, header = TRUE, sep = ",", quote = "\"", dec = ".", fill = TRUE, comment.char = "", ...)

Ejemplo 1. Con las funciones write.table() y read.table()

> #creamos los datos que queremos guardar
> x <- data.frame(a = "Hola", b = 2.45)

> # podemos guardar nuestros datos 
> write.table(x, file = "Ejemplo1.txt", row.names = FALSE) # guarda un archivo txt
> write.csv(x, file = "Ejemplo1.csv", row.names = FALSE) # guarda un archivo csv
> write.table(x, file = "Ejemplo1.xls", row.names = FALSE) # guarda un archivo excel

> # elimina el objeto "x" 
> rm(x)

> # para leer los datos anteriores
> y <- read.table("Ejemplo1.txt", header=TRUE) # lee un archivo txt
> y= read.csv("Ejemplo1.csv",header = TRUE) # lee un archivo csv
> y <- read.table("Ejemplo1.xls", header=TRUE) # lee un archivo xls

> y 
     a    b
1 Hola 2.45

> str(y) # comprueba que los datos se han guardado/leído correctamente y mantienen el formato
'data.frame':    1 obs. of  2 variables:
$ a: Factor w/ 1 level "Hola": 1
$ b: num 2.45

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

read.xlsx(file, sheetIndex, header=TRUE, colClasses=NA)

Ejemplo 2. Con las funciones write.xlsx() y read.xlsx()

> # instalamos el paquete "xlsx"
> install.packages("xlsx")

> # activamos la librería "xlsx"
> library(xlsx)

> # guardamos los datos USArrests (vienen instalados por defecto en R) en un archivo Excel (.xlsx)
> write.xlsx(USArrests, file="Ejemplo2.xlsx", sheetName="USA", append=FALSE)
> # agregamos una pestaña con los datos mtcars (también se encuentran disponibles en R)
> write.xlsx(mtcars, file="Ejemplo2.xlsx", sheetName="MTCARS",  append=TRUE)
 
> # leemos los datos generados anteriormente
> D1<-read.xlsx("Ejemplo2.xlsx", sheetName = "USA")
> D2<-read.xlsx2("Ejemplo2.xlsx", sheetName = "MTCARS")

2. Guardar objetos (datos o funciones) en formato .RData

• save() podemos guardar todos o algunos de los objetos generados en R.
  save.image() es una opción rápida para guardar todo el área de trabajo de R (‘save my current workspace’), i.e. save(list = ls(all.names = TRUE), file = “.RData”, envir = .GlobalEnv). Y es lo que realizamos cuando escribimos:  q(“yes”) para salir de R y guardar el área de trabajo.
• load() permite reanudar una sesión anterior cargando los objetos guardados previamente.

Ejemplo 3. Con las funciones save() y load().

> a=function(x){mean(x)}
> b="hola"
> c=1:5
> d=data.frame(a = 1, b = "a")

> # guarda los objetos en un archivo de datos de R
> save(a,b,c,d,file="Ejemplo.RData”)

> # eliminar los datos del área de trabajo
> rm(a, b, c, d)

> # lee el archivo de datos de R en tu área de trabajo
> load("Ejemplo.RData”) 

> a
function(x){mean(x)}

> b
[1] "hola"

> c
[1] 1 2 3 4 5

> d
  a b
1 1 a

> str(a)
function (x)  
- attr(*, "srcref")=Class 'srcref'  atomic [1:8] 1 3 1 22 3 22 1 1
  .. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x10471c358>

> str(b)
chr "hola"

> str(c)
int [1:5] 1 2 3 4 5

> str(d)
'data.frame':    1 obs. of  2 variables:
$ a: num 1
$ b: Factor w/ 1 level "a": 1

3. Guardar objetos (datos o funciones) con sus metadatos 

Escrito en el formato nativo de R, crea una representación más descriptiva de un objeto R. Útil cuando queremos editar luego el texto porque conservan los metadatos -por ejemplo guarda la información de cada clase de las variables o los niveles de los factores- a diferencia de los formatos anteriores, tiene la desventaja de que son algo ilegibles y poco eficientes -ocupan más espacio-. En algunos casos, es preferible tener datos almacenados en un archivo CSV y luego tener un archivo de código separado que especifique los metadatos.  Disponible en las funciones:

• dump() pueden guardar los contenidos de una función u otro objeto en un archivo externo
• sink() guarda el resultado que normalmente se muestra en la consola en un archivo externo
• source() para leer la información que has guardado previamente.

Ejemplo 4. Con las funciones dump(), sink() y source()

> a=function(x){mean(x)}
> b="hola"
> c=1:5
> d=data.frame(a = 1, b = "a")

> # guarda los objetos en un archivo de datos de R
> dump(c("a","b","c","d"),file="Ejemplo.R”)

> # eliminar los datos del área de trabajo
> rm(a, b, c, d) 

> # guarda los objetos en un archivo de datos txt
> sink("Datos.txt") 
> x <- c(1, 12, 3, 0)
> summary(x) # no muestra los resultados pero los guarda en el fichero txt
> sink()

> # lee el archivo de datos de R en tu área de trabajo
> source("Ejemplo.R")

> a
function(x){mean(x)}

> b
[1] "hola"

> c
[1] 1 2 3 4 5

> d
  a b
1 1 a

> str(a)
function (x)  
- attr(*, "srcref")=Class 'srcref'  atomic [1:8] 2 1 2 20 1 20 2 2
  .. ..- attr(*, "srcfile")=Classes 'srcfilecopy', 'srcfile' <environment: 0x10b70a8b0>

> str(b)
chr "hola"

> str(c)
int [1:5] 1 2 3 4 5

> str(d)
'data.frame':    1 obs. of  2 variables:
$ a: num 1
$ b: Factor w/ 1 level "a": 1

4. Guardar gráficos (.jpg, .png, .tiff, .bmp, .pdf)

Podemos guardar nuestros gráficos en distintos formatos.

• Para crear un archivo de formato gráfico (.jpg, .png, .tiff, .bmp)

jpeg(filename = "Rplot%03d.jpeg", width = 480, height = 480, units = "px", pointsize = 12, quality = 75, bg = "white", res = NA, ..., type = c("cairo", "Xlib", "quartz"), antialias)

con “filename” indicamos el nombre (y ruta) del archivo, con “width” y “height” indicamos el ancho y largo del gráfico, respectivamente, con “units” podemos especificar las unidades en que estamos dando el tamaño del gráfico, “pointsize” indica el tamaño del texto que graficamos, “bg” indica el color de fondo de la imagen, “quality” la calidad de la imagen JPEG como % (con valores pequeños obtenemos mayor comprensión pero la imagen empeora), “compression” indica el tipo de compresión utilizada (siempre que no utilicemos type=”quartz”), “res” es la resolución en ppi, “type” el tipo de archivo (“Xlib”, “quartz” o “cairo”).

• Para crear un pdf con la imagen (mantiene una alta calidad)

pdf(file = if(onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, height, onefile, family, title, fonts, paper, bg, fg, pointsize, pagecentre, colormodel, ...)

donde “file” indica el nombre y ruta del archivo que vamos a guardar, “width” y “height” indican el ancho y largo del gráfico, “online” se utiliza para especificar si queremos varias figuras en un único archivo (con TRUE), “family” nos permite especificar la familia de la fuente de texto que utilizaremos, “title” para indicar un título, “fonts” para especificar la familia de la fuente utilizada para fuentes adicionales (por defecto Helvetica), “paper” indica el tamaño del papel (“a4”, “letter”,”legal”,”executive”, etc.) , “bg” y “fg” para el color de fondo capa, resepctivamnte, “pointsize” especifica el tamaño de los puntos (por defecto 12), “colormodel” la configuración de color (“srgb” -por defecto-, “gray” o “cmyk”).

Ejemplo 5. Con las funciones jpeg, png, pdf

> # guardar un archivo en formato jpg
> jpeg('Grafico1.jpg') #abre el gráfico con el nombre dado (se guardará en el directorio seleccionado)
> plot(1:10) #grafica una secuencia de números del 1 al 10
> dev.off() #cierra el gráfico

> # guardar un archivo en formato png
> png('Grafico1.png') #abre el gráfico con el nombre dado (se guardará en el directorio seleccionado)
> plot(1:10) #grafica una secuencia de números del 1 al 10
> dev.off() #cierra el gráfico

> # guardar un archivo en formato pdf
> pdf("Grafico1.pdf")
> plot(1:10) #grafica una secuencia de números del 1 al 10
> dev.off() #cierra el gráfico