# Filtro ------------------------------------------------------------------
filtro <- lista %>%
mutate(
awa = ifelse(str_detect(
descripcion_solicitud,
regex("\\bagua\\b", ignore_case = T)
), 1, 0),
fug = ifelse(str_detect(
descripcion_solicitud,
regex("fuga", ignore_case = T)
), 1, 0),
corte = ifelse(str_detect(
descripcion_solicitud,
regex("\\bcorte|\\bcorta", ignore_case = T)
), 1, 0),
esc = ifelse(str_detect(
descripcion_solicitud,
regex("\\besca", ignore_case = T)
), 1, 0),
h = ifelse(str_detect(
descripcion_solicitud,
regex("hidrí|hidri", ignore_case = T)
), 1, 0),
f1 = ifelse(str_detect(
descripcion_solicitud,
regex("sequía|sequia", ignore_case = T)
), 1, 0),
f2 = ifelse(str_detect(
descripcion_solicitud,
regex("inundaciones", ignore_case = T)
), 1, 0),
f3 = ifelse(str_detect(
descripcion_solicitud,
regex("saneamiento", ignore_case = T)
), 1, 0),
f4 = ifelse(str_detect(
descripcion_solicitud,
regex("pozos|posos", ignore_case = T)
), 1, 0),
f5 = ifelse(str_detect(
descripcion_solicitud,
regex("captador", ignore_case = T)
), 1, 0),
f6 = ifelse(str_detect(
descripcion_solicitud,
regex("humedal", ignore_case = T)
), 1, 0),
f7 = ifelse(str_detect(
descripcion_solicitud,
regex("pluvial|lluvia", ignore_case = T)
), 1, 0)
) %>%
mutate(f7 = ifelse(f5 == 1 & f7 == 1, 1, 0)) %>%
rowwise() %>%
mutate(
f3 = ifelse(f3 == 1, sum(awa, fug, corte, esc, h, f1, f2, f3, f4, f5, f6, f7), 0)
)
ver <- filtro %>%
filter(awa == 1 | h == 1 | f1 == 1 | f2 == 1 | f3 > 1 | f4 == 1 | f7 == 1) %>%
mutate(
organo_de_gobierno = case_when(
str_detect(dependencia, "Alcal") ~ "Alcaldías",
str_detect(dependencia, "Dele") ~ "Alcaldías",
str_detect(dependencia, "Agua") ~ "Organismos desconcentrados, descentralizados, paraestatales y auxiliares",
str_detect(dependencia, "Ambiental y") ~ "Organismos desconcentrados, descentralizados, paraestatales y auxiliares",
str_detect(dependencia, "Medio A") ~ "Administración Pública Central",
str_detect(dependencia, "Obras") ~ "Administración Pública Central",
str_detect(dependencia, "Protección Civil") ~ "Administración Pública Central",
str_detect(dependencia, "Planeación") ~ "Organismos desconcentrados, descentralizados, paraestatales y auxiliares",
str_detect(dependencia, "Jefatura") ~ "Administración Pública Central",
str_detect(dependencia, "Secretaría de Desarrollo Urbano y Vivienda") ~ "Administración Pública Central",
T ~ organo_de_gobierno
),
organo_de_gobierno = str_replace_all(
organo_de_gobierno, "Administración Pública Centralizada",
"Administración Pública Central"
),
organo_de_gobierno = str_remove_all(organo_de_gobierno, "\\(baja 10-06-2019\\)"),
organo_de_gobierno = str_trim(organo_de_gobierno, "both"),
organo_de_gobierno = str_replace_all(
organo_de_gobierno, "Instituto para la Atención de los Adultos Mayores en el Distrito Federal \\(17/02/2010\\)",
"Organismos desconcentrados, descentralizados, paraestatales y auxiliares"
),
organo_de_gobierno = str_replace_all(
organo_de_gobierno, "Desconcentrados, Descentralizados, Paraestatales y Auxiliares",
"Organismos desconcentrados, descentralizados, paraestatales y auxiliares"
),
organo_de_gobierno = str_replace_all(
organo_de_gobierno, "Descentralizados",
"Organismos desconcentrados, descentralizados, paraestatales y auxiliares"
),
organo_de_gobierno = str_replace_all(
organo_de_gobierno, "Fondos y fideicomisos públicos",
"Fideicomisos y fondos públicos"
),
organo_de_gobierno = str_replace_all(
organo_de_gobierno, "Organismos Autónomos",
"Órganos Autónomos"
),
organo_de_gobierno = str_replace_all(
organo_de_gobierno, "Órgano Autónomo",
"Órganos Autónomos"
),
organo_de_gobierno = str_replace_all(
organo_de_gobierno, "Órgano Autónomo",
"Órganos Autónomos"
),
organo_de_gobierno = str_replace_all(
organo_de_gobierno, "Tribunales Administrativos",
"Órganos Autónomos"
),
organo_de_gobierno = str_replace_all(
organo_de_gobierno, "Órgano político administrativos",
"Organismos desconcentrados, descentralizados, paraestatales y auxiliares"
),
organo_de_gobierno = str_replace_all(
organo_de_gobierno, "\\bÓrgano\\b",
"Poder"
),
organo_de_gobierno = str_remove_all(organo_de_gobierno, "en el Distrito Federal"),
organo_de_gobierno = str_trim(organo_de_gobierno, "both"),
organo_de_gobierno = str_replace_all(
organo_de_gobierno, "Entidades Paramunicipales",
"Organismos desconcentrados, descentralizados, paraestatales y auxiliares"
)
) %>%
filter(organo_de_gobierno != "Sindicatos") %>%
select(-c(18:29))
ver <- ver %>%
unite(fecha_de_ingreso, fecha_de_ingreso, fecha_ingreso) %>%
unite(otros_datos, otros_datos, otro_datos) %>%
mutate(
otros_datos = str_remove_all(otros_datos, "_NA"),
otros_datos = str_remove_all(otros_datos, "NA_")
) %>%
mutate(
fecha_de_ingreso = str_remove_all(fecha_de_ingreso, "_NA"),
fecha_de_ingreso = str_remove_all(fecha_de_ingreso, "NA_"),
fecha_de_ingreso = as_datetime(fecha_de_ingreso)
) %>%
mutate(
dependencia = str_remove_all(dependencia, "Alcaldía "),
dependencia = str_remove_all(dependencia, "Delegación "),
dependencia = str_remove_all(dependencia, "[.]$"),
dependencia = str_remove_all(dependencia, "de la Ciudad de México"),
dependencia = str_remove_all(dependencia, "del Distrito Federal"),
dependencia = str_trim(dependencia, "both"),
dependencia = str_replace_all(dependencia, "Gustavo A Madero", "Gustavo A. Madero")
) %>%
mutate(
dependencia = str_trim(dependencia, "both")
) %>%
arrange(desc(fecha_de_ingreso)) %>%
group_by(as.character(folio)) %>%
slice(1) %>%
ungroup() %>%
select(-16)
# write_xlsx(ver, "SIP_agua.xlsx")
