UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

CARRERA DE ESTADÍSTICA



PRIMERAS PRACTICAS EN R 6

Manual

En el siguiente texto podremos encontrar una serie de códigos elaborados en el programa Rstudio que darán solución a un determinado ejercicio enfocados principalmente en tratamientos de archivos.

Ejercicio 1

Lee el fichero paro.csv (cualquier fichero .csv) usando la función read.table. Comprueba que está correctamente importado usando head, tail, nrow, summary, etc.

  1. Comenzaremos por utilizar la función file.choose(), que nos ayuda a encontrar la ruta donde esta guardado el archivo que queremos tratar
file.choose()
  1. Para poder abrir nuestro archivo vamos a utilizar la funcion read.table(), que nos ayudara a leer nuestro archivo y dentro del parentesis pondremos la ruta de nuestro archivo que anteriormente consultamos Pondremos los argumentos necesarios para que nuestra archivo se cargue de la manera correcta. Para este caso cuparemos:
header() —-> Lo utilizamos para confirmar que la primera linea de nuestro archivo sera tomado en cuenta como nombres de las columnas de nuestro archivo en cuestion.
paro <- read.table(file = "C:\\Users\\Usuario\\Desktop\\paro.csv", header = T)
paro
  1. Finalmente vamos a comprobar que nuestro archivo se abrio correctamente a travez de estas funciones:
head() —> Nos muestra los primeros casos del archivo
tail() —> Nos muestra los ultimos casos del archivo
nrow() —> Nos muestra cuantas filas tiene nuestro archivo
summary() —> Nos muestra datos estadisticos de las columnas
tail(paro)
head(paro)
nrow(paro)
summary(paro)

Ejecución del código en R

SINTAXIS COMPLETA
# EJERCICIO 1

##EJERCICIO 1

#Lee el fichero paro.csv (ARCHIVO ADJUNTO) usando la función read.table. 
#Comprueba que está correctamente importado usando head, tail, nrow, summary, etc.
#Para leer la tabla necesitarás leer con cierto detenimiento ?read.table.

file.choose()
paro <- read.table(file = "C:\\Users\\Usuario\\Desktop\\paro.csv", header = T)
paro

##head=Primeros casos
##tail=los ultimos casos
##nrow=cuantas filas
##summary=estadisticos de las columnas

tail(paro)
head(paro)
nrow(paro)
summary(paro)
RESULTADO FINAL
## [1] "C:\\Users\\Usuario\\Desktop\\Trabajo-en-grupo--9.Rmd"
##       Gender   Provinces Periodo Situation value
## 8315   Males 50 Zaragoza  2011Q1  inactive 134.3
## 8316 Females 50 Zaragoza  2011Q1  inactive 199.4
## 8317   Males    51 Ceuta  2011Q1  inactive  10.7
## 8318 Females    51 Ceuta  2011Q1  inactive  16.5
## 8319   Males  52 Melilla  2011Q1  inactive   9.1
## 8320 Females  52 Melilla  2011Q1  inactive  15.3
##    Gender           Provinces Periodo Situation value
## 1   Males         02 Albacete  2014Q4    active 103.9
## 2 Females         02 Albacete  2014Q4    active  83.5
## 3   Males 03 Alicante/Alacant  2014Q4    active 490.5
## 4 Females 03 Alicante/Alacant  2014Q4    active 398.7
## 5   Males          04 Almería  2014Q4    active 198.5
## 6 Females          04 Almería  2014Q4    active 155.8
## [1] 8320
##     Gender           Provinces           Periodo           Situation        
##  Length:8320        Length:8320        Length:8320        Length:8320       
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##                                                                             
##      value       
##  Min.   :   0.0  
##  1st Qu.:  14.4  
##  Median :  61.9  
##  Mean   : 120.1  
##  3rd Qu.: 144.7  
##  Max.   :1828.9  
##  NA's   :1

Ejercicio 2

Repite el ejercicio anterior eliminando la opción header = TRUE. Examina el resultado y comprueba que, efectivamente, los datos no se han cargado correctamente.

  1. Comenzaremos por utilizar la función file.choose(), que nos ayuda a encontrar la ruta donde esta guardado el archivo que queremos tratar
file.choose()
  1. Para poder abrir nuestro archivo vamos a utilizar la funcion read.table(), que nos ayudara a leer nuestro archivo y dentro del parentesis pondremos la ruta de nuestro archivo que anteriormente consultamos Pondremos los argumentos necesarios para que nuestra archivo se cargue de la manera correcta.
paro <- read.table(file = "C:\\Users\\Usuario\\Desktop\\paro.csv")
paro
  1. Finalmente vamos a comprobar que nuestro archivo se abrio correctamente a travez de estas funciones:
