title: “Trabajo Final R TICS Grupo 02, SubGrupo 04”

author: “Danyely López Valdes B53975

Daniel Segura Saborio B97427

Nicole Monge Díaz B94966

Nicole Moya Retana B85463

Juan Pablo González A B78780”

date: “17/7/2022”

output:

html_document: default

pdf_document: default

library(readr)
contrataciones2021 <- read_delim("C:/Users/dolor/Downloads/contrataciones2021.csv", 
                                 delim = ";", escape_double = FALSE, col_types = cols(Monto = col_number(), 
                                                                                      `Monto estimado` = col_number()), 
                                 trim_ws = TRUE)
View(contrataciones2021)

## Warning: One or more parsing issues, see `problems()` for details

colnames(contrataciones2021) <- c("FechaNotificacion","Descripcion", 
                                     "NumeroProcedimiento", "Institucion", "NumeroContrato", "Ajudicatario", "CedulaAdjudicatario", 
                                     "Moneda", "Monto", "Modificaciones", "VigenciaContrato", "ClasificacionObjeto", "TipoModalidad", 
                                     "TipoProcedimiento", "FirmaContrato", "MonedaMontoEstimado", "MontoEstimado")
class(contrataciones2021$FechaNotificacion)

## [1] "character"

# link de la tabla punto A: https://rpubs.com/daniels123/925464
#Explicacion: Tal como se observa en la tabla anterior sobre las 10 instituciones publicas con mayor monto, RECOPE es la primera con una diferencia de casi 500 millones de colones sobre la segunda institucion la cual es el INAMU.

#Datos parte B
library(dplyr)

## Warning: package 'dplyr' was built under R version 4.1.3

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

filtro2 <- filter(contrataciones2021, Moneda == "CRC")
Seleccion1 <- select(filtro2, TipoProcedimiento, Monto)

library(Lock5Data)
library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.1.3

#Gráfico del punto B.
data <- data.frame(Seleccion1)
ggplot(data, aes(x=TipoProcedimiento, y=Monto)) + 
  geom_bar(stat = "identity") +
  coord_flip()

#Explicacion:Tal como se observa en el grafico de barras, el procedimiento con mayor monto es el de litación abreviada, seguido por la contratación directa, este grafico también muestra el poco monto utilizado en licitación pública internacional y procedimiento por principio.

# Link de la tabla punto C: https://rpubs.com/daniels123/925470
#Explicacion: Como se muestra en la tabla el mes 12 es el que mas monto percibe.

#Link de la tabla punto D: https://rpubs.com/daniels123/925478
#Explicacion: Tal como se observa en la tabla Productos de Oficina Centroamerica S.A es la adjudicatario con mas ventas al Estado en el 2021.

#Link de la tabla punto E: https://rpubs.com/daniels123/925482
#Explicacion: RECOPE es la institucion con mayor diferencia negativa y el adjudicatorio ING CONS  SAS SUCURSAL COSTA RICA.