Llenado de vectores
nombres<-c("Ruben", "Carlos","Marco","Sergio","Juan","Oscar","Miguel","Juanita","Antonio","Paulina","José","Hernesto","Jose Manuel","Irvin","Roberto","Jaime","Norma","Laura","Alejandra","Elva")
edades <-c(18,23,25,23,26,23,23,26,22,22,23,23,26,22,22,12,26,30,25,20)
Construcción del dataframe
personas <- data.frame(nombres,edades)
personas
## nombres edades
## 1 Ruben 18
## 2 Carlos 23
## 3 Marco 25
## 4 Sergio 23
## 5 Juan 26
## 6 Oscar 23
## 7 Miguel 23
## 8 Juanita 26
## 9 Antonio 22
## 10 Paulina 22
## 11 José 23
## 12 Hernesto 23
## 13 Jose Manuel 26
## 14 Irvin 22
## 15 Roberto 22
## 16 Jaime 12
## 17 Norma 26
## 18 Laura 30
## 19 Alejandra 25
## 20 Elva 20
Impresión de resultados
median(personas$edades)
## [1] 23
min(personas$edades)
## [1] 12
max(personas$edades)
## [1] 30
personas[which.min(personas$edades),]
## nombres edades
## 16 Jaime 12
personas[which.max(personas$edades),]
## nombres edades
## 18 Laura 30
barplot(personas$edades ~ personas$nombres)
