nombre_y_apellido <- c("Luis Martinez", "Isaac Lopez", "Paula Vergara", "Keiner Mendoza", "Ariadna Martinez", "Gerson Yanez", "Edilxon Contreras", "Lysmari Chivico", "Juleynis Gonzales", "Sebastian Lopez", "Marlon Barrios", "Julieth Orozco", "Yuliana Acevedo", "Yubalis Lopez", "Steffanny Florez", "Gabriela Jimenez", "Laura Hernandez", "Luisana Doria", "Adrian Cuesta", "Andres Olmos", "Felix Galeano", "Alex Zuluaga", "Tomas Ozuna", "Maria Carmona", "Sara Batanero", "Keyndri Velaidez", "Keyla Garrido", "Rafael Ortega", "Abrahan Magallanes")
edad <- c(19, 19, 20, 19, 19, 20, 20, 21, 19, 19, 19, 20, 20, 22, 19, 19, 20, 19, 23, 19, 20, 21, 20, 20, 19, 19, 20, 20, 20)
lugar <- c("sincelejo", "sincelejo", "sincelejo", "toluviejo", "corozal", "sincelejo", "sampues", "sincelejo", "sincelejo", "san marcos", "sincelejo", "sincelejo", "sincelejo", "caimito", "sincelejo", "maicao", "sincelejo", "san pedro", "sincelejo", "corozal", "sincelejo", "coloso", "sincelejo", "pereira", "bogota", "magangue", "varsovia", "corozal", "palmito")
estatura <- c(1.57, 1.80, 1.65, 1.70, 1.48, 1.80, 1.68, 1.54, 1.66, 1.76, 1.71, 1.73, 1.73, 1.58, 1.65, 1.63, 1.53, 1.68, 1.68, 1.80, 1.85, 1.70, 1.77, 1.60, 1.50, 1.53, 1.45, 1.77, 1.74)
peso_kg <- c(59, 83, 57, 60, 51, 60, 58, 51, 48, 60, 58, 55, 65, 46, 48, 60, 63, 60, 54, 75, 80, 78, 82, 57, 49, 52, 45, 80, 69)
dinero_diario_mil <- c(50.000, 30.000, 20.000, 40.000, 20.000, 25.000, 20.000, 20.000, 10.000, 10.000, 6.000, 10.000, 15.000, 25.000, 25.000, 20.000, 20.000, 15.000, 7.000, 0, 0, 20.000, 0, 10.000, 5.000, 1.500, 1.500, 0, 0 )
datos <- data.frame(
nombre_y_apellido,
edad,
lugar,
estatura,
peso_kg,
dinero_diario_mil
)
knitr::kable(datos, caption = "Tabla de datos")
Tabla de datos
| Luis Martinez |
19 |
sincelejo |
1.57 |
59 |
50.0 |
| Isaac Lopez |
19 |
sincelejo |
1.80 |
83 |
30.0 |
| Paula Vergara |
20 |
sincelejo |
1.65 |
57 |
20.0 |
| Keiner Mendoza |
19 |
toluviejo |
1.70 |
60 |
40.0 |
| Ariadna Martinez |
19 |
corozal |
1.48 |
51 |
20.0 |
| Gerson Yanez |
20 |
sincelejo |
1.80 |
60 |
25.0 |
| Edilxon Contreras |
20 |
sampues |
1.68 |
58 |
20.0 |
| Lysmari Chivico |
21 |
sincelejo |
1.54 |
51 |
20.0 |
| Juleynis Gonzales |
19 |
sincelejo |
1.66 |
48 |
10.0 |
| Sebastian Lopez |
19 |
san marcos |
1.76 |
60 |
10.0 |
| Marlon Barrios |
19 |
sincelejo |
1.71 |
58 |
6.0 |
| Julieth Orozco |
20 |
sincelejo |
1.73 |
55 |
10.0 |
| Yuliana Acevedo |
20 |
sincelejo |
1.73 |
65 |
15.0 |
| Yubalis Lopez |
22 |
caimito |
1.58 |
46 |
25.0 |
| Steffanny Florez |
19 |
sincelejo |
1.65 |
48 |
25.0 |
| Gabriela Jimenez |
19 |
maicao |
1.63 |
60 |
20.0 |
| Laura Hernandez |
20 |
sincelejo |
1.53 |
63 |
20.0 |
| Luisana Doria |
19 |
san pedro |
1.68 |
60 |
15.0 |
| Adrian Cuesta |
23 |
sincelejo |
1.68 |
54 |
7.0 |
| Andres Olmos |
19 |
corozal |
1.80 |
75 |
0.0 |
| Felix Galeano |
20 |
sincelejo |
1.85 |
80 |
0.0 |
| Alex Zuluaga |
21 |
coloso |
1.70 |
78 |
20.0 |
| Tomas Ozuna |
20 |
sincelejo |
1.77 |
82 |
0.0 |
| Maria Carmona |
20 |
pereira |
1.60 |
57 |
10.0 |
| Sara Batanero |
19 |
bogota |
1.50 |
49 |
5.0 |
| Keyndri Velaidez |
19 |
magangue |
1.53 |
52 |
1.5 |
| Keyla Garrido |
20 |
varsovia |
1.45 |
45 |
1.5 |
| Rafael Ortega |
20 |
corozal |
1.77 |
80 |
0.0 |
| Abrahan Magallanes |
20 |
palmito |
1.74 |
69 |
0.0 |