TALLER-APE 8: Trabajo sobre Data Frames
Grupo 3
UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE CIENCIAS ECONÓMICAS
CARRERA DE INGENIERÍA ESTADÍSTICA
INTEGRANTES:
- John Escorza
- Erika Ortiz
- Lesly Proaño
- Josheline Quilumbaquin
EJERCICIO 1
La tabla presenta la altura, en metros, de los arboles que se encuentran en 4 áreas de terreno.
Resolver mediante el uso de R :
- a.- Crear 4 vectores numéricos, de tal forma que cada uno guarde #la altura de los arboles de cada área de terreno
Area1<-c(7.5,12,14.5)
Area2<-c(12.5,10.5,13,9,18.5)
Area3<-c(11,8,7.5,9.5,19,14)
Area4<-c(12.5,16,9.5,10)- b.- Agrupar los 4 vectores generados, en una lista (estructura de datos)
datos<-list(Area1,Area2,Area3,Area4)
datos## [[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.0names(datos) <- c("Area1","Area2","Area3","Area4")
datos## $Area1
## [1] 7.5 12.0 14.5
##
## $Area2
## [1] 12.5 10.5 13.0 9.0 18.5
##
## $Area3
## [1] 11.0 8.0 7.5 9.5 19.0 14.0
##
## $Area4
## [1] 12.5 16.0 9.5 10.0- c.- Determinar, para cada area de terreno, si la altura del primer arbol es mayor a la del último árbol
datos$Area1[1] > datos$Area1[3]## [1] FALSEdatos$Area2[1] > datos$Area2[3]## [1] FALSEdatos$Area3[1] > datos$Area3[6]## [1] FALSEdatos$Area4[1] > datos$Area4[4]## [1] TRUE- d.- Determinar el logaritmo decimal de la altura del tercer arbol del área de terreno 3.
logaritmo<-log10(datos[[3]][3])
logaritmo## [1] 0.8750613- e.- Determinar la suma de las alturas de los 3 primeros árboles del área de terreno 4
sum(datos$Area4[1:3])## [1] 38- f.- Determinar la altura media de los árboles del área de terreno 1.
mean(datos[[1]])## [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<-c("Hombre","Mujer","Hombre","Hombre","Mujer")
Presion_arterial<-c(119,99,102,78,78)
Pulso_x_min<-c(59,89,107,76,91)
paciente<-data.frame(sexo,Presion_arterial,Pulso_x_min)
paciente## sexo Presion_arterial Pulso_x_min
## 1 Hombre 119 59
## 2 Mujer 99 89
## 3 Hombre 102 107
## 4 Hombre 78 76
## 5 Mujer 78 91- 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
#install.packages("readr")
#library(readr)
#install.packages("rio")
#library(rio)
#file.choose()
ruta1<-"C:\\Users\\qnoem\\OneDrive\\Documentos\\PROGRAMACION II\\Hospital.txt"
pacientes<-read.table(ruta1,header = T, sep = "\t")
pacientes## Sexo Presion_Arterial Pulso_x_min
## 1 Hombre 119 59
## 2 Mujer 99 89
## 3 Hombre 102 107
## 4 Hombre 78 76
## 5 Mujer 78 91View(pacientes)- b.- Desde R leer el archivo antes mencionado y almacenar su contenido en una variable llamado datos.
datos<-data.frame(pacientes)
datos## Sexo Presion_Arterial Pulso_x_min
## 1 Hombre 119 59
## 2 Mujer 99 89
## 3 Hombre 102 107
## 4 Hombre 78 76
## 5 Mujer 78 91- c.- Visualizar los valores para las 3 variables para el primer individuo y el cuarto individuo
datos[2,]## Sexo Presion_Arterial Pulso_x_min
## 2 Mujer 99 89datos[5,]## Sexo Presion_Arterial Pulso_x_min
## 5 Mujer 78 91-d.- Determine si la primera mujer (posición 2) tiene una presión arterial mayor que la segunda mujer (ubicada en la posición 5)
m1<-datos[3,2]
m1## [1] 102m2<-datos[5,2]
m2## [1] 78m1>m2## [1] TRUE-e.- Determinar la media del pulso de los hombres
pulso_hom<-c(datos[1,3],datos[3,3],datos[4,3])
pulso_hom## [1] 59 107 76media<-mean(pulso_hom)
media## [1] 80.66667-f.- Calcular la raíz cuadrada de la presión arterial del cuarto paciente
pres_paciente4<-sqrt(datos[4,2])
pres_paciente4## [1] 8.831761