UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE CIENCIAS ECONÓMICAS
INGENIERÍA EN ESTADÍSTICA
Autores: Caranqui Vanessa, Cevallos Gabriela, Loachamin Erika, Rosero Lennyn
Fecha de Publicación: 2022-12-18
Docente: Ing. Francisco Valverde
Trabajo sobre Data Frames
Realizar los siguientes ejercicios:
EJERCICIO 1
La tabla presenta la altura, en metros, de los arboles que se encuentran en 4 áreas de terreno.
| Área 1 | Área 2 | Área 3 | Área 4 |
|---|---|---|---|
| 7,5 | 12,5 | 11 | 12,5 |
| 12 | 10,5 | 8 | 16 |
| 14,5 | 13 | 7,5 | 9,5 |
| 9 | 9,5 | 10 | |
| 18,5 | 19 | ||
| 14 |
Resolver mediante el uso de R :
a) Crear 4 vectores numéricos, de tal forma que cada uno guarde la altura de los árboles de cada área de terreno.
Mediante la concatenación, se crearán los cuatro vectores:
Area1 <- c(7.5, 12, 14.5)## [1] 7.5 12.0 14.5Area2 <- c(12.5, 10.5, 13, 9, 18.5)## [1] 12.5 10.5 13.0 9.0 18.5Area3 <- c(11, 8, 7.5, 9.5, 19, 14)## [1] 11.0 8.0 7.5 9.5 19.0 14.0Area4 <- c(12.5, 16, 9.5, 10)## [1] 12.5 16.0 9.5 10.0b) Agrupar los 4 vectores generados, en una lista (estructura de datos).
Se creará un vector y así mismo se hará uso de la función list.
vectores <- list(Area1,Area2,Area3,Area4)## [[1]]
## [1] 7.5 12.0 14.5
##
## [[2]]
## [1] 12.5 10.5 13.0 9.0 18.5
##
## [[3]]
## [1] 11.0 8.0 7.5 9.5 19.0 14.0
##
## [[4]]
## [1] 12.5 16.0 9.5 10.0c) Determinar, para cada área de terreno, si la altura del primer árbol es mayor a la del último árbol.
Para poder calcular el área de cada terreno, se utilizará la función “if else”.
area1 <- vectores[[1]][1]
b1 <-vectores[[1]][3]
if (area1>b1) {
cat(area1, "Es la altura mayor a la del último árbol \n")
} else {
cat(b1, "Es la altura mayor a la del primer árbol \n")
}## 14.5 Es la altura mayor a la del primer árbolarea2 <- vectores[[2]][1]
b2 <-vectores[[2]][5]
if (area2>b2) {
cat(area2, "Es la altura mayor a la del último árbol \n")
} else {
cat(b2, "Es la altura mayor a la del primer árbol \n")
}## 18.5 Es la altura mayor a la del primer árbolarea3 <- vectores[[3]][1]
b3 <-vectores[[3]][6]
if (area3>b3) {
cat(area3, "Es la altura mayor a la del último árbol \n")
} else {
cat(b3, "Es la altura mayor a la del primer árbol \n")
}## 14 Es la altura mayor a la del primer árbolarea4 <- vectores[[4]][1]
b4 <-vectores[[4]][4]
if (area4>b4) {
cat(area4, "Es la altura mayor a la del ?ltimo ?rbol \n")
} else {
cat(b4, "Es la altura mayor a la del primer ?rbol \n")
}## 12.5 Es la altura mayor a la del último árbold) Determinar el logaritmo decimal de la altura del tercer arbol del área de terreno 3.
Se utilizará la función log10().
log <- print(vectores[[3]][3])
log
log10(log)## [1] 7.5
## [1] 0.8750613e) Determinar la suma de las alturas de los 3 primeros árboles del área de terreno 4.
Para calcular la suma de las alturas de los árboles mencionados, se usará la función sum, seguido de esto, se ubica la altura de los 3 primeros árboles del área del vector 4, para ubicar la altura del primer árbol del vector 4, se colocará ([[4]]), que es del área 4 del vector, después con un solo corchete se deberá incluir el elemento ([1]), el cual está tomando el elemento 1 de la lista 4, de igual manera se realizará con el segundo y el tercer árbol, es decir, ([[4]][2]) para el segundo árbol del vector 4, y ([[4]][3]) para el tercer árbol del vector 4.
sum(vectores[[4]][1],vectores[[4]][2],vectores[[4]][3])## [1] 38f) Determinar la altura media de los árboles del área de terreno 1.
Para obtener la altura media de los árboles, se hará uso de la función mean.
mean(Area1)## [1] 11.33333EJERCICIO 2
La tabla recopila información de 5 pacientes (sexo, presión arterial y pulsos por minuto), atendidos en un hospital.
| Sexo | Presión Arterial | Pulso por minuto |
|---|---|---|
| Hombre | 119 | 59 |
| Mujer | 99 | 89 |
| Hombre | 102 | 107 |
| Hombre | 78 | 76 |
| Mujer | 78 | 91 |
Calcular :
a) Elaborar un archivo de tipo texto (txt) que contenga los datos de la tabla anterior. Utilizar el tabulador para separar estos datos respecto de cada variable. Por favor, guardar este archivo en el escritorio de windows y llamarlo hospital.txt
Se copia la misma tabla en un archivo Excel para luego guardarlo en formato .txt, el cual separa las variables de sus propios datos.
b) Desde R leer el archivo antes mencionado y almacenar su contenido en una variable llamado datos.
Con el fin de que R pueda el archivo generado anteriormente, se deben instalar dos librerías, readr y rio, las cuales permiten la búsqueda e importación del archivo. Además, se debe asegurar la ubicación en la que se encuentre el documento.
library(readr)
getwd()
setwd("C:/Users/Cevallos/OneDrive - Universidad Central del Ecuador/Escritorio")
dir()
library("rio")
pacientes <- import("hospital.txt")
pacientes## [1] "1_BDD_ENS2018_f1_personas.csv"
## [2] "desktop.ini"
## [3] "Fall Guys.url"
## [4] "hospital.txt"
## [5] "KATY"
## [6] "Microsoft Edge.lnk"
## [7] "Microsoft Teams (work or school).lnk"
## [8] "prueba.html"
## [9] "prueba.Rmd"
## [10] "prueba.tex"
## [11] "Roblox Player.lnk"
## [12] "Roblox Studio.lnk"
## [13] "rsconnect"
## [14] "TALLER-4---GRUPO-6.html"
## [15] "TALLER-5-GRUPO-6.html"
## [16] "TALLER 4 - GRUPO 6.Rmd"
## [17] "TALLER 5 GRUPO 6.Rmd"Se creará la variable pacientes mediante la concatenación e importación del archivo.
## Sexo Presion Arterial Pulsos por minuto
## 1 Hombre 119 59
## 2 Mujer 99 89
## 3 Hombre 102 107
## 4 Hombre 78 76
## 5 Mujer 78 91Una vez creada la variable pacientes, se generará otra llamada datos, se utilizará la función data.frame().
datos <- data.frame(pacientes)
datos## Sexo Presion.Arterial Pulsos.por.minuto
## 1 Hombre 119 59
## 2 Mujer 99 89
## 3 Hombre 102 107
## 4 Hombre 78 76
## 5 Mujer 78 91c) Visualizar los valores para las 3 variables para el primer individuo y el cuarto individuo.
Para identificar la ubicación tanto del primer individuo y así también del cuarto, se hará uso de los corchetes.
datos[1, ]
datos[4, ]
datos [c(1,4), c(2,3)]## Presion.Arterial Pulsos.por.minuto
## 1 119 59
## 4 78 76d) Determine si la primera mujer (posición 2) tiene una presión arterial mayor que la segunda mujer (ubicada en la posición 5).
datos[[2]][[2]] > datos[[2]][[5]]## [1] TRUEe) Determinar la media del pulso de los hombres
Para obtener la media del pulso de los hombres, se crearán tres variables y posteriormente se sumarán cada uno de sus valores, por último se dividirá para el número de datos.
Hombre1 <- datos[[3]][[1]]
Hombre2 <- datos[[3]][[3]]
Hombre3 <- datos[[3]][[4]]
Media <- (sum(Hombre1, Hombre2, Hombre3))/3## La media del pulso de hombres es de: 80.66667f) Calcular la raíz cuadrada de la presión arterial del cuarto paciente.
Utilizando la función sqrt(), se obtendrá la raíz cuadrada de la presión arterial del cuarto paciente.
sqrt(datos[[2]][[4]])## La raíz cuadrada de la presión arterial del cuarto individuo es de: 8.831761