FACULTAD DE CIENCIAS ECONOMICAS

Autores

-Johann Tul
-Bryan Venegas

PROBLEMA 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.

Leer el fichero paro.csv

getwd()

## [1] "C:/Users/Bryan/OneDrive - Universidad Central del Ecuador/Taller de R"

setwd("C:/Users/Bryan/OneDrive - Universidad Central del Ecuador/Clases de R")
Paro<- read.table(file="paro.csv",header = T, sep = "")

Para comprobar que esta correctamete importado uso: head, tail, nrow, summary. HEAD

head(Paro)

##    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

TAIL

tail(Paro)

##       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

NROW

nrow(Paro)

## [1] 8320

SUMMARY

summary(Paro)

##     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

VIEW

View(Paro)

Problema 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.

Leer el fichero paro.csv, sin la funcion header

setwd("C:/Users/Bryan/OneDrive - Universidad Central del Ecuador/Clases de R")
Paro<- read.table(file="paro.csv",header = F, sep = "")

HEAD

head(Paro)

##        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

TAIL

tail(Paro)

##           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

NROW

nrow(Paro)

## [1] 8321

SUMMARY

summary(Paro)

##       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

VIEW

View(Paro)

Problema 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).

Código para importar el nuevo archivo

#getwd()
setwd("C:/Users/Bryan/OneDrive - Universidad Central del Ecuador/Clases de R")
ba_da <- read.table(file="Alumnos 1.csv",header = T, sep = "\t")

HEAD

head(ba_da)

##   Apellido..Nombre.Nacionalidad..Fecha_Nacimiento.Lugar_Nacimiento.Sexo.Num_Documento.Fecha_Vencimiento.Datos_Padre.Datos_Madre.Estado.Civil.Fecha_Emisión..Código_Dactilar.Tipo_Sangre.Donante
## 1       Acaro Bustos ;Victor Erick;Ecuatoriana ;10/12/1997;Tungurahua;Masculino;1805141239;48167;Acaro Narvaez Eddison Marconi;Bustos Morejón Monica del Rosario;Soltero;44515;E2333O2323;O+;No
## 2          Armas Zavala;Julissa Dellania;Ecuatoriana;23/5/2000;Chimborazo;Femenino;604977637;46300;Armas Garces Efraín Eduardo;Zavala Zavala Mariela Elizabeth ;Soltera ;42648;V4443I4442;B+;No
## 3       Arroyo Quiñonez ;Génesis del Rocio;Ecuatoriana ;12/3/1999;Esmeralda;Femenino;250147600;46833;Arroyo España Wilinton Eucipio;Quiñonez Garcia Venus Rocio;Soltera ;43180;V433314221;B+;No
## 4                                 Bauz Mamallacta ;Nicole Jenny ;Ecuatoriana ;27/1/2003;Pichincha;Femenino;1752193084;44897;Bauz Miguel Angel ;Mamallacta Adela;Soltera ;40961;V4344V2242;O+;Si
## 5                                 Bustamante Morocho;Itamar Rashel ;Ecuatoriano;15/6/2001;Pichincha;Femenino;1725457566;47544;Bustamante Galo ;Morocho Liduvina;Soltera ;43863;V4343-2222;O+;Si
## 6                            Caizaguano Cislema ;Natali Daniela;Ecuatoriana;14/2/2001;Pichincha;Femenino;1751275858;47282; -;Caizaguano Cislema Maria Cristina ;Soltera ;43629;V4343I4222;O+;No

TAIL

tail(ba_da)

##    Apellido..Nombre.Nacionalidad..Fecha_Nacimiento.Lugar_Nacimiento.Sexo.Num_Documento.Fecha_Vencimiento.Datos_Padre.Datos_Madre.Estado.Civil.Fecha_Emisión..Código_Dactilar.Tipo_Sangre.Donante
## 34                                          Sanchez Suarez ;Melany Odalis ;Ecuatoriana;22/3/1999;Pichincha;Femenino;1720850617;48164;Sanchez Juan;Hipatia Suarez;Soltera ;44512;V1333V2222;A+;Si
## 35                           Tashiguano Andrango ;Anshy Estefania ;Ecuatoriana ;3/4/2000;Pichincha;Femenino;1750803536;45791;Tashiguano Geovany ;Andrango Tania ;Soltera ;42138;E4443V4222;O+;No
## 36                                            Toapanta Reyes ;Erik Alexis ;Ecuatoriano ;13/2/1996;Pichincha;Masculino;1725745440;46159;Milton Toapanta ;Yolanda Reyes;Soltero;43294;V44V21;A-;No
## 37              Velez Carrion ;Anahi Soledad ;Ecuatoriana;13/8/2000;Pichincha;Femenino;1727739284;47134;Velez Almeida Edgar Ramon ;Carrion Villalta Silvia Noemi ;Soltera ;43481;V2333V322;A+;Si
## 38           Venegas Andachi ;Bryan Javier;Ecuatoriano ;11/11/2000;Pichincha;Masculino;1723265490;47072;Venegas Vela Marco Vinicio ;Andachi Yanes Cecilia Raquel ;Soltero;43419;E1333A1122;O+;Si
## 39                          Villalba Merino;Robert Josue;Ecuatoriano;14/3/2002;Pastaza;Masculino;1600238364;45890;Villalba Yambay Robalino ;Merino Arias Araselli;Soltero;42237;E3312I2424;O+;Si

NROW

nrow(ba_da)

## [1] 39

SUMMARY

summary(ba_da)

##  Apellido..Nombre.Nacionalidad..Fecha_Nacimiento.Lugar_Nacimiento.Sexo.Num_Documento.Fecha_Vencimiento.Datos_Padre.Datos_Madre.Estado.Civil.Fecha_Emisión..Código_Dactilar.Tipo_Sangre.Donante
##  Length:39                                                                                                                                                                                    
##  Class :character                                                                                                                                                                             
##  Mode  :character

VIEW

View(ba_da)

Problema 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.

Código para importar el nuevo archivo

web1<- "https://datanalytics.com/uploads/datos_treemap.txt"
download.file(web1, "datos_treemap.txt")

Problema 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 5) y leerlo después.

Web<- read.table(web1);Web

##       V1    V2    V3
## 1  valor   cap   div
## 2    ABE  7793 12.04
## 3    ABG  1473  1.23
## 4    ACS  7930  8.13
## 5    ACX  2217  5.06
## 6    AMS  5910  2.27
## 7    ANA  3760  5.24
## 8   BBVA 24819  8.34
## 9    BKT  1646  5.85
## 10   BME  1589 10.38
## 11  CABK 11644  6.48
## 12   ELE 17215  3.08
## 13   ENG  3092  6.47
## 14   EVA  1971   6.7
## 15   FCC  2026  8.99
## 16   FER  5780  5.33
## 17   GAM   838   0.2
## 18   GAS 11022  7.24
## 19   GRF  2978  <NA>
## 20   IBE 25989  7.51
## 21  ICAG  3193  <NA>
## 22   IDR  1904  5.86
## 23   ITX 36571  2.39
## 24   MAP  6446  7.17
## 25   MTS 20577  1.82
## 26   OHL  1721  2.84
## 27   POP  4392  5.58
## 28   REE  4239  5.98
## 29   REP 22885   5.6
## 30   SAB  3433  5.67
## 31   SAN 44430 11.38
## 32   SYV  1823  2.32
## 33   TEF 57917 11.03
## 34   TL5  1652  8.62
## 35   TRE  1336  5.61

Taller 7

Grupo 8

2022-15-01

UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONOMICAS

PROBLEMA 1

Problema 2

Problema 3

Problema 4

Problema 5