TAREA 5

Importar los datos de las siguientes bases de datos. Para cada una de las bases de datos,

   a. Mostrar solo las primeras cuatro lineas de cada uno luego de haberlos importado
   b. Mostrar un resumen con el comando "str( )" para cada base de datos:

El archivo de texto separado por espacios “dbase.txt” (el archivo debe de estar en el directorio de proyecto)

A <- read.table(file = 'dbase.txt', header=TRUE, sep='')
head(A, 4)
##   Col1 Col2 Col3
## 1  100   a1   b1
## 2  200   a2   b2
## 3  300   a3   b3
## 4  400   a3   b1
str(A)
## 'data.frame':    9 obs. of  3 variables:
##  $ Col1: int  100 200 300 400 500 600 700 800 900
##  $ Col2: chr  "a1" "a2" "a3" "a3" ...
##  $ Col3: chr  "b1" "b2" "b3" "b1" ...

La base de datos de la tercera hoja del archivo “datosexcel.xlsx” (el archivo debe de estar en el directorio de proyecto)

library(readxl)
B <- read_excel("datosexcel.xlsx", sheet= 3)
head(B, 4)
## # A tibble: 4 x 5
##   hh.id piso     pared   rest.alim techo
##   <dbl> <chr>    <chr>   <chr>     <chr>
## 1     1 A.Tyles  1.Block No        zinc 
## 2     2 Concrete 1.Block Si        zinc 
## 3     3 Concrete 1.Block Si        zinc 
## 4     4 Dirt     adobe   Si        zinc
str(B)
## tibble [26 x 5] (S3: tbl_df/tbl/data.frame)
##  $ hh.id    : num [1:26] 1 2 3 4 5 6 7 8 9 10 ...
##  $ piso     : chr [1:26] "A.Tyles" "Concrete" "Concrete" "Dirt" ...
##  $ pared    : chr [1:26] "1.Block" "1.Block" "1.Block" "adobe" ...
##  $ rest.alim: chr [1:26] "No" "Si" "Si" "Si" ...
##  $ techo    : chr [1:26] "zinc" "zinc" "zinc" "zinc" ...

La primera hoja del archivo GoogleSheet “RPrin_Ejercicio”

library(googlesheets4); gs4_deauth()
ss <- "https://docs.google.com/spreadsheets/d/1-OogfmoMErF68IDHCpDbX0qKv4QXkjBAnCUvNhk8s2I/edit?usp=sharing"
C <- read_sheet(ss,
                sheet = "Hoja 1",
                col_names = TRUE)
## Reading from "RPrin_Ejercicio"
## Range "'Hoja 1'"
head(C, 4)
## # A tibble: 4 x 2
##   estat SEXO 
##   <dbl> <chr>
## 1  1.6  f    
## 2  1.72 f    
## 3  1.62 f    
## 4  1.58 f
str(C)
## tibble [19 x 2] (S3: tbl_df/tbl/data.frame)
##  $ estat: num [1:19] 1.6 1.72 1.62 1.58 1.63 1.63 1.56 1.7 1.75 1.65 ...
##  $ SEXO : chr [1:19] "f" "f" "f" "f" ...

Elegir una de las bases de datos e importarla utilizando el portapapeles (“clipboard”). mostrar las primeras cuatro lineas del archivo. (aquí utilizo una de las bases de datos, [Sheet2] del archivo de google)

D <- read.table("clipboard", header=TRUE)
head(D, 4)
##   growth  coat
## 1    6.6 light
## 2    7.2 light
## 3    6.9 light
## 4    8.3 light
str(D)
## 'data.frame':    12 obs. of  2 variables:
##  $ growth: num  6.6 7.2 6.9 8.3 7.9 9.2 8.3 8.7 8.1 8.5 ...
##  $ coat  : chr  "light" "light" "light" "light" ...

Adjuntar un documento con el código de la consola.

Nota: Tendrán que bajar los archivos y colocarlos en el directorio donde tienen su proyecto de R trabajando. Recomiendo ver el video de la última sesión.

Además, los paquetes necesarios siempre se deben cargar ( no instalar) en cada sesión. Se puede utilizar el comando ‘library(“paquete”)’