head() —> Nos muestra los primeros casos del archivo
tail() —> Nos muestra los ultimos casos del archivo
nrow() —> Nos muestra cuantas filas tiene nuestro archivo
summary() —> Nos muestra datos estadisticos de las columnas
tail(paro)
head(paro)
nrow(paro)
summary(paro)

Ejecución del código en R

SINTAXIS COMPLETA
# EJERCICIO 2

#Repite el ejercicio anterior eliminando la opción header = TRUE. 
#Examina el resultado y comprueba que, efectivamente, 
#los datos no se han cargado correctamente.

file.choose()
paro <- read.table(file = "C:\\Users\\Usuario\\Desktop\\paro.csv")
paro

##head=Primeros casos
##tail=los ultimos casos
##nrow=cuantas filas
##summary=estadisticos de las columnas

tail(paro)
head(paro)
nrow(paro)
summary(paro)
RESULTADO FINAL
## [1] "C:\\Users\\Usuario\\Desktop\\Trabajo-en-grupo--9.Rmd"
##           V1          V2     V3       V4    V5
## 8316   Males 50 Zaragoza 2011Q1 inactive 134.3
## 8317 Females 50 Zaragoza 2011Q1 inactive 199.4
## 8318   Males    51 Ceuta 2011Q1 inactive  10.7
## 8319 Females    51 Ceuta 2011Q1 inactive  16.5
## 8320   Males  52 Melilla 2011Q1 inactive   9.1
## 8321 Females  52 Melilla 2011Q1 inactive  15.3
##        V1                  V2      V3        V4    V5
## 1  Gender           Provinces Periodo Situation value
## 2   Males         02 Albacete  2014Q4    active 103.9
## 3 Females         02 Albacete  2014Q4    active  83.5
## 4   Males 03 Alicante/Alacant  2014Q4    active 490.5
## 5 Females 03 Alicante/Alacant  2014Q4    active 398.7
## 6   Males          04 Almería  2014Q4    active 198.5
## [1] 8321
##       V1                 V2                 V3                 V4           
##  Length:8321        Length:8321        Length:8321        Length:8321       
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##       V5           
##  Length:8321       
##  Class :character  
##  Mode  :character

Ejercicio 3

Lee algún fichero de datos de tu interés y repite el ejercicio anterior.

  1. Comenzaremos por utilizar la función file.choose(), que nos ayuda a encontrar la ruta donde esta guardado el archivo que queremos tratar.
file.choose()
  1. Para poder abrir nuestro archivo vamos a utilizar la funcion read.table(), que nos ayudara a leer nuestro archivo y dentro del parentesis pondremos la ruta de nuestro archivo que anteriormente consultamos. Pondremos los argumentos necesarios para que nuestra archivo se cargue de la manera correcta.
skip() —-> Lo utilizamos para saltarnos filas de nuestro archivo en cuestion.
ejer3<- read.table(file = "C:\\Users\\Usuario\\Desktop\\MSP_Obstetricia_2020 (1).csv", skip = 2)
ejer3
  1. Finalmente vamos a comprobar que nuestro archivo se abrio correctamente a travez de estas funciones:
head() —> Nos muestra los primeros casos del archivo
tail() —> Nos muestra los ultimos casos del archivo
nrow() —> Nos muestra cuantas filas tiene nuestro archivo
summary() —> Nos muestra datos estadisticos de las columnas
tail(ejer3)
head(ejer3)
nrow(ejer3)
summary(ejer3)

Ejecución del código en R

SINTAXIS COMPLETA
##EJERCICIO 3

#Lee algún fichero de datos de tu interés y repite el ejercicio anterior 
#(CADA GRUPO USARÁ SU ARCHIVO DE PREFERENCIA Y LO EXPLICARÁ EN LA EXPOSICIÓN).

file.choose()
ejer3<- read.table(file = "C:\\Users\\Usuario\\Desktop\\MSP_Obstetricia_2020 (1).csv", skip = 2)
ejer3

