[R-es] problemas para agrupar cadenas en una sola con str_replace_all

[juan manuel dias]

muchas gracias! no encontraba la solución de la forma que me passaste!
lo pude resolver de este modo:

cat_uno <- c("consultorio","consultorio externo","consultorio externos de
cp",
                        "consultorios cuidados paliativos","consultorios
externos cuidados paliativos",
                        "consultorios externos de cp","consultorios
externos de cp-",
                        "consultorios externos de cuidados paliativos","en
hospital: consultorios externos",
                        "hospital - consultorio
externo","hospital-cons.externo","hospital-cons.externos")

solucion_mult_p8$contexto_atencion <-
sapply(as.vector(solucion_mult_p8$contexto_atencion), function(x) if(x %in%
cat_uno) "Cosultorios Externos" else x )

El mié, 16 jun 2021 a las 20:23, INGESISTEL CIW (<ingesistel using hotmail.com>)
escribió:

> Podría servirle:
>
>
>
> > categorias <- c("CAMA UCI","CENTRO DE CUIDADOS CRONICOS","CLINICA
> PRIVADA: UTI","CONSULTORIO","CONSULTORIO EXTERNO","CONSULTORIO EXTERNOS DE
> CP","CONSULTORIOS CUIDADOS PALIATIVOS","CONSULTORIOS EXTERNOS CUIDADOS
> PALIATIVOS","CONSULTORIOS EXTERNOS DE CP","CONSULTORIOS EXTERNOS DE
> CP-","CONSULTORIOS EXTERNOS DE CUIDADOS PALIATIVOS","CONTROL TELEFONICO
> POSTALTA","CONVENTO","DISPOSITIVO TELEFONICO","EN CASA/COMUNIDAD","EN
> HOSPITAL: CONSULTORIOS EXTERNOS","EN UN HOGAR DE CUIDADO/HOGAR DE
> ANCIANOS","EN UN HOGAR DE CUIDADO/HOGAR DE ANCIANOS: OTRA SALA","EN UN
> HOGAR DE CUIDADO/HOGAR DE ANCIANOS: SALA PTES. COVID","EN UN HOSPICE O CASA
> DE CUIDADOS PALIATIVOS (NO ESPECIFICAMENTE PARA PACIENTES DE
> CORONAVIRUS)","EN UN HOSPITAL: OTRA SALA","EN UN HOSPITAL: SALA PTES.
> COVID","EN UN HOSPITAL: UTI","GUARDIA SHOCKROOM","HOSPITAL","HOSPITAL -
> CONSULTORIO
> EXTERNO","HOSPITAL-CONS.EXTERNO","HOSPITAL-CONS.EXTERNOS","MEDIANTE VIDEO
> LLAMADAS","NO PROPORCIONE ATENCION AL PACIENTE","SALA DE REANIMACION Y
> SHOCK","SEGUIMIENTO TELEFONICO","TELECONSULTA","TELEFONICAMENTE","VIA
> TELEFONICA","VIEDOLLAMADA-MAILS")
>
>
>
> > CONSULTORIOs_EXTERNOS <- c(categorias[(grepl
> (toupper("consultorio"),categorias))])
>
>
>
> > CONSULTORIOs_EXTERNOS
>
> [1] "CONSULTORIO"
>
>  [2] "CONSULTORIO EXTERNO"
>
>  [3] "CONSULTORIO EXTERNOS DE CP"
>
>  [4] "CONSULTORIOS CUIDADOS PALIATIVOS"
>
>  [5] "CONSULTORIOS EXTERNOS CUIDADOS PALIATIVOS"
>
>  [6] "CONSULTORIOS EXTERNOS DE CP"
>
>  [7] "CONSULTORIOS EXTERNOS DE CP-"
>
>  [8] "CONSULTORIOS EXTERNOS DE CUIDADOS PALIATIVOS"
>
> [9] "EN HOSPITAL: CONSULTORIOS EXTERNOS"
>
> [10] "HOSPITAL - CONSULTORIO EXTERNO"
>
>
>
>
>
> Nota: grepl busca la subcadena deseada
>
>
>
>
>
> Cordial saludo
>
>
>
>
>
> Enviado desde Correo <https://go.microsoft.com/fwlink/?LinkId=550986>
> para Windows 10
>
>
>
> *De: *juan manuel dias <juamadias using gmail.com>
> *Enviado: *miércoles, 16 de junio de 2021 15:27
> *Para: *Lista R <r-help-es using r-project.org>
> *Asunto: *[R-es] problemas para agrupar cadenas en una sola con
> str_replace_all
>
>
>
> Hola, como andan!
>
>
>
> Tengo una base de datos de pacientes y una de las variables es contexto de
> atención en el que fue atendido. El problema es que hay respuestas que
> tiene que ser agrupadas en una misma categoría.
>
>
>
> Por ejemplo, todas estas categorías
>
>
>
> (CONSULTORIO, CONSULTORIO EXTERNO, CONSULTORIO EXTERNOS DE CP,
> CONSULTORIOS CUIDADOS PALIATIVOS,
>
> CONSULTORIOS EXTERNOS CUIDADOS PALIATIVOS, CONSULTORIOS EXTERNOS DE CP,
> CONSULTORIOS EXTERNOS DE CP-,
> CONSULTORIOS EXTERNOS DE CUIDADOS PALIATIVOS,CONSULTORIOS EXTERNOS DE
> CUIDADOS PALIATIVOS,
> CONSULTORIOS EXTERNOS DE CUIDADOS PALIATIVOS)
>
>
>
> Las  debería agrupar en una única "CONSULTORIO EXTERNOS".
>
>
>
> Intenté de esta forma antes habiendo pasado la variable
> "contexto_atencion" toda a mayúsculas y sin acentos.
>
>
>
> pats_consext <- c("CONSULTORIO EXTERNO|CONSULTORIO EXTERNOS DE
> CP|CONSULTORIOS CUIDADOS PALIATIVOS|
> CONSULTORIOS EXTERNOS CUIDADOS PALIATIVOS|CONSULTORIOS EXTERNOS DE
> CP|CONSULTORIOS EXTERNOS DE CP-|
> CONSULTORIOS EXTERNOS DE CUIDADOS PALIATIVOS|CONSULTORIO")
>
> solucion_mult_p8<-solucion_mult_p8 %>%
>   mutate(contexto_atencion = str_replace_all(contexto_atencion,
> pats_consext,'CONSULTORIOS EXTERNOS'))
>
>
>
> Pero no me resuelve el problema.
>
>
>
> Para la categoría
>
>
>
> CONSULTORIOS EXTERNOS CUIDADOS PALIATIVOS
>
>
>
> me trae
>
>
>
> CONSULTORIOS EXTERNOS EXTERNOS CUIDADOS PALIATIVOS
>
>
>
> Alguien sabe cuál puede ser el problema?
>
>
>
> Adjunto la base por las dudas!
>
>
>
> Muchas gracias!
>
>
>
> m
>
>
>
>
>

	[[alternative HTML version deleted]]