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.
file.choose()
paro <- read.table(file = "C:\\Users\\Usuario\\Desktop\\paro.csv", header = T)
paro
tail(paro)
head(paro)
nrow(paro)
summary(paro)
# 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)
## [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
file.choose()
paro <- read.table(file = "C:\\Users\\Usuario\\Desktop\\paro.csv")
paro
tail(paro)
head(paro)
nrow(paro)
summary(paro)
# 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)
## [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
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)
##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)
## [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
ejer4 <- read.table(file = "https://datanalytics.com/uploads/datos_treemap.txt", header = T)
ejer4
##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
url<- "https://datanalytics.com/uploads/datos_treemap.txt"
getwd()
setwd("C:/Users/Usuario/Desktop")
destfile<-"D:/ClasesR/ejercicio5.csv"
##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)