—

title: “Mi primer documento” author: “Antonia Caicedo” date: “2025-01-28” output: html_document —

INTRODUCCIÓN

Realizaremos un informe de la programación de transportes para las delegaciones de los diferentes hoteles donde se encuentran hospedados y los horarios de salida y retorno al hotel para el 7 de Noviembre.

DATOS

Vamos a tabular toda la programación de recorridos para el dia 7 de Noviembre, teniendo en cuenta el hotel, la delegación del país que se hospeda en el, el deporte que representa y los horarios de salida y llegada.

library(readxl)
PROGRAMACION_TRANSPORTES_7_NOVIEMBRE <- read_excel("~/Downloads/PROGRAMACION TRANSPORTES 7 NOVIEMBRE.xlsx")

## New names:
## • `` -> `...2`
## • `` -> `...3`
## • `` -> `...4`
## • `` -> `...5`
## • `` -> `...6`
## • `` -> `...7`
## • `` -> `...8`

head(PROGRAMACION_TRANSPORTES_7_NOVIEMBRE)

## # A tibble: 6 × 8
##   PROGRAMACION TRANSPORTES 7 NOVIEMB…¹ ...2  ...3  ...4  ...5  ...6  ...7  ...8 
##   <chr>                                <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 HOTEL                                DEPO… PAIS  HORA… HORA… HORA… ESCE… ACTI…
## 2 BLU 66                               NATA… CO    0.27… 0.33… 0.45… UNID… COMP…
## 3 BLU 66                               KARA… CO    0.29… 0.39… 0.70… ESCU… COMP…
## 4 BLU 66                               AJED… CO    0.29… 0.375 0.5   ESCU… COMP…
## 5 BLU 66                               FUTS… CO    0.35… 0.41… 0.52… UNIV… COMP…
## 6 BLU 66                               VOLE… CO    0.35… 0.41… 0.52… UNID… COMP…
## # ℹ abbreviated name: ¹​`PROGRAMACION TRANSPORTES 7 NOVIEMBRE`

RESULTADOS

Los resultados obtenidos nos permiten observar cuantos deportistas y que países tienen competencia en esta fecha

require(table1)

## Loading required package: table1

## 
## Attaching package: 'table1'

## The following objects are masked from 'package:base':
## 
##     units, units<-

PROGRAMACION_TRANSPORTES_7_NOVIEMBRE=data.frame(PROGRAMACION_TRANSPORTES_7_NOVIEMBRE)
PROGRAMACION_TRANSPORTES_7_NOVIEMBRE[,2]

##  [1] "DEPORTE"            "NATACION"           "KARATE DO"         
##  [4] "AJEDREZ"            "FUTSALA FEMENINO"   "VOLEIBOL FEMENINO" 
##  [7] "VOLEIBOL MASCULINO" "TAEKWONDO"          "AJEDREZ"           
## [10] "VOLEIBOL FEMENINO"  "NATACION"           "FUTSALA FEMENINO"  
## [13] "KARATE DO"          "AJEDREZ"            "FUTSALA MASCULINO" 
## [16] "TAEKWONDO"          "AJEDREZ"            "NATACION"          
## [19] "VOLEIBOL FEMENINO"  "AJEDREZ"            "FUTSALA MASCULINO" 
## [22] "VOLEIBOL MASCULINO" "TAEKWONDO"          "AJEDREZ"           
## [25] "FUTSALA MASCULINO"  "VOLEIBOL MASCULINO" "NATACION"          
## [28] "KARATE DO"          "AJEDREZ"            "VOLEIBOL FEMENINO" 
## [31] "FUTSALA FEMENINO"   "FUTSALA FEMENINO"   "TAEKWONDO"         
## [34] "AJEDREZ"            "VOLEIBOL MASCULINO"

PROGRAMACION_TRANSPORTES_7_NOVIEMBRE[,3]

##  [1] "PAIS"        "CO"          "CO"          "CO"          "CO"         
##  [6] "CO"          "CO"          "CO"          "CO"          "CL"         
## [11] "BR/CL/EC"    "CL"          "BR/CL/EC/HT" "CL/EC"       "CL"         
## [16] "BR/CL/EC"    "CL/EC"       "AR/US"       "AR"          "AR/US/GY"   
## [21] "AR"          "AR"          "AR/US"       "AR/US/GY"    "MX/PE"      
## [26] "PE"          "CR/MX"       "CR/MX"       "CR/MX"       "CR"         
## [31] "MX"          "CR"          NA            "CR/MX"       "CR"

PROGRAMACION_TRANSPORTES_7_NOVIEMBRE[,4]

##  [1] "HORA SALIDA HOTEL - ESCENARIO" "0.27083333333333331"          
##  [3] "0.29166666666666669"           "0.29166666666666669"          
##  [5] "0.35416666666666669"           "0.35416666666666669"          
##  [7] "0.4375"                        "0.52083333333333337"          
##  [9] "0.625"                         "0.26041666666666669"          
## [11] "0.26041666666666669"           "0.28125"                      
## [13] "0.29166666666666669"           "0.29166666666666669"          
## [15] "0.44791666666666669"           "0.52083333333333337"          
## [17] "0.60416666666666663"           "0.27083333333333331"          
## [19] "0.27083333333333331"           "0.3125"                       
## [21] "0.42708333333333331"           "0.52083333333333337"          
## [23] "0.52083333333333337"           "0.60416666666666663"          
## [25] "0.5"                           "0.51041666666666663"          
## [27] "0.26041666666666669"           "0.29166666666666669"          
## [29] "0.29166666666666669"           "0.34375"                      
## [31] "0.34375"                       "0.35416666666666669"          
## [33] "0.52083333333333337"           "0.59375"                      
## [35] "10:!5"

table1(~.,data = PROGRAMACION_TRANSPORTES_7_NOVIEMBRE[,2:3])

	Overall (N=35)
...2
AJEDREZ	8 (22.9%)
DEPORTE	1 (2.9%)
FUTSALA FEMENINO	4 (11.4%)
FUTSALA MASCULINO	3 (8.6%)
KARATE DO	3 (8.6%)
NATACION	4 (11.4%)
TAEKWONDO	4 (11.4%)
VOLEIBOL FEMENINO	4 (11.4%)
VOLEIBOL MASCULINO	4 (11.4%)
...3
AR	3 (8.6%)
AR/US	2 (5.7%)
AR/US/GY	2 (5.7%)
BR/CL/EC	2 (5.7%)
BR/CL/EC/HT	1 (2.9%)
CL	3 (8.6%)
CL/EC	2 (5.7%)
CO	8 (22.9%)
CR	3 (8.6%)
CR/MX	4 (11.4%)
MX	1 (2.9%)
MX/PE	1 (2.9%)
PAIS	1 (2.9%)
PE	1 (2.9%)
Missing	1 (2.9%)

Para mayor información se desea saber mediante una grafica el horario de salida de las delegaciones del hotel

plot(PROGRAMACION_TRANSPORTES_7_NOVIEMBRE[,4],type = "l")

## Warning in xy.coords(x, y, xlabel, ylabel, log): NAs introduced by coercion