tail(ejer3)
head(ejer3)
nrow(ejer3)
summary(ejer3)
RESULTADO FINAL
## [1] "C:\\Users\\Usuario\\Desktop\\Trabajo-en-grupo--9.Rmd"
##                                                                                          V1
## 272                                                                             2020;ZAMORA
## 273                CHINCHIPE;YACUAMBI;0;0;2;0;8;0;0;0;0;0;0;0;0;0;0;0;0;0;0;3;7;0;0;0;0;0;0
## 274                                                                             2020;ZAMORA
## 275 CHINCHIPE;YANTZAZA;43;25;5;380;70;2;1;2;15;1;5;32;141;4;4;10;46;3;65;25;680;0;5;0;0;3;0
## 276                                                                             2020;ZAMORA
## 277    CHINCHIPE;ZAMORA;0;0;0;0;393;0;1;31;104;3;3;40;197;12;0;6;23;3;26;32;617;0;0;2;0;6;0
##                                                                                                      V1
## 1 2020;AZUAY;CUENCA;9;8;460;442;1673;10;0;117;401;10;4;157;1065;46;1;15;77;10;0;538;3339;0;19;13;0;35;0
## 2                      2020;AZUAY;GIRON;1;0;251;0;0;0;0;23;91;6;2;19;96;3;0;7;29;5;14;9;361;0;1;2;0;1;0
## 3                 2020;AZUAY;GUALACEO;0;1;1;0;391;1;1;33;114;3;1;19;112;4;0;4;22;1;0;27;504;0;1;1;0;3;0
## 4                             2020;AZUAY;NABON;9;3;25;43;0;3;0;0;1;0;0;0;0;0;0;0;0;0;0;8;75;0;0;0;0;0;0
## 5                        2020;AZUAY;PAUTE;0;0;313;2;0;0;1;2;8;0;2;26;144;4;0;0;0;0;0;13;478;0;0;1;0;1;0
## 6                               2020;AZUAY;PUCARA;0;2;1;3;1;0;0;0;1;0;0;0;0;0;0;0;0;0;0;2;5;0;0;0;0;0;0
## [1] 277
##       V1           
##  Length:277        
##  Class :character  
##  Mode  :character

Ejercicio 4

En read.table y sus derivados puedes indicar, además de ficheros disponibles en el disco duro, la URL de uno disponible en internet. Prueba a leer directamente el fichero disponible en https://datanalytics.com/uploads/datos_treemap.txt. Nota: es un fichero de texto separado por tabuladores y con nombres de columna.

  1. Para poder abrir nuestro archivo vamos a utilizar la función read.table(), que nos ayudara a leer nuestro archivo y dentro del parentesis pondremos la ruta de nuestro archivo que anteriormente consultamos. Pondremos los argumentos necesarios para que nuestra archivo se cargue de la manera correcta.
ejer4 <- read.table(file = "https://datanalytics.com/uploads/datos_treemap.txt", header = T)
ejer4

Ejecución del código en R

SINTAXIS COMPLETA
##EJERCICIO 4

#En read.table y sus derivados puedes indicar, además de ficheros disponibles en el disco duro, 
#la URL de uno disponible en internet. Prueba a leer directamente el fichero disponible en 
#https://datanalytics.com/uploads/datos_treemap.txt. 
#Nota: es un fichero de texto separado por tabuladores y con nombres de columna.

ejer4 <- read.table(file = "https://datanalytics.com/uploads/datos_treemap.txt", header = T)
ejer4
RESULTADO FINAL

Ejercicio 5

Alternativamente, si quieres leer un fichero remoto, puedes descargarlo directamente desde R. Consulta la ayuda de download.file para bajarte al disco duro el fichero del ejercicio anterior (EJERCICIO 4) y leerlo después.

  1. Comenzaremos por asignar a un valor el link del archivo escojido.
url<- "https://datanalytics.com/uploads/datos_treemap.txt"
  1. Para poder abrir nuestro archivo vamos a utilizar las siguientes funciones, que nos ayudaran a leer nuestro archivo y dentro del parentesis pondremos la ruta de nuestro archivo que anteriormente consultamos. Pondremos los argumentos necesarios para que nuestra archivo se cargue de la manera correcta.
getwd() —-> Lo utilizamos para obtener una ruta de archivo absoluta que representa el directorio de trabajo actual del proceso R
setwd() —-> Lo utilizamos para establecer el directorio de trabajo en dir.
getwd()
setwd("C:/Users/Usuario/Desktop")
destfile<-"D:/ClasesR/ejercicio5.csv"

Ejecución del código en R

SINTAXIS COMPLETA
##EJERCICIO 5

#Alternativamente, si quieres leer un fichero remoto, puedes descargarlo directamente desde R. 
#Consulta la ayuda de download.file para bajarte al disco duro el fichero del ejercicio anterior 
#(EJERCICIO 4) y leerlo después.

url<- "https://datanalytics.com/uploads/datos_treemap.txt"
getwd()
setwd("C:/Users/Usuario/Desktop")
destfile<-"D:/ClasesR/ejercicio5.csv"

download.file(url,destfile)
COLABORADOR: Phd.Francisco Valverde Alulema.