# LIBRERIAS
library(tibble)
library(ggrepel)
library(forcats)
library(knitr)
library(zoo)
library(dplyr)
library(tidyr)
library(leaflet)
library(rgdal)
library(DT)
library(sf)
library(readxl)
library(ggplot2)
library(googlesheets4)
library(writexl)
library(kableExtra)
library(viridis)
library(janitor)
library(leaflet)
library(DT)
library(fresh)
library(data.table)
library(lubridate)
library(units)
library(measurements)
library(gapminder)
library(plotly)
# BAJO AUTOPISTA
kobo_bajo_autopista_cuviv <- read_sheet("https://docs.google.com/spreadsheets/d/15JapaPJSppTENGFjzLFsVsh4wkYZT1pNeTD6iK7hvBE/edit#gid=85771412",
sheet = 5,col_types = "c", .name_repair = ~ make.names(.x, unique = TRUE), skip=2)%>%
filter(!is.na(CUViv))%>%
mutate(ID_PARCELA = substr(CUViv, 1,11),
fecha_prerrelevamiento = as.Date(Fecha.Pre.Relevamiento,"%d/%m/%Y"),
fecha_relevamiento_tecnico = as.Date(Fecha.de.Relevamiento.Técnico, "%d/%m/%Y"),
fecha_relevamiento_social = as.Date(Fecha.de.Relevamiento.Social, "%d/%m/%Y"),
fecha_anteproyecto = as.Date(AP.Realizado, "%d/%m/%Y"),
fecha_adhesion_empresa = as.Date(Firma.Carta.de.Adhesión...Empresa, "%d/%m/%Y"),
fecha_adhesion_mao = as.Date(Firma.Carta.de.Adhesión...MaO, "%d/%m/%Y"),
fecha_proyecto = as.Date(PRO.Realizado, "%d/%m/%Y"),
fecha_envio_obra = as.Date(PRO.Validado,"%d/%m/%Y"),
fecha_inicio = as.Date(Fecha.Inicio.de.Obra, "%d/%m/%Y"),
fecha_fin = as.Date(Fecha.de.Fin.de.Obra, "%d/%m/%Y"),
programa = "bajo_autopista",
hogares = as.numeric(Cantidad.de.Hogares),
intervenciones = as.numeric(Intervenciones),
intervencion_01 = Intervención.01,
intervencion_02 = Intervención.02,
intervencion_03 = Intervención.03,
contrato = Contrato,
empresa = case_when(contrato == "UM2" ~ "Los Tilos/KIR",
contrato == "UM3-R1" ~ "Villarex",
contrato == "UM3-R2" ~ "Grupo Mitre",
contrato == "UM4-R1" ~ "Villarex",
contrato == "UM4-R2" ~ "Grupo Mitre",
contrato == "UM5-R1" ~ "Blue Steel"),
nombre = Nombre.y.Apellido,
apellido = "",
Cantidad.de.Habitantes = as.numeric(Cantidad.de.Habitantes))
kobo_bajo_autopista_cuviv <- kobo_bajo_autopista_cuviv%>%
select(CUViv, ID_PARCELA, Sector, fecha_prerrelevamiento, fecha_relevamiento_tecnico, fecha_relevamiento_social,fecha_anteproyecto,fecha_adhesion_empresa, fecha_adhesion_mao, fecha_envio_obra, fecha_proyecto, fecha_inicio, fecha_fin, programa, hogares, intervenciones, intervencion_01, intervencion_02, intervencion_03, contrato, empresa, nombre, apellido, Arquitecta.o, Gestor.a.Comunitario.a, Cantidad.de.Ambientes, Cantidad.de.Habitantes, Cantidad.de.Habitantes.por.Ambiente, Cantidad.de.menores.de.18, Cantidad.de.Hogares, Tenencia, Estado.Estructural, Baja)
bajo_autopista_resumen <- kobo_bajo_autopista_cuviv %>%
group_by(programa)%>%
summarise(prerrelevamiento__uf = sum(!is.na(unique(CUViv[fecha_prerrelevamiento>= as.Date("01/09/2020", "%d/%m/%Y")]))),
prerrelevamiento__par = sum(!is.na(unique(ID_PARCELA[fecha_prerrelevamiento>= as.Date("01/09/2020", "%d/%m/%Y")]))),
prerrelevamiento__hog = sum(hogares[fecha_prerrelevamiento>= as.Date("01/09/2020", "%d/%m/%Y")], na.rm = TRUE),
prerrelevamiento__per = sum(Cantidad.de.Habitantes[fecha_prerrelevamiento>= as.Date("01/09/2020", "%d/%m/%Y")], na.rm = TRUE),
prerrelevamiento__int = sum(intervenciones[fecha_prerrelevamiento>= as.Date("01/09/2020", "%d/%m/%Y")], na.rm = TRUE),
relevamiento_tecnico__uf = sum(!is.na(unique(CUViv[fecha_relevamiento_tecnico>= as.Date("01/09/2020", "%d/%m/%Y")]))),
relevamiento_tecnico__par = sum(!is.na(unique(ID_PARCELA[fecha_relevamiento_tecnico>= as.Date("01/09/2020", "%d/%m/%Y")]))),
relevamiento_tecnico__hog = sum(hogares[fecha_relevamiento_tecnico>= as.Date("01/09/2020", "%d/%m/%Y")], na.rm = TRUE),
relevamiento_tecnico__per = sum(Cantidad.de.Habitantes[fecha_relevamiento_tecnico>= as.Date("01/09/2020", "%d/%m/%Y")], na.rm = TRUE),
relevamiento_tecnico__int = sum(intervenciones[fecha_relevamiento_tecnico>= as.Date("01/09/2020", "%d/%m/%Y")], na.rm = TRUE),
relevamiento_social__uf = sum(!is.na(unique(CUViv[fecha_relevamiento_social>= as.Date("01/09/2020", "%d/%m/%Y")]))),
relevamiento_social__par = sum(!is.na(unique(ID_PARCELA[fecha_relevamiento_social>= as.Date("01/09/2020", "%d/%m/%Y")]))),
relevamiento_social__hog = sum(hogares[fecha_relevamiento_social>= as.Date("01/09/2020", "%d/%m/%Y")], na.rm = TRUE),
relevamiento_social__per = sum(Cantidad.de.Habitantes[fecha_relevamiento_social>= as.Date("01/09/2020", "%d/%m/%Y")], na.rm = TRUE),
relevamiento_social__int = sum(intervenciones[fecha_relevamiento_social>= as.Date("01/09/2020", "%d/%m/%Y")], na.rm = TRUE),
anteproyecto__uf = sum(!is.na(unique(CUViv[(fecha_anteproyecto>= as.Date("01/09/2020", "%d/%m/%Y"))]))),
anteproyecto__par = sum(!is.na(unique(ID_PARCELA[(fecha_anteproyecto>= as.Date("01/09/2020", "%d/%m/%Y"))]))),
anteproyecto__hog = sum(hogares[(fecha_anteproyecto>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
anteproyecto__per = sum(Cantidad.de.Habitantes[(fecha_anteproyecto>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
anteproyecto__int = sum(intervenciones[(fecha_anteproyecto>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
adhesion_empresa__uf = sum(!is.na(unique(CUViv[(fecha_adhesion_empresa>= as.Date("01/09/2020", "%d/%m/%Y"))]))),
adhesion_empresa__par = sum(!is.na(unique(ID_PARCELA[(fecha_adhesion_empresa>= as.Date("01/09/2020", "%d/%m/%Y"))]))),
adhesion_empresa__hog = sum(hogares[(fecha_adhesion_empresa>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
adhesion_empresa__per = sum(Cantidad.de.Habitantes[(fecha_adhesion_empresa>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
adhesion_empresa__int = sum(intervenciones[(fecha_adhesion_empresa>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
adhesion_mao__uf = sum(!is.na(unique(CUViv[(fecha_adhesion_mao>= as.Date("01/09/2020", "%d/%m/%Y"))]))),
adhesion_mao__par = sum(!is.na(unique(ID_PARCELA[(fecha_adhesion_mao>= as.Date("01/09/2020", "%d/%m/%Y"))]))),
adhesion_mao__hog = sum(hogares[(fecha_adhesion_mao>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
adhesion_mao__per = sum(Cantidad.de.Habitantes[(fecha_adhesion_mao>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
adhesion_mao__int = sum(intervenciones[(fecha_adhesion_mao>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
proyecto__uf = sum(!is.na(unique(CUViv[(fecha_proyecto>= as.Date("01/09/2020", "%d/%m/%Y"))]))),
proyecto__par = sum(!is.na(unique(ID_PARCELA[(fecha_proyecto>= as.Date("01/09/2020", "%d/%m/%Y"))]))),
proyecto__hog = sum(hogares[(fecha_proyecto>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
proyecto__per = sum(Cantidad.de.Habitantes[(fecha_proyecto>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
proyecto__int = sum(intervenciones[(fecha_proyecto>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
envio_obra__uf = sum(!is.na(unique(CUViv[(fecha_envio_obra>= as.Date("01/09/2020", "%d/%m/%Y"))]))),
envio_obra__par = sum(!is.na(unique(ID_PARCELA[(fecha_envio_obra>= as.Date("01/09/2020", "%d/%m/%Y"))]))),
envio_obra__hog = sum(hogares[(fecha_envio_obra>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
envio_obra__per = sum(Cantidad.de.Habitantes[!(fecha_envio_obra>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
envio_obra__int = sum(intervenciones[(fecha_envio_obra>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
inicio__uf = sum(!is.na(unique(CUViv[(fecha_inicio>= as.Date("01/09/2020", "%d/%m/%Y"))]))),
inicio__par = sum(!is.na(unique(ID_PARCELA[(fecha_inicio>= as.Date("01/09/2020", "%d/%m/%Y"))]))),
inicio__hog = sum(hogares[(fecha_inicio>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
inicio__per = sum(Cantidad.de.Habitantes[(fecha_inicio>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
inicio__int = sum(intervenciones[(fecha_inicio>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
fin__uf = sum(!is.na(unique(CUViv[(fecha_fin>= as.Date("01/09/2020", "%d/%m/%Y"))]))),
fin__par = sum(!is.na(unique(ID_PARCELA[(fecha_fin>= as.Date("01/09/2020", "%d/%m/%Y"))]))),
fin__hog = sum(hogares[(fecha_fin>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
fin__per = sum(Cantidad.de.Habitantes[(fecha_fin>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE),
fin__int = sum(intervenciones[(fecha_fin>= as.Date("01/09/2020", "%d/%m/%Y"))], na.rm = TRUE))
bajo_autopista_resumen %>% t() %>% as.data.frame()%>% row_to_names(row_number = 1)%>%
rownames_to_column("tipo")%>%
separate(tipo, c("tipo","Nivel"), sep = "__")%>%
select(!1) %>%
mutate(Nivel = case_when(Nivel == "uf" ~ "Unidades Funcionales",
Nivel == "par" ~ "Parcelas",
Nivel == "hog" ~ "Hogares",
Nivel == "int" ~ "Intervenciones",
Nivel == "per" ~ "Personas"))%>%
kable(col.names = c("","Bajo Autopista"),align=c("l","l"))%>%
kable_styling(c("striped", "bordered"))%>%
pack_rows(index = c("Prerrelevamiento" = 5, "Relevamiento Técnico" = 5, "Relevamiento Social" = 5, "Anteproyecto" = 5, "Adhesión Empresa" = 5, "Adhesión MaO" = 5, "Proyecto" = 5, "Envío a Obra" = 5, "Inicio de Obra" = 5, "Fin de Obra" = 5))
|
|
Bajo Autopista
|
|
Prerrelevamiento
|
|
Unidades Funcionales
|
596
|
|
Parcelas
|
284
|
|
Hogares
|
464
|
|
Personas
|
1659
|
|
Intervenciones
|
137
|
|
Relevamiento Técnico
|
|
Unidades Funcionales
|
244
|
|
Parcelas
|
111
|
|
Hogares
|
7
|
|
Personas
|
651
|
|
Intervenciones
|
241
|
|
Relevamiento Social
|
|
Unidades Funcionales
|
249
|
|
Parcelas
|
118
|
|
Hogares
|
0
|
|
Personas
|
737
|
|
Intervenciones
|
247
|
|
Anteproyecto
|
|
Unidades Funcionales
|
184
|
|
Parcelas
|
85
|
|
Hogares
|
0
|
|
Personas
|
435
|
|
Intervenciones
|
314
|
|
Adhesión Empresa
|
|
Unidades Funcionales
|
105
|
|
Parcelas
|
50
|
|
Hogares
|
0
|
|
Personas
|
261
|
|
Intervenciones
|
200
|
|
Adhesión MaO
|
|
Unidades Funcionales
|
34
|
|
Parcelas
|
24
|
|
Hogares
|
0
|
|
Personas
|
96
|
|
Intervenciones
|
76
|
|
Proyecto
|
|
Unidades Funcionales
|
111
|
|
Parcelas
|
49
|
|
Hogares
|
0
|
|
Personas
|
263
|
|
Intervenciones
|
203
|
|
Envío a Obra
|
|
Unidades Funcionales
|
98
|
|
Parcelas
|
43
|
|
Hogares
|
0
|
|
Personas
|
0
|
|
Intervenciones
|
185
|
|
Inicio de Obra
|
|
Unidades Funcionales
|
57
|
|
Parcelas
|
25
|
|
Hogares
|
0
|
|
Personas
|
151
|
|
Intervenciones
|
104
|
|
Fin de Obra
|
|
Unidades Funcionales
|
2
|
|
Parcelas
|
2
|
|
Hogares
|
0
|
|
Personas
|
8
|
|
Intervenciones
|
3
|
bajo_autopista_totales <- kobo_bajo_autopista_cuviv%>%
select(1:13)%>%
gather(key = tipo, value = fecha,4:13)%>%
group_by(año_mes = floor_date(fecha, "month"))%>%
summarise(prerrelevamiento = sum(tipo == "fecha_prerrelevamiento"),
relevamiento_tecnico = sum(tipo == "fecha_relevamiento_tecnico"),
relevamiento_social = sum(tipo == "fecha_relevamiento_social"),
anteproyecto = sum(tipo == "fecha_anteproyecto"),
adhesion_empresa = sum(tipo == "fecha_adhesion_empresa"),
adhesion_mao = sum(tipo == "fecha_adhesion_mao"),
proyecto = sum(tipo == "fecha_proyecto"),
envio_obra = sum(tipo == "fecha_envio_obra"),
inicio = sum(tipo == "fecha_inicio"),
fin = sum(tipo == "fecha_fin"))%>%
gather(key = tipo, value = cantidad, 2:11)%>%
filter(año_mes >= as.Date("01/09/2020", "%d/%m/%Y"))%>%
group_by(tipo)%>%
summarise(cantidad = sum(cantidad))%>%
mutate(tipo = factor(tipo, levels=c("prerrelevamiento", "relevamiento_tecnico", "relevamiento_social", "anteproyecto", "adhesion_empresa", "adhesion_mao", "proyecto", "envio_obra", "inicio", "fin")),
cantidad = as.numeric(cantidad))
bajo_autopista_totales
## # A tibble: 10 x 2
## tipo cantidad
## <fct> <dbl>
## 1 adhesion_empresa 105
## 2 adhesion_mao 34
## 3 anteproyecto 184
## 4 envio_obra 98
## 5 fin 2
## 6 inicio 57
## 7 prerrelevamiento 596
## 8 proyecto 111
## 9 relevamiento_social 249
## 10 relevamiento_tecnico 244
bajo_autopista_totales%>%
mutate(Prerrelevamiento = round(cantidad[tipo=="prerrelevamiento"]/cantidad,2),
"Relevamiento Técnico" = round(cantidad[tipo=="relevamiento_tecnico"]/cantidad,2),
"Relevamiento Social" = round(cantidad[tipo=="relevamiento_social"]/cantidad,2),
"Anteproyecto" = round(cantidad[tipo=="anteproyecto"]/cantidad,2),
"Adhesión Empresa" = round(cantidad[tipo=="adhesion_empresa"]/cantidad,2),
"Adhesión MAO" = round(cantidad[tipo=="adhesion_mao"]/cantidad,2),
"Proyecto" = round(cantidad[tipo=="proyecto"]/cantidad,2),
"Envío a Obra" = round(cantidad[tipo=="envio_obra"]/cantidad,2),
"Inicio de Obra" = round(cantidad[tipo=="inicio"]/cantidad,2),
"Fin de Obra" = round(cantidad[tipo=="fin"]/cantidad,2),
tipo = case_when(tipo == "prerrelevamiento" ~ "Prerrelevamiento",
tipo == "relevamiento_tecnico" ~ "Relevamiento Técnico",
tipo == "relevamiento_social" ~ "Relevamiento Social",
tipo == "anteproyecto" ~ "Anteproyecto",
tipo == "adhesion_empresa" ~ "Adhesión Empresa",
tipo == "adhesion_mao" ~ "Adhesión MAO",
tipo == "proyecto" ~ "Proyecto",
tipo == "envio_obra" ~ "Envío a Obra",
tipo == "inicio" ~ "Inicio de Obra",
tipo == "fin" ~ "Fin de Obra",
TRUE ~ ""),
tipo = factor(tipo, levels=c("Prerrelevamiento", "Relevamiento Técnico", "Relevamiento Social", "Anteproyecto", "Adhesión Empresa", "Adhesión MAO", "Proyecto", "Envío a Obra", "Inicio de Obra", "Fin de Obra")))%>%
arrange(tipo)%>%
select(!c(cantidad))%>%
column_to_rownames(var="tipo")%>%
t()%>%
as.data.frame()%>%
mutate_all(~cell_spec(.x, color = if_else(.x == 1, "white", ifelse(.x > 1, "red"," green"),"white"))) %>%
kable(escape = FALSE,col.names = c( "Prerrelevamiento", "Relevamiento Técnico" , "Relevamiento Social" , "Anteproyecto" , "Adhesión Empresa" , "Adhesión MaO" , "Proyecto" , "Envío a Obra" , "Inicio de Obra" , "Fin de Obra" ),align=c("c","c","c","c","c","c","c","c","c","c","c"))%>%
kable_styling(c("striped", "bordered","condensed"))%>%
row_spec(0, font_size = 5) %>%
column_spec(1, width = "30em")%>%
column_spec(column = c( 2:11), width = "10em")
|
|
Prerrelevamiento
|
Relevamiento Técnico
|
Relevamiento Social
|
Anteproyecto
|
Adhesión Empresa
|
Adhesión MaO
|
Proyecto
|
Envío a Obra
|
Inicio de Obra
|
Fin de Obra
|
|
Prerrelevamiento
|
1
|
2.44
|
2.39
|
3.24
|
5.68
|
17.53
|
5.37
|
6.08
|
10.46
|
298
|
|
Relevamiento Técnico
|
0.41
|
1
|
0.98
|
1.33
|
2.32
|
7.18
|
2.2
|
2.49
|
4.28
|
122
|
|
Relevamiento Social
|
0.42
|
1.02
|
1
|
1.35
|
2.37
|
7.32
|
2.24
|
2.54
|
4.37
|
124.5
|
|
Anteproyecto
|
0.31
|
0.75
|
0.74
|
1
|
1.75
|
5.41
|
1.66
|
1.88
|
3.23
|
92
|
|
Adhesión Empresa
|
0.18
|
0.43
|
0.42
|
0.57
|
1
|
3.09
|
0.95
|
1.07
|
1.84
|
52.5
|
|
Adhesión MAO
|
0.06
|
0.14
|
0.14
|
0.18
|
0.32
|
1
|
0.31
|
0.35
|
0.6
|
17
|
|
Proyecto
|
0.19
|
0.45
|
0.45
|
0.6
|
1.06
|
3.26
|
1
|
1.13
|
1.95
|
55.5
|
|
Envío a Obra
|
0.16
|
0.4
|
0.39
|
0.53
|
0.93
|
2.88
|
0.88
|
1
|
1.72
|
49
|
|
Inicio de Obra
|
0.1
|
0.23
|
0.23
|
0.31
|
0.54
|
1.68
|
0.51
|
0.58
|
1
|
28.5
|
|
Fin de Obra
|
0
|
0.01
|
0.01
|
0.01
|
0.02
|
0.06
|
0.02
|
0.02
|
0.04
|
1
|
bajo_autopista_plazos <- kobo_bajo_autopista_cuviv
bajo_autopista_plazos$fecha_prerrelevamiento[bajo_autopista_plazos$fecha_prerrelevamiento <= as.Date("01/09/2020", "%d/%m/%Y")] <- NA
bajo_autopista_plazos$fecha_relevamiento_tecnico[bajo_autopista_plazos$fecha_relevamiento_tecnico <= as.Date("01/09/2020", "%d/%m/%Y")] <- NA
bajo_autopista_plazos$fecha_relevamiento_social[bajo_autopista_plazos$fecha_relevamiento_social <= as.Date("01/09/2020", "%d/%m/%Y")] <- NA
bajo_autopista_plazos <- bajo_autopista_plazos %>%
mutate(prerrelevamiento_relevamiento_tecnico = fecha_relevamiento_tecnico - fecha_prerrelevamiento,
relevamiento_tecnico_anteproyecto = fecha_anteproyecto - fecha_relevamiento_tecnico,
anteproyecto_adhesion_empresa = fecha_adhesion_empresa - fecha_anteproyecto,
anteproyecto_adhesion_mao = fecha_adhesion_mao - fecha_anteproyecto,
adhesion_empresa_proyecto = fecha_proyecto - fecha_adhesion_empresa,
adhesion_mao_proyecto = fecha_proyecto - fecha_adhesion_mao,
proyecto_envio = fecha_envio_obra - fecha_proyecto,
envio_inicio = fecha_inicio - fecha_envio_obra,
inicio_fin = fecha_fin - fecha_inicio)
plazos_conseguir <- bajo_autopista_plazos %>%
select(5,33:41)%>%
filter(!is.na(fecha_relevamiento_tecnico))%>%
mutate(conseguir_adhesion = relevamiento_tecnico_anteproyecto + anteproyecto_adhesion_empresa,
conseguir_proyecto = relevamiento_tecnico_anteproyecto + anteproyecto_adhesion_empresa + adhesion_empresa_proyecto)%>%
filter(conseguir_adhesion >= 0)%>%
arrange(fecha_relevamiento_tecnico, descending=FALSE)%>%
ggplot()+
geom_point(aes(x=fecha_relevamiento_tecnico, y=conseguir_adhesion,
text = paste('Fecha Relevamiento: ', fecha_relevamiento_tecnico, '\n',
'Días en conseguir Adhesión: ', conseguir_adhesion, '\n')), color='#9ABB6D')+
geom_point(aes(x=fecha_relevamiento_tecnico, y=conseguir_proyecto,
text = paste('Fecha Relevamiento: ', fecha_relevamiento_tecnico, '\n',
'Días en conseguir Proyecto: ', conseguir_proyecto, '\n')), color='#4D908E')+
geom_smooth(aes(x=fecha_relevamiento_tecnico, y=conseguir_adhesion),method = "lm", se = FALSE, color='#9ABB6D')+
geom_smooth(aes(x=fecha_relevamiento_tecnico, y=conseguir_proyecto),method = "lm", se = FALSE, color='#4D908E')+
theme_minimal()+
labs(y = "Días transcurridos", x="Fecha de Relevamiento Técnico")
ggplotly(plazos_conseguir, tooltip = "text")
bajas <- kobo_bajo_autopista_cuviv %>%
mutate(Baja = case_when(is.na(Baja) ~ "FALSE",
TRUE ~ Baja))%>%
group_by(Baja)%>%
summarise(Total = n(),
Relevamiento = sum(!is.na(fecha_relevamiento_tecnico)),
Anteproyecto = sum(!is.na(fecha_anteproyecto)),
Adhesion = sum(!is.na(fecha_adhesion_empresa)),
Proyecto = sum(!is.na(fecha_proyecto)))%>%
mutate(relevamiento_total = round(Total/ sum(Total)*100,2),
relevamiento_porcentaje = round(Relevamiento/ sum(Relevamiento)*100,2),
relevamiento_anteproyecto = round(Anteproyecto/ sum(Anteproyecto)*100,2),
relevamiento_adhesion = round(Adhesion/ sum(Adhesion)*100,2),
relevamiento_proyecto = round(Proyecto/ sum(Proyecto)*100,2))%>%
select(1,2,7,3,8,4,9,5,10,6,11)
bajas %>%
kable(col.names= c("BAJA","Total", "%","Total", "%","Total", "%","Total", "%","Total", "%"), align = c("c","c","c","c","c","c","c","c","c","c","c"))%>%
add_header_above(c(" ", "Total" = 2, "Relevamiento" = 2, "Anteproyecto" = 2, "Adhesión" = 2, "Proyecto" = 2))%>%
kable_styling(c("striped", "bordered"))
|
|
Total
|
Relevamiento
|
Anteproyecto
|
Adhesión
|
Proyecto
|
|
BAJA
|
Total
|
%
|
Total
|
%
|
Total
|
%
|
Total
|
%
|
Total
|
%
|
|
FALSE
|
801
|
92.6
|
279
|
83.28
|
147
|
79.89
|
101
|
96.19
|
107
|
96.4
|
|
TRUE
|
64
|
7.4
|
56
|
16.72
|
37
|
20.11
|
4
|
3.81
|
4
|
3.6
|