Re: [R-es] preguntas múltiples y creación de variables

[juan manuel dias]

hola muchas gracias! me hice mucho lío en cómo lo pene´finalmente usé
este código que me srvió
para resolver lo que estaba buscando! gracias!

misdatos<-misdatos %>%
  mutate(excel = case_when(grepl("Excel", r5) ~ 1,
   TRUE ~ 0)) %>%
  mutate(oracle = case_when(grepl("Oracle", r5) ~ 1,
TRUE ~ 0)) %>%
  mutate(sheets = case_when(grepl("Sheets", r5) ~ 1,
TRUE ~ 0)) %>%
  mutate(sql_server_microsoft = case_when(grepl("SQL Server (Microsoft)",
r5) ~ 1,
  TRUE ~ 0)) %>%
  mutate(mongo_db = case_when(grepl("Mongo db", r5) ~ 1,
  TRUE ~ 0)) %>%
  mutate(access = case_when(grepl("Access", r5) ~ 1,
TRUE ~ 0)) %>%
  mutate(mysql = case_when(grepl("MySQL", r5) ~ 1,
   TRUE ~ 0)) %>%
  mutate(postgre_sql = case_when(grepl("Postgre-SQL", r5) ~ 1,
 TRUE ~ 0))


El mar, 21 mar 2023 a las 5:06, Proyecto R-UCA () escribió:

> Buenas,
>
> las imágenes no se ven por lo que no puedo reproducir tu ejemplo, pero tal
> vez lo siguiente te valga:
> > library('stringr')
> > d <- data.frame(respuestas = c('manzana, naranja', 'manzana, melocotón',
> 'naranja, melocotón'))
> > d
>   respuestas
> 1   manzana, naranja
> 2 manzana, melocotón
> 3 naranja, melocotón
> > d$manzana <- sapply(d$respuestas, FUN = str_detect, 'manzana', simplify
> = TRUE)
> > d$naranja <- sapply(d$respuestas, FUN = str_detect, 'naranja', simplify
> = TRUE)
> > d
>   respuestas manzana naranja
> 1   manzana, naranjaTRUETRUE
> 2 manzana, melocotónTRUE   FALSE
> 3 naranja, melocotón   FALSETRUE
>
> Un saludo, Manuel.
>
> El lun, 20-03-2023 a las 17:09 -0300, juan manuel dias escribió:
> > Hola, cómo andan!
> >
> > Tengo el siguiente problema.
> >
> > Tengo una pregunta cuya respuesta es múltiple, pero en en la base están
> > todas las respuestas en una misma variable y cada respuesta está
> > separada por ",".
> >
> > Así está
> >
> > [image: image.png]
> >
> > Hago esto para poder separar en columnas las distintas respuestas:
> >
> >
> >
> >
> >
> > *mult_bas_dat<-mult_bas_dat %>%  separate_rows(bases, sep = ",") %>%
> > mutate(basedatos = str_squish(bases)) %>%  select(basedatos)*
> > ## múltiple a columnas ##
> >
> >
> >
> >
> >
> > *mult_bas_dat_final<-mult_bas_dat %>%  separate_rows(basedatos, sep =
> ",")
> > %>%  mutate(basedatos = str_squish(basedatos), # Para quitar los espacios
> > en blanco indeseados id = 1) %>%  spread(key = basedatos, value =
> > id)*
> >
> > ## na's a 0 ##
> >
> > *mult_bas_dat_final[is.na
> > <
> https://urldefense.com/v3/__http://is.na/__;!!D9dNQwwGXtA!TsC3j72nXLD-S9sKeaG-5pjChVYrV50lLQSZr1EC7xry6qlcSxhH2t-I-jcHTbshUTYCwdUvub1KiPE
> > $ >(mult_bas_dat_final)] <- 0*
> > # limpio los nombres #
> >
> > *mult_bas_dat_final <- mult_bas_dat_final %>%  clean_names()*
> >
> > ## cambio nombres a cada opción de bases ##
> > *mult_bas_dat_final=rename(mult_bas_dat_final,
> >
> c(excel="p5.1",sheets="p5.2",sql_server_microsoft="p5.3",mongo_db="p5.4",access="p5.5",oracle="p5.6",mysql="p5.7",postgre_sql="p5.8"))*
> >
> > Me queda así
> >
> > [image: image.png]
> >
> > El tema es que cuándo quiero correr el siguiente código:
> >
> >
> >
> >
> >
> >
> >
> > *mutate(puntaje_p4_p5=case_when(p4_bases_prop==1 & p5.1==1 ~ 0.4,
> >p4_bases_prop==1 & p5.2==1 ~ 0.5,
> >  (p4_bases_prop==1) & ((p5.1==1) & (p5.3==1) | (p5.4==1) |
> > (p5.6=1) | (p5.7==1) | (p5.8==1)) ~  1,
> >  (p4_bases_prop==1) & ((p5.2==1) & (p5.3==1) | (p5.4==1) | (p5.6=1) |
> > (p5.7==1) | (p5.8==1)) ~  1,
> >  (p4_bases_prop==1) & ((p5.5==1) & (p5.3==1) | (p5.4==1) | (p5.6=1) |
> > (p5.7==1) | (p5.8==1)) ~  1,
> >  (p4_bases_prop==1) & (p5.3==1 | p5.4==1 | p5.6==1 | p5.7==1 | p5.8==1) ~
> > 1, p4_bases*_prop==1  &  p5.5==1 ~ 0.6,
> >
> > Sale el siguiente error porque no encuentra una de las variables que
> están
> > en los condicionales, en este caso p5.3, pero podría ser cualquier otra.
> >
> > [image: image.png]
> &g

[R-es] preguntas múltiples y creación de variables

[juan manuel dias]

Hola, cómo andan!

Tengo el siguiente problema.

Tengo una pregunta cuya respuesta es múltiple, pero en en la base están
todas las respuestas en una misma variable y cada respuesta está
separada por ",".

Así está

[image: image.png]

Hago esto para poder separar en columnas las distintas respuestas:





*mult_bas_dat<-mult_bas_dat %>%  separate_rows(bases, sep = ",") %>%
mutate(basedatos = str_squish(bases)) %>%  select(basedatos)*
## múltiple a columnas ##





*mult_bas_dat_final<-mult_bas_dat %>%  separate_rows(basedatos, sep = ",")
%>%  mutate(basedatos = str_squish(basedatos), # Para quitar los espacios
en blanco indeseados id = 1) %>%  spread(key = basedatos, value =
id)*

## na's a 0 ##

*mult_bas_dat_final[is.na (mult_bas_dat_final)] <- 0*
# limpio los nombres #

*mult_bas_dat_final <- mult_bas_dat_final %>%  clean_names()*

## cambio nombres a cada opción de bases ##
*mult_bas_dat_final=rename(mult_bas_dat_final,
c(excel="p5.1",sheets="p5.2",sql_server_microsoft="p5.3",mongo_db="p5.4",access="p5.5",oracle="p5.6",mysql="p5.7",postgre_sql="p5.8"))*

Me queda así

[image: image.png]

El tema es que cuándo quiero correr el siguiente código:







*mutate(puntaje_p4_p5=case_when(p4_bases_prop==1 & p5.1==1 ~ 0.4,
   p4_bases_prop==1 & p5.2==1 ~ 0.5,
 (p4_bases_prop==1) & ((p5.1==1) & (p5.3==1) | (p5.4==1) |
(p5.6=1) | (p5.7==1) | (p5.8==1)) ~  1,
 (p4_bases_prop==1) & ((p5.2==1) & (p5.3==1) | (p5.4==1) | (p5.6=1) |
(p5.7==1) | (p5.8==1)) ~  1,
 (p4_bases_prop==1) & ((p5.5==1) & (p5.3==1) | (p5.4==1) | (p5.6=1) |
(p5.7==1) | (p5.8==1)) ~  1,
 (p4_bases_prop==1) & (p5.3==1 | p5.4==1 | p5.6==1 | p5.7==1 | p5.8==1) ~
1, p4_bases*_prop==1  &  p5.5==1 ~ 0.6,

Sale el siguiente error porque no encuentra una de las variables que están
en los condicionales, en este caso p5.3, pero podría ser cualquier otra.

[image: image.png]

Necesito para todos los casos generar tantas columnas como posibilidades de
respuesta tengo en esa pregunta, más allá de las respuestas generadas.

Las posibles respuestas son: excel, sheets, sql_server_microsoft,
mongo_db, access, oracle, mysql, postgre_sql

Por ejemplo, este caso que respondió así:

*"excel, sheets, oracle, postgre_sql"   *

Necesitaría que quede así

[image: image.png]

Y así con todos los casos, por ejemplo, si solo respondió "*excel",
*necesitaría
que quede así:

[image: image.png]

Estoy intentando hacerlo pero sin resultados!

Muchas gracias! Juan.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] str_replace por orden de aparición en una cadena.

[juan manuel dias]

muchas gracias!!

El mié, 15 mar 2023 a las 6:12, Carlos Ortega ()
escribió:

> Hola,
>
> Juntandolo todo se puede hacer así...
>
> #-
> cadena <- c(
>   'si p1 == 1 o 2 == 1,3 si p1 == 1 o 2 = 1,3',
>   'si p1 == 3 o 4 == 1 si p1 == 3 o 4 = 1',
>   'si p1 == 5 == 0,7 si p1 == 5 = 0,7',
>   'si p1 == 5 = 0,7 si p1 == 5 = 0,7',
>   'si p1 == 6 == 0 si p1 == 6 = 0',
>   'si p1 == 7 == no aplica si p1 == 7 = no aplica'
> )
>
> # Función para reemplazar el último "==" por un "=" en una cadena
> replace_last_equal <- function(s) {
>   miwords <- unlist(strsplit(s, "=="))
>   paste0(paste(miwords[1:(length(miwords) - 1)], collapse = '=='), '=',
> miwords[length(miwords)])
> }
>
> # Aplicar la función a cada elemento de la cadena
> cadenew <- as.vector( sapply(cadena, replace_last_equal))
>
> # Ver el resultado
> print(cadenew)
> #-
>
>
> Gracias,
> Carlos Ortega
> www.qualityexcellence.es
>
> El mié, 15 mar 2023 a las 0:28, Carlos Ortega ()
> escribió:
>
>> Hola,
>>
>> Prueba a envolver el strplit con unlist(), así:
>> b <- unlist(strsplit(a, "=="))
>>
>> Pero entendí que lo que quieres es sustituir el último "==" por un "="
>>
>>
>> El mar, 14 mar 2023 a las 23:06, juan manuel dias ()
>> escribió:
>>
>>> hola! ,me sirve, pero el tema es que necesito crear tres variables
>>> nuevas con el resultado de strsplitpero me genera una lista y no lo
>>> estoy pudiendo combinar con mutate de dplyr
>>>
>>> El mar, 14 mar 2023 a las 7:46, juan manuel dias ()
>>> escribió:
>>>
>>>> Muchas gracias!! Lo pruebo!!!
>>>>
>>>> El mar., 14 de marzo de 2023 04:55, Proyecto R-UCA 
>>>> escribió:
>>>>
>>>>> Buenas,
>>>>>
>>>>> Una opción es partir la cadena usando el == como separador y luego
>>>>> recomponerla.
>>>>>
>>>>> > a <- "p1 == 1 o 2 o p2 == 1 == 1,3"
>>>>> > b <- strsplit(a, "==")
>>>>> > b <- b[[1]]
>>>>> > b
>>>>> [1] "p1 " " 1 o 2 o p2 " " 1 " " 1,3"
>>>>> > paste0(paste0(b[1:(length(b)-1)], collapse = '=='), '=',
>>>>> b[length(b)])
>>>>> [1] "p1 == 1 o 2 o p2 == 1 = 1,3"
>>>>>
>>>>> Un saludo, Manuel.
>>>>>
>>>>> El lun, 13-03-2023 a las 19:15 -0300, juan manuel dias escribió:
>>>>>
>>>>> hola ,muchas gracias!
>>>>> no conocía esa librería para los regex...respecto a la pregunta de
>>>>> Carlos, puedo tener más de un == dentro de la cadena, por ejemplo así:
>>>>>
>>>>> así está
>>>>> si p1 == 1 o 2 o p2 == 1  == 1,3
>>>>>
>>>>> así necesito
>>>>> si p1 == 1 o 2 o p2 == 1  = 1,3
>>>>>
>>>>> El lun, 13 mar 2023 a las 18:11, Juan Abasolo ()
>>>>> escribió:
>>>>>
>>>>> Mientras aparezca alguien que sepa guiarte bien, te muestro desde mi
>>>>> autodidactez por dónde encararía. Y lo que para mí fue un gran
>>>>> descubirmiento: El paquete RegExplain,
>>>>> [image: irudia.png]
>>>>> (==)([\d, \w]*=[\d, \w]*)$
>>>>>
>>>>> Eso captura en dos grupos diferentes todo lo que está desde el final
>>>>> hasta el primer igual, más todo lo que sigue hasta en igual doble, que lo
>>>>> excluye y lo captura como otro grupo.
>>>>> Tenés que conseguir cambiar solamente el primer grupo. Y se me acabó
>>>>> la sapienza.
>>>>>
>>>>> Suerte
>>>>>
>>>>>
>>>>> Hau idatzi du juan manuel dias (juamad...@gmail.com) erabiltzaileak
>>>>> (2023 mar. 13(a), al. (20:38)):
>>>>>
>>>>> Hola,
>>>>>
>>>>> Tengo una variable string que tiene muchos casos, pero necesito en
>>>>> cada uno
>>>>> de ellos reemplazar el último "==" por "=".
>>>>>
>>>>> asi está asi necesito
>>>>> si p1 == 1 o 2 == 1,3 si p1 == 1 o 2 = 1,3
>>>>> si p1 == 3 o 4 == 1 si p1 == 3 o 4 = 1
>>>>> si p1 == 5 == 0,7 si p1 == 5 = 0,7
>>>>> si p1 == 5 = 0,7 si p1

[R-es] preguntas múltiples y creación de variables

[juan manuel dias]

Hola, cómo andan!

Tengo el siguiente problema.

Tengo una pregunta cuya respuesta es múltiple, pero en en la base están
todas las respuestas en una misma variable y cada respuesta está
separada por ",".

Así está

[image: image.png]

Hago esto para poder separar en columnas las distintas respuestas:





*mult_bas_dat<-mult_bas_dat %>%  separate_rows(bases, sep = ",") %>%
mutate(basedatos = str_squish(bases)) %>%  select(basedatos)*
## múltiple a columnas ##





*mult_bas_dat_final<-mult_bas_dat %>%  separate_rows(basedatos, sep = ",")
%>%  mutate(basedatos = str_squish(basedatos), # Para quitar los espacios
en blanco indeseados id = 1) %>%  spread(key = basedatos, value =
id)*

## na's a 0 ##

*mult_bas_dat_final[is.na (mult_bas_dat_final)] <- 0*
# limpio los nombres #

*mult_bas_dat_final <- mult_bas_dat_final %>%  clean_names()*

## cambio nombres a cada opción de bases ##
*mult_bas_dat_final=rename(mult_bas_dat_final,
c(excel="p5.1",sheets="p5.2",sql_server_microsoft="p5.3",mongo_db="p5.4",access="p5.5",oracle="p5.6",mysql="p5.7",postgre_sql="p5.8"))*

Me queda así

[image: image.png]

El tema es que cuándo quiero correr el siguiente código:







*mutate(puntaje_p4_p5=case_when(p4_bases_prop==1 & p5.1==1 ~ 0.4,
   p4_bases_prop==1 & p5.2==1 ~ 0.5,
 (p4_bases_prop==1) & ((p5.1==1) & (p5.3==1) | (p5.4==1) |
(p5.6=1) | (p5.7==1) | (p5.8==1)) ~  1,
 (p4_bases_prop==1) & ((p5.2==1) & (p5.3==1) | (p5.4==1) | (p5.6=1) |
(p5.7==1) | (p5.8==1)) ~  1,
 (p4_bases_prop==1) & ((p5.5==1) & (p5.3==1) | (p5.4==1) | (p5.6=1) |
(p5.7==1) | (p5.8==1)) ~  1,
 (p4_bases_prop==1) & (p5.3==1 | p5.4==1 | p5.6==1 | p5.7==1 | p5.8==1) ~
1, p4_bases*_prop==1  &  p5.5==1 ~ 0.6,

Sale el siguiente error porque no encuentra una de las variables que están
en los condicionales, en este caso p5.3, pero podría ser cualquier otra.

[image: image.png]

Necesito para todos los casos generar tantas columnas como posibilidades de
respuesta tengo en esa pregunta, más allá de las respuestas generadas.

Las posibles respuestas son: excel, sheets, sql_server_microsoft,
mongo_db, access, oracle, mysql, postgre_sql

Por ejemplo, este caso que respondió así:

*"excel, sheets, oracle, postgre_sql"   *

Necesitaría que quede así

[image: image.png]

Y así con todos los casos, por ejemplo, si solo respondió "*excel",
*necesitaría
que quede así:

[image: image.png]

Estoy intentando hacerlo pero sin resultados!

Muchas gracias! Juan.
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] str_replace por orden de aparición en una cadena.

[juan manuel dias]

hola! ,me sirve, pero el tema es que necesito crear tres variables nuevas
con el resultado de strsplitpero me genera una lista y no lo estoy
pudiendo combinar con mutate de dplyr

El mar, 14 mar 2023 a las 7:46, juan manuel dias ()
escribió:

> Muchas gracias!! Lo pruebo!!!
>
> El mar., 14 de marzo de 2023 04:55, Proyecto R-UCA 
> escribió:
>
>> Buenas,
>>
>> Una opción es partir la cadena usando el == como separador y luego
>> recomponerla.
>>
>> > a <- "p1 == 1 o 2 o p2 == 1 == 1,3"
>> > b <- strsplit(a, "==")
>> > b <- b[[1]]
>> > b
>> [1] "p1 " " 1 o 2 o p2 " " 1 " " 1,3"
>> > paste0(paste0(b[1:(length(b)-1)], collapse = '=='), '=', b[length(b)])
>> [1] "p1 == 1 o 2 o p2 == 1 = 1,3"
>>
>> Un saludo, Manuel.
>>
>> El lun, 13-03-2023 a las 19:15 -0300, juan manuel dias escribió:
>>
>> hola ,muchas gracias!
>> no conocía esa librería para los regex...respecto a la pregunta de
>> Carlos, puedo tener más de un == dentro de la cadena, por ejemplo así:
>>
>> así está
>> si p1 == 1 o 2 o p2 == 1  == 1,3
>>
>> así necesito
>> si p1 == 1 o 2 o p2 == 1  = 1,3
>>
>> El lun, 13 mar 2023 a las 18:11, Juan Abasolo ()
>> escribió:
>>
>> Mientras aparezca alguien que sepa guiarte bien, te muestro desde mi
>> autodidactez por dónde encararía. Y lo que para mí fue un gran
>> descubirmiento: El paquete RegExplain,
>> [image: irudia.png]
>> (==)([\d, \w]*=[\d, \w]*)$
>>
>> Eso captura en dos grupos diferentes todo lo que está desde el final
>> hasta el primer igual, más todo lo que sigue hasta en igual doble, que lo
>> excluye y lo captura como otro grupo.
>> Tenés que conseguir cambiar solamente el primer grupo. Y se me acabó la
>> sapienza.
>>
>> Suerte
>>
>>
>> Hau idatzi du juan manuel dias (juamad...@gmail.com) erabiltzaileak
>> (2023 mar. 13(a), al. (20:38)):
>>
>> Hola,
>>
>> Tengo una variable string que tiene muchos casos, pero necesito en cada
>> uno
>> de ellos reemplazar el último "==" por "=".
>>
>> asi está asi necesito
>> si p1 == 1 o 2 == 1,3 si p1 == 1 o 2 = 1,3
>> si p1 == 3 o 4 == 1 si p1 == 3 o 4 = 1
>> si p1 == 5 == 0,7 si p1 == 5 = 0,7
>> si p1 == 5 = 0,7 si p1 == 5 = 0,7
>> si p1 == 6 == 0 si p1 == 6 = 0
>> si p1 == 7 == no aplica si p1 == 7 = no aplica
>>
>> Muchas gracias!!
>>
>> Juan.
>>
>> [[alternative HTML version deleted]]
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>> <https://urldefense.com/v3/__https://stat.ethz.ch/mailman/listinfo/r-help-es__;!!D9dNQwwGXtA!VOrNkgAM8xLYFPl5_ay-jsI027eLRwjwkMr-dYzea-A82uQTihgPogjnFoc9QhaJ8smUDai2GjBMY1g$>
>>
>>
>>
>> --
>> Juan Abasolo, PhD
>>
>> Hizkuntzaren eta Literaturaren Didaktika Saila | EUDIA ikerketa taldea
>> Bilboko Hezkuntza Fakultatea
>> Euskal Herriko Unibertsitatea UPV/EHU
>>
>> Sarriena auzoa z/g 48940 - Leioa (Bizkaia)
>>
>> T   : (+34) 94 601 7567
>> Telegram: @JuanAbasolo
>> Skype   : abasolo72
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>>
>> https://urldefense.com/v3/__https://stat.ethz.ch/mailman/listinfo/r-help-es__;!!D9dNQwwGXtA!VOrNkgAM8xLYFPl5_ay-jsI027eLRwjwkMr-dYzea-A82uQTihgPogjnFoc9QhaJ8smUDai2GjBMY1g$
>>
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] str_replace por orden de aparición en una cadena.

[juan manuel dias]

Muchas gracias!! Lo pruebo!!!

El mar., 14 de marzo de 2023 04:55, Proyecto R-UCA  escribió:

> Buenas,
>
> Una opción es partir la cadena usando el == como separador y luego
> recomponerla.
>
> > a <- "p1 == 1 o 2 o p2 == 1 == 1,3"
> > b <- strsplit(a, "==")
> > b <- b[[1]]
> > b
> [1] "p1 " " 1 o 2 o p2 " " 1 " " 1,3"
> > paste0(paste0(b[1:(length(b)-1)], collapse = '=='), '=', b[length(b)])
> [1] "p1 == 1 o 2 o p2 == 1 = 1,3"
>
> Un saludo, Manuel.
>
> El lun, 13-03-2023 a las 19:15 -0300, juan manuel dias escribió:
>
> hola ,muchas gracias!
> no conocía esa librería para los regex...respecto a la pregunta de Carlos,
> puedo tener más de un == dentro de la cadena, por ejemplo así:
>
> así está
> si p1 == 1 o 2 o p2 == 1  == 1,3
>
> así necesito
> si p1 == 1 o 2 o p2 == 1  = 1,3
>
> El lun, 13 mar 2023 a las 18:11, Juan Abasolo ()
> escribió:
>
> Mientras aparezca alguien que sepa guiarte bien, te muestro desde mi
> autodidactez por dónde encararía. Y lo que para mí fue un gran
> descubirmiento: El paquete RegExplain,
> [image: irudia.png]
> (==)([\d, \w]*=[\d, \w]*)$
>
> Eso captura en dos grupos diferentes todo lo que está desde el final hasta
> el primer igual, más todo lo que sigue hasta en igual doble, que lo excluye
> y lo captura como otro grupo.
> Tenés que conseguir cambiar solamente el primer grupo. Y se me acabó la
> sapienza.
>
> Suerte
>
>
> Hau idatzi du juan manuel dias (juamad...@gmail.com) erabiltzaileak (2023
> mar. 13(a), al. (20:38)):
>
> Hola,
>
> Tengo una variable string que tiene muchos casos, pero necesito en cada uno
> de ellos reemplazar el último "==" por "=".
>
> asi está asi necesito
> si p1 == 1 o 2 == 1,3 si p1 == 1 o 2 = 1,3
> si p1 == 3 o 4 == 1 si p1 == 3 o 4 = 1
> si p1 == 5 == 0,7 si p1 == 5 = 0,7
> si p1 == 5 = 0,7 si p1 == 5 = 0,7
> si p1 == 6 == 0 si p1 == 6 = 0
> si p1 == 7 == no aplica si p1 == 7 = no aplica
>
> Muchas gracias!!
>
> Juan.
>
> [[alternative HTML version deleted]]
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
> <https://urldefense.com/v3/__https://stat.ethz.ch/mailman/listinfo/r-help-es__;!!D9dNQwwGXtA!VOrNkgAM8xLYFPl5_ay-jsI027eLRwjwkMr-dYzea-A82uQTihgPogjnFoc9QhaJ8smUDai2GjBMY1g$>
>
>
>
> --
> Juan Abasolo, PhD
>
> Hizkuntzaren eta Literaturaren Didaktika Saila | EUDIA ikerketa taldea
> Bilboko Hezkuntza Fakultatea
> Euskal Herriko Unibertsitatea UPV/EHU
>
> Sarriena auzoa z/g 48940 - Leioa (Bizkaia)
>
> T   : (+34) 94 601 7567
> Telegram: @JuanAbasolo
> Skype   : abasolo72
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
>
> https://urldefense.com/v3/__https://stat.ethz.ch/mailman/listinfo/r-help-es__;!!D9dNQwwGXtA!VOrNkgAM8xLYFPl5_ay-jsI027eLRwjwkMr-dYzea-A82uQTihgPogjnFoc9QhaJ8smUDai2GjBMY1g$
>
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] str_replace por orden de aparición en una cadena.

[juan manuel dias]

hola ,muchas gracias!
no conocía esa librería para los regex...respecto a la pregunta de Carlos,
puedo tener más de un == dentro de la cadena, por ejemplo así:

así está
si p1 == 1 o 2 o p2 == 1  == 1,3

así necesito
si p1 == 1 o 2 o p2 == 1  = 1,3

El lun, 13 mar 2023 a las 18:11, Juan Abasolo ()
escribió:

> Mientras aparezca alguien que sepa guiarte bien, te muestro desde mi
> autodidactez por dónde encararía. Y lo que para mí fue un gran
> descubirmiento: El paquete RegExplain,
> [image: irudia.png]
> (==)([\d, \w]*=[\d, \w]*)$
>
> Eso captura en dos grupos diferentes todo lo que está desde el final hasta
> el primer igual, más todo lo que sigue hasta en igual doble, que lo excluye
> y lo captura como otro grupo.
> Tenés que conseguir cambiar solamente el primer grupo. Y se me acabó la
> sapienza.
>
> Suerte
>
>
> Hau idatzi du juan manuel dias (juamad...@gmail.com) erabiltzaileak (2023
> mar. 13(a), al. (20:38)):
>
>> Hola,
>>
>> Tengo una variable string que tiene muchos casos, pero necesito en cada
>> uno
>> de ellos reemplazar el último "==" por "=".
>>
>> asi está asi necesito
>> si p1 == 1 o 2 == 1,3 si p1 == 1 o 2 = 1,3
>> si p1 == 3 o 4 == 1 si p1 == 3 o 4 = 1
>> si p1 == 5 == 0,7 si p1 == 5 = 0,7
>> si p1 == 5 = 0,7 si p1 == 5 = 0,7
>> si p1 == 6 == 0 si p1 == 6 = 0
>> si p1 == 7 == no aplica si p1 == 7 = no aplica
>>
>> Muchas gracias!!
>>
>> Juan.
>>
>> [[alternative HTML version deleted]]
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
> Juan Abasolo, PhD
>
> Hizkuntzaren eta Literaturaren Didaktika Saila | EUDIA ikerketa taldea
> Bilboko Hezkuntza Fakultatea
> Euskal Herriko Unibertsitatea UPV/EHU
>
> Sarriena auzoa z/g 48940 - Leioa (Bizkaia)
>
> T   : (+34) 94 601 7567
> Telegram: @JuanAbasolo
> Skype   : abasolo72
>
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] str_replace por orden de aparición en una cadena.

[juan manuel dias]

Hola,

Tengo una variable string que tiene muchos casos, pero necesito en cada uno
de ellos reemplazar el último "==" por "=".

asi está asi necesito
si p1 == 1 o 2 == 1,3 si p1 == 1 o 2 = 1,3
si p1 == 3 o 4 == 1 si p1 == 3 o 4 = 1
si p1 == 5 == 0,7 si p1 == 5 = 0,7
si p1 == 5 = 0,7 si p1 == 5 = 0,7
si p1 == 6 == 0 si p1 == 6 = 0
si p1 == 7 == no aplica si p1 == 7 = no aplica

Muchas gracias!!

Juan.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] reemplazar valores en texto según condiciones

[juan manuel dias]

Muchas gracias a ambos!
Estoy haciendo con ejemplo de Carlos, con regex y funciona!!


El jue, 9 mar 2023 a las 10:59, Proyecto R-UCA () escribió:

> Buenas,
>
> Se me hace raro que la función no admita un parámetro para eso.
>
> Una opción es hacerlo en dos pasos:
> P1: Reemplaza p10, p20, ... por algo como q10, q20, ...
> P2: Haz el reemplazo que quieres.
>
> Igualmente puedes hacer el reemplazo que haces y en un segundo paso
> reemplazar p10_integra_datos por p10_cuales_rep, ...
>
> Un saludo, Manuel.
>
> El jue, 09-03-2023 a las 10:20 -0300, juan manuel dias escribió:
> > Hola,
> > Algo que me está pasando con esta función es lo siguiente:
> > A "p1" lo tengo que reemplazar por "p1_integra_datos" y a "p10" por
> > "p10_cuales_rep", pero como p10 contiene p1, y así pasa con otras
> preguntas
> > (p2 y p20, por ejemplo),
> > me los reemplaza en ambas, cuándo lo que busco es otra cosa.
> >
> > reglas$condicion_final <- stri_replace_all_fixed(reglas$condicion_minus,
> > c("p1","p2","p3","p4","p5","p6","p7","p8","p9","p10"),
> >
> c("p1_integra_datos","p2_recop_dat","p3_como_recop","p4_bases_prop","p5_cuales_bases",
> >
> "p6_cuanto_integ_dat","p7_tec_integr_dat","p8_documen_pol_int","p9_report_dat","p10_cuales_rep"),
> > vectorize_all = FALSE)
> >
> > Se les ocurre como resolverlo, estoy agregando un guión bajo después de
> > cada pregunta p1_ p10_ para que esto no pase, pero no se me ocurre
> > como hacerlo en el código.
> >
> > Muchas gracias! Juan.
> >
> > El mar, 7 mar 2023 a las 14:11, Carlos Ortega ( >)
> > escribió:
> >
> > > Hola,
> > >
> > > Dentro de la librería "stringi" tienes la posibilidad de hacer lo que
> > > quieres de forma vectorizada y super eficiente.
> > > De esta forma..:
> > >
> > > library(stringi)
> > > texto_nuevo <- stri_replace_all_fixed(texto, c('p1', 'p2'),
> > > c('p1_integra_datos', 'p2_recop_dat'), vectorize_all = FALSE)
> > >
> > > Gracias,
> > > Carlos Ortega
> > >
> https://urldefense.com/v3/__http://www.qualityexcellence.es__;!!D9dNQwwGXtA!SO5aun-Yamxtje74i5V9XQrQWI1Q_2DNWSIHAcTX9KKrRMnoOhf63fSSytvNHICE1skDvn91OxPAun4$
> > >
> > >
> > > El mar, 7 mar 2023 a las 18:04, juan manuel dias ( >)
> > > escribió:
> > >
> > > > Hola, como andan! Espero que bien!
> > > > Tengo dos bases, A) tiene una variable texto en la que deseo
> reemplazar
> > > > ciertas partes y B) tengo las condiciones para cambiar ese texto de
> la
> > > > base
> > > > A.
> > > >
> > > > Base A
> > > >
> > > > texto
> > > > si p1 = 1 o 2 = 1,3
> > > > si p1 = 3 o 4 = 1
> > > > si p1 = 5 = 0,7
> > > > si p1 = 5 = 0,7
> > > > si p1 = 6 = 0
> > > > si p1 = 7 = "no aplica"
> > > > si p2 = 1 & p3 = 1 = 0,5
> > > > si p2 = 1 & p3 = 2 = 0,7
> > > > si p2 = 1 & p3 = 4 o 3 = 1
> > > > si p2 = 1 & p3 = 5 = 0,5
> > > > si p2 = 1 & p3 = 6 = 0,5
> > > > si p2 = 2 = 0
> > > > si p2 = 3 = 0
> > > > si p2 = 4 = no aplica
> > > > Base B
> > > >
> > > > texto_a_reemplazar_en_base_A texto_final_en_A
> > > > p1 p1_integra_datos
> > > > p2 p2_recop_dat
> > > >
> > > > Lo estoy haciendo con condiciones IF ELSE pero se me hace un código
> muy
> > > > largo.
> > > > Estoy probando de armar un for que recorra base A y lo reemplace por
> el
> > > > texto que está en Base B.
> > > >
> > > > Si alguno se le ocurre más que agradecido!
> > > >
> > > > Gracias! Juan.
> > > >
> > > > [[alternative HTML version deleted]]
> > > >
> > > > ___
> > > > R-help-es mailing list
> > > > R-help-es@r-project.org
> > > >
> https://urldefense.com/v3/__https://stat.ethz.ch/mailman/listinfo/r-help-es__;!!D9dNQwwGXtA!SO5aun-Yamxtje74i5V9XQrQWI1Q_2DNWSIHAcTX9KKrRMnoOhf63fSSytvNHICE1skDvn91JE_WlVY$
> > > >
> > > >
> > >
> > >
> > > --
> > > Saludos,
> > > Carlos Ortega
> > >
> https://urldefense.com/v3/__http://www.qualityexcellence.es__;!!D9dNQwwGXtA!SO5aun-Yamxtje74i5V9XQrQWI1Q_2DNWSIHAcTX9KKrRMnoOhf63fSSytvNHICE1skDvn91OxPAun4$
> > >
> > >
> >
> > [[alternative HTML version deleted]]
> >
> > ___
> > R-help-es mailing list
> > R-help-es@r-project.org
> >
> https://urldefense.com/v3/__https://stat.ethz.ch/mailman/listinfo/r-help-es__;!!D9dNQwwGXtA!SO5aun-Yamxtje74i5V9XQrQWI1Q_2DNWSIHAcTX9KKrRMnoOhf63fSSytvNHICE1skDvn91JE_WlVY$
> >
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] reemplazar valores en texto según condiciones

[juan manuel dias]

Hola,
Algo que me está pasando con esta función es lo siguiente:
A "p1" lo tengo que reemplazar por "p1_integra_datos" y a "p10" por
"p10_cuales_rep", pero como p10 contiene p1, y así pasa con otras preguntas
(p2 y p20, por ejemplo),
me los reemplaza en ambas, cuándo lo que busco es otra cosa.

reglas$condicion_final <- stri_replace_all_fixed(reglas$condicion_minus,
c("p1","p2","p3","p4","p5","p6","p7","p8","p9","p10"),
c("p1_integra_datos","p2_recop_dat","p3_como_recop","p4_bases_prop","p5_cuales_bases",
"p6_cuanto_integ_dat","p7_tec_integr_dat","p8_documen_pol_int","p9_report_dat","p10_cuales_rep"),
vectorize_all = FALSE)

Se les ocurre como resolverlo, estoy agregando un guión bajo después de
cada pregunta p1_ p10_ para que esto no pase, pero no se me ocurre
como hacerlo en el código.

Muchas gracias! Juan.

El mar, 7 mar 2023 a las 14:11, Carlos Ortega ()
escribió:

> Hola,
>
> Dentro de la librería "stringi" tienes la posibilidad de hacer lo que
> quieres de forma vectorizada y super eficiente.
> De esta forma..:
>
> library(stringi)
> texto_nuevo <- stri_replace_all_fixed(texto, c('p1', 'p2'),
> c('p1_integra_datos', 'p2_recop_dat'), vectorize_all = FALSE)
>
> Gracias,
> Carlos Ortega
> www.qualityexcellence.es
>
> El mar, 7 mar 2023 a las 18:04, juan manuel dias ()
> escribió:
>
>> Hola, como andan! Espero que bien!
>> Tengo dos bases, A) tiene una variable texto en la que deseo reemplazar
>> ciertas partes y B) tengo las condiciones para cambiar ese texto de la
>> base
>> A.
>>
>> Base A
>>
>> texto
>> si p1 = 1 o 2 = 1,3
>> si p1 = 3 o 4 = 1
>> si p1 = 5 = 0,7
>> si p1 = 5 = 0,7
>> si p1 = 6 = 0
>> si p1 = 7 = "no aplica"
>> si p2 = 1 & p3 = 1 = 0,5
>> si p2 = 1 & p3 = 2 = 0,7
>> si p2 = 1 & p3 = 4 o 3 = 1
>> si p2 = 1 & p3 = 5 = 0,5
>> si p2 = 1 & p3 = 6 = 0,5
>> si p2 = 2 = 0
>> si p2 = 3 = 0
>> si p2 = 4 = no aplica
>> Base B
>>
>> texto_a_reemplazar_en_base_A texto_final_en_A
>> p1 p1_integra_datos
>> p2 p2_recop_dat
>>
>> Lo estoy haciendo con condiciones IF ELSE pero se me hace un código muy
>> largo.
>> Estoy probando de armar un for que recorra base A y lo reemplace por el
>> texto que está en Base B.
>>
>> Si alguno se le ocurre más que agradecido!
>>
>> Gracias! Juan.
>>
>> [[alternative HTML version deleted]]
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] reemplazar valores en texto según condiciones

[juan manuel dias]

Hola! Si, pero se hace más largo el código. Como lo planteo Carlos va muy
bien y es más corto. Gracias!!

El mar., 7 de marzo de 2023 18:35, Juan Carlos Lopez Mesa <
jclop...@unal.edu.co> escribió:

> Hola,
>
> La función case_when() te puede servir
>
> https://dplyr.tidyverse.org/reference/case_when.html
>
>
>
> El mar, 7 mar 2023 a las 12:04, juan manuel dias ()
> escribió:
>
>> Hola, como andan! Espero que bien!
>> Tengo dos bases, A) tiene una variable texto en la que deseo reemplazar
>> ciertas partes y B) tengo las condiciones para cambiar ese texto de la
>> base
>> A.
>>
>> Base A
>>
>> texto
>> si p1 = 1 o 2 = 1,3
>> si p1 = 3 o 4 = 1
>> si p1 = 5 = 0,7
>> si p1 = 5 = 0,7
>> si p1 = 6 = 0
>> si p1 = 7 = "no aplica"
>> si p2 = 1 & p3 = 1 = 0,5
>> si p2 = 1 & p3 = 2 = 0,7
>> si p2 = 1 & p3 = 4 o 3 = 1
>> si p2 = 1 & p3 = 5 = 0,5
>> si p2 = 1 & p3 = 6 = 0,5
>> si p2 = 2 = 0
>> si p2 = 3 = 0
>> si p2 = 4 = no aplica
>> Base B
>>
>> texto_a_reemplazar_en_base_A texto_final_en_A
>> p1 p1_integra_datos
>> p2 p2_recop_dat
>>
>> Lo estoy haciendo con condiciones IF ELSE pero se me hace un código muy
>> largo.
>> Estoy probando de armar un for que recorra base A y lo reemplace por el
>> texto que está en Base B.
>>
>> Si alguno se le ocurre más que agradecido!
>>
>> Gracias! Juan.
>>
>> [[alternative HTML version deleted]]
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
> *Aviso legal:* El contenido de este mensaje y los archivos adjuntos son
> confidenciales y de uso exclusivo de la Universidad Nacional de Colombia.
> Se encuentran dirigidos sólo para el uso del destinatario al cual van
> enviados. La reproducción, lectura y/o copia se encuentran prohibidas a
> cualquier persona diferente a este y puede ser ilegal. Si usted lo ha
> recibido por error, infórmenos y elimínelo de su correo. Los Datos
> Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra
> Política de Datos Personales que podrá consultar en la página web
> www.unal.edu.co. Las opiniones, informaciones, conclusiones y cualquier
> otro tipo de dato contenido en este correo electrónico, no relacionados con
> la actividad de la Universidad Nacional de Colombia, se entenderá como
> personales y de ninguna manera son avaladas por la Universidad.
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] reemplazar valores en texto según condiciones

[juan manuel dias]

muchas gracias carlos!

El mar, 7 mar 2023 a las 14:11, Carlos Ortega ()
escribió:

> Hola,
>
> Dentro de la librería "stringi" tienes la posibilidad de hacer lo que
> quieres de forma vectorizada y super eficiente.
> De esta forma..:
>
> library(stringi)
> texto_nuevo <- stri_replace_all_fixed(texto, c('p1', 'p2'),
> c('p1_integra_datos', 'p2_recop_dat'), vectorize_all = FALSE)
>
> Gracias,
> Carlos Ortega
> www.qualityexcellence.es
>
> El mar, 7 mar 2023 a las 18:04, juan manuel dias ()
> escribió:
>
>> Hola, como andan! Espero que bien!
>> Tengo dos bases, A) tiene una variable texto en la que deseo reemplazar
>> ciertas partes y B) tengo las condiciones para cambiar ese texto de la
>> base
>> A.
>>
>> Base A
>>
>> texto
>> si p1 = 1 o 2 = 1,3
>> si p1 = 3 o 4 = 1
>> si p1 = 5 = 0,7
>> si p1 = 5 = 0,7
>> si p1 = 6 = 0
>> si p1 = 7 = "no aplica"
>> si p2 = 1 & p3 = 1 = 0,5
>> si p2 = 1 & p3 = 2 = 0,7
>> si p2 = 1 & p3 = 4 o 3 = 1
>> si p2 = 1 & p3 = 5 = 0,5
>> si p2 = 1 & p3 = 6 = 0,5
>> si p2 = 2 = 0
>> si p2 = 3 = 0
>> si p2 = 4 = no aplica
>> Base B
>>
>> texto_a_reemplazar_en_base_A texto_final_en_A
>> p1 p1_integra_datos
>> p2 p2_recop_dat
>>
>> Lo estoy haciendo con condiciones IF ELSE pero se me hace un código muy
>> largo.
>> Estoy probando de armar un for que recorra base A y lo reemplace por el
>> texto que está en Base B.
>>
>> Si alguno se le ocurre más que agradecido!
>>
>> Gracias! Juan.
>>
>> [[alternative HTML version deleted]]
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] reemplazar valores en texto según condiciones

[juan manuel dias]

Hola, como andan! Espero que bien!
Tengo dos bases, A) tiene una variable texto en la que deseo reemplazar
ciertas partes y B) tengo las condiciones para cambiar ese texto de la base
A.

Base A

texto
si p1 = 1 o 2 = 1,3
si p1 = 3 o 4 = 1
si p1 = 5 = 0,7
si p1 = 5 = 0,7
si p1 = 6 = 0
si p1 = 7 = "no aplica"
si p2 = 1 & p3 = 1 = 0,5
si p2 = 1 & p3 = 2 = 0,7
si p2 = 1 & p3 = 4 o 3 = 1
si p2 = 1 & p3 = 5 = 0,5
si p2 = 1 & p3 = 6 = 0,5
si p2 = 2 = 0
si p2 = 3 = 0
si p2 = 4 = no aplica
Base B

texto_a_reemplazar_en_base_A texto_final_en_A
p1 p1_integra_datos
p2 p2_recop_dat

Lo estoy haciendo con condiciones IF ELSE pero se me hace un código muy
largo.
Estoy probando de armar un for que recorra base A y lo reemplace por el
texto que está en Base B.

Si alguno se le ocurre más que agradecido!

Gracias! Juan.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Eliminar registros por un criterio.

[juan manuel dias]

Hola, si, claro!

El tema es que tengo NA en variable importe.ok en expedientes que no se
repiten y que no quiero eliminar, y de esta forma si los elimina. Quizá me
faltó comentar que en la base tengo expedientes que no se repiten que no
quiero eliminar. Solo necesito eliminar los expedientes repetidos donde
tengo NA en variable importe.ok.

Se entiende?

Abajo un ejemplo que refleja esto que digo.

razon.social expediente moneda importe
savant 123 $ 1234 necesito este registro
savant123 $   eliminar este registro
sidus 125 $   eliminar este registro
sidus 125 $ 3245 necesito este registro
artaf 127 $   eliminar este registro
artaf 127 $ 3267 necesito este registro
roche 324 $ 1246 necesito este registro
savant 218 $   necesito este registro

Pude resolverlo así, no se si habrá otra forma sin tener que hacerlo en dos
pasos.

expe.dupli<-base.filrada %>%
  group_by(expediente) %>%
  summarise("cantidad"=n())base.filrada.final<-base.filrada %>%
  left_join(expe.dupli, by=c("expediente")) %>%
  filter(cantidad==2 & !is.na(importe.final_dos) | cantidad==1)

Gracias!!


El vie, 13 may 2022 a las 17:05, Carlos Ortega ()
escribió:

> Hola,
>
> Simplemente con la función "filter()" lo puedes conseguir...
>
> midf_limpio <- df_inicial %>%
>filter(!is.na(importe))
>
> Así te quedas solamente con las filas que tienen un importe no nulo...
>
> Gracias,
> Carlos Ortega
> www.qualityexcellence.es
>
> El vie, 13 may 2022 a las 20:50, juan manuel dias ()
> escribió:
>
>> Hola,
>>
>> Tengo una una base donde algunos expedientes están duplicados, pero uno de
>> los dos tienen valor en variable importe y el otro no. Necesito eliminar
>> el
>> que no tiene importe y quedarme con el que si tiene.
>>
>> Intenté con slice(n()) pero no obtengo lo que necesito.
>>
>> Dejo abajo un ejemplo para que se entienda.
>>
>> Muchas gracias!
>>
>> razon.social expediente moneda importe ok
>> savant 12345 $ 1234 necesito este registro
>> savant 12345 $   eliminar este registro
>> sidus 23457 $   eliminar este registro
>> sidus 23457 $ 3245 necesito este registro
>> artaf 23459 $   eliminar este registro
>> artaf 23459 $ 3267 necesito este registro
>>
>> [[alternative HTML version deleted]]
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] formato fechas

[juan manuel dias]

Muchas gracias, carlos!
Claro, de esa forma queda en formato de fecha lubridate, pero necesito que
quede en formato de fecha pero que se vea "ene-22" en vez de "2022-01-01".
Gracias!

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] generar variable consecutiva en función de los valores de otras variables

[juan manuel dias]

Muchas gracias!
Lo resolví de este modo...que creo no es muy distinto del que me pasaste!

fecha_perf_entrega %>%
  group_by(`Número orden de compra`,Renglón) %>%
  mutate(n_entrega = seq_len(n())) ## con esta línea lo resolví

El lun, 20 dic 2021 a las 11:35, JCMld () escribió:

> Creo que faltaría el campo del renglón  en el group_by:
>
>
>
> datos %>%
>   diplyr::group_by(nro_orden, renglon) %>%
>   diplyr::mutate(n_entrega = row_number())
>
>
>
> Saludos
>
>
>
> *De:* R-help-es  *En nombre de *Juan
> Carlos Lopez Mesa
> *Enviado el:* lunes, 20 de diciembre de 2021 12:20
> *Para:* juan manuel dias 
> *CC:* Lista R 
> *Asunto:* Re: [R-es] generar variable consecutiva en función de los
> valores de otras variables
>
>
>
> Hola,
>
>
>
> datos %>%
>   diplyr::group_by(nro_orden) %>%
>   diplyr::mutate(n_entrega = row_number())
>
>
>
> Saludos.
>
>
>
> El vie, 17 dic 2021 a las 12:06, juan manuel dias ()
> escribió:
>
> Hola, como andan!
>
> Estoy joineando varias bases que tienen información de de entregas de
> productos pero me encuentro con un problema de multiplicación de filas.
>
> Para solucionarlo se me ocurre que puedo generar un variable consecutiva
> que identifique unívocamente a cada entrega para cada orden de compra y
> renglón, como la variable n_entrega que muestro abajo.
>
> Luego concateno "Número orden de compra", "Renglón" y "n_entrega", y con
> esa variable podría joinear evitando la multiplicación de filas.
>
> Se les ocurre como puede genera la variable "n_entrega"?
>
> Adjunto un recorte de la base.
>
> Muchas gracias! Juan.
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
> *Aviso legal:* El contenido de este mensaje y los archivos adjuntos son
> confidenciales y de uso exclusivo de la Universidad Nacional de Colombia.
> Se encuentran dirigidos sólo para el uso del destinatario al cual van
> enviados. La reproducción, lectura y/o copia se encuentran prohibidas a
> cualquier persona diferente a este y puede ser ilegal. Si usted lo ha
> recibido por error, infórmenos y elimínelo de su correo. Los Datos
> Personales serán tratados conforme a la Ley 1581 de 2012 y a nuestra
> Política de Datos Personales que podrá consultar en la página web
> www.unal.edu.co. Las opiniones, informaciones, conclusiones y cualquier
> otro tipo de dato contenido en este correo electrónico, no relacionados con
> la actividad de la Universidad Nacional de Colombia, se entenderá como
> personales y de ninguna manera son avaladas por la Universidad.
>
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] generar variable consecutiva en función de los valores de otras variables

[juan manuel dias]

Hola, como andan!

Estoy joineando varias bases que tienen información de de entregas de
productos pero me encuentro con un problema de multiplicación de filas.

Para solucionarlo se me ocurre que puedo generar un variable consecutiva
que identifique unívocamente a cada entrega para cada orden de compra y
renglón, como la variable n_entrega que muestro abajo.
[image: image.png]
Luego concateno "Número orden de compra", "Renglón" y "n_entrega", y con
esa variable podría joinear evitando la multiplicación de filas.

Se les ocurre como puede genera la variable "n_entrega"?

Adjunto un recorte de la base.

Muchas gracias! Juan.


datos_ejemplo.xlsx
Description: MS-Excel 2007 spreadsheet
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Visualizar fecha sin horas minutos y segundos

[juan manuel dias]

Muchas gracias!

El mar, 14 dic 2021 a las 19:22, Carlos Ortega ()
escribió:

> Hola,
>
> Sí, tienes la duda resuelta aquí:
>
>
> https://stackoverflow.com/questions/16557028/date-conversion-from-posixct-to-date-in-r
>
> Gracias,
> Carlos Ortega
> www.qualityexcellence.es
>
> El mar, 14 dic 2021 a las 21:20, juan manuel dias ()
> escribió:
>
>> Hola,
>> Estoy trabajando con fechas en formato "POSIXct" "POSIXt", pero al
>> levantar las fechas con datatable de librería DT, querría que solo se
>> visualice d/m/y sin las horas minutos y segundos.
>>
>> Actualmente se ven así
>>
>> [image: image.png]
>>
>> Estoy probando distintas formas
>>
>> mutate(`Día de Fecha inicio contrato`=format(as.POSIXct(`Día de Fecha
>> inicio contrato`,format='%m/%d/%Y %H:%M:%S'),format='%d/%m/%Y')) %>%
>>
>> Pero de esta forma se convierten a formato character
>>
>> Alguien se le ocurre como hacer?
>>
>> Muchas gracias!
>>
>> Juan.
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Visualizar fecha sin horas minutos y segundos

[juan manuel dias]

Hola,
Estoy trabajando con fechas en formato "POSIXct" "POSIXt", pero al levantar
las fechas con datatable de librería DT, querría que solo se visualice
d/m/y sin las horas minutos y segundos.

Actualmente se ven así

[image: image.png]

Estoy probando distintas formas

mutate(`Día de Fecha inicio contrato`=format(as.POSIXct(`Día de Fecha
inicio contrato`,format='%m/%d/%Y %H:%M:%S'),format='%d/%m/%Y')) %>%

Pero de esta forma se convierten a formato character

Alguien se le ocurre como hacer?

Muchas gracias!

Juan.
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] extraer una sub cadena hasta el primer punto y coma (;)

[juan manuel dias]

Recién lo hice como me recomendó Emilio y funcionó, gracias!

El mar, 14 dic 2021 a las 12:25, juan manuel dias ()
escribió:

> de esa forma me arroja el mismo error!
>
> Error: Problem with `mutate()` column `sub_label`.
> i `sub_label = `%>%`(...)`.
> i `sub_label` must be size 3136 or 1, not 1507.
>
> El mar, 14 dic 2021 a las 12:18, juan manuel dias ()
> escribió:
>
>> Muchas gracias! Creo que lo resolví así
>>
>> aaa<-listado_nuevo %>%
>>   mutate(sub_label = stringr::str_split(listado_nuevo$`Descripción
>> ítem`,";") %>%
>>map_chr(.,1))
>>
>> El mar, 14 dic 2021 a las 12:12, Emilio L. Cano ()
>> escribió:
>>
>>> Hola,
>>> Si lo usas dentro de mutate, tienes que hacerlo sobre la variable del
>>> data.frame. Es decir, te sobraría listado_nuevo$
>>>
>>> Un saludo,
>>>
>>> Emilio L. Cano
>>> http://emilio.lcano.com
>>>
>>>
>>>
>>>
>>> > El 14 dic 2021, a las 16:09, juan manuel dias 
>>> escribió:
>>> >
>>> > Hola, como andan!
>>> >
>>> > Tengo un data frame y una de las variables es una cadena larga...de la
>>> cuál solo necesito quedarme con la cadena que llega hasta un punto y coma
>>> (;).
>>> >
>>> > El texto es así:
>>> >
>>> > texto<-c("S. TRANSPORTE DE VACUNAS; DESCRIPCION: TRANSPORTE DE
>>> VACUNAS","SERV. DE ALMACENAMIENTO; DESCRIPCION: SERVICIO DE ALMACENAMIENTO"
>>> )
>>> >
>>> > s<-str_split(texto, pattern = fixed(";"), simplify = TRUE)
>>> > s
>>> >
>>> > 
>>> >
>>> > En principio esto funciona así como está, pero cuándo lo incluyo
>>> dentro de un objeto tidy
>>> >
>>> >mutate (primer_desc_item=(str_split(listado_nuevo$`Descripción
>>> ítem`, pattern = fixed(";"), simplify = TRUE)))
>>> >
>>> > Se me complica y me sale el siguiente error.
>>> >
>>> > Error: Problem with `mutate()` column `primer_desc_item`.
>>> > i `primer_desc_item = (...)`.
>>> > i `primer_desc_item` must be size 3136 or 1, not 1507.
>>> > Run `rlang::last_error()` to see where the error occurred.
>>> >
>>> > Se les ocurre que puede estar pasando?
>>> >
>>> > Muchas gracias! Juan.
>>> > ___
>>> > R-help-es mailing list
>>> > R-help-es@r-project.org
>>> > https://stat.ethz.ch/mailman/listinfo/r-help-es
>>>
>>>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] extraer una sub cadena hasta el primer punto y coma (;)

[juan manuel dias]

de esa forma me arroja el mismo error!

Error: Problem with `mutate()` column `sub_label`.
i `sub_label = `%>%`(...)`.
i `sub_label` must be size 3136 or 1, not 1507.

El mar, 14 dic 2021 a las 12:18, juan manuel dias ()
escribió:

> Muchas gracias! Creo que lo resolví así
>
> aaa<-listado_nuevo %>%
>   mutate(sub_label = stringr::str_split(listado_nuevo$`Descripción
> ítem`,";") %>%
>map_chr(.,1))
>
> El mar, 14 dic 2021 a las 12:12, Emilio L. Cano ()
> escribió:
>
>> Hola,
>> Si lo usas dentro de mutate, tienes que hacerlo sobre la variable del
>> data.frame. Es decir, te sobraría listado_nuevo$
>>
>> Un saludo,
>>
>> Emilio L. Cano
>> http://emilio.lcano.com
>>
>>
>>
>>
>> > El 14 dic 2021, a las 16:09, juan manuel dias 
>> escribió:
>> >
>> > Hola, como andan!
>> >
>> > Tengo un data frame y una de las variables es una cadena larga...de la
>> cuál solo necesito quedarme con la cadena que llega hasta un punto y coma
>> (;).
>> >
>> > El texto es así:
>> >
>> > texto<-c("S. TRANSPORTE DE VACUNAS; DESCRIPCION: TRANSPORTE DE
>> VACUNAS","SERV. DE ALMACENAMIENTO; DESCRIPCION: SERVICIO DE ALMACENAMIENTO"
>> )
>> >
>> > s<-str_split(texto, pattern = fixed(";"), simplify = TRUE)
>> > s
>> >
>> > 
>> >
>> > En principio esto funciona así como está, pero cuándo lo incluyo dentro
>> de un objeto tidy
>> >
>> >mutate (primer_desc_item=(str_split(listado_nuevo$`Descripción
>> ítem`, pattern = fixed(";"), simplify = TRUE)))
>> >
>> > Se me complica y me sale el siguiente error.
>> >
>> > Error: Problem with `mutate()` column `primer_desc_item`.
>> > i `primer_desc_item = (...)`.
>> > i `primer_desc_item` must be size 3136 or 1, not 1507.
>> > Run `rlang::last_error()` to see where the error occurred.
>> >
>> > Se les ocurre que puede estar pasando?
>> >
>> > Muchas gracias! Juan.
>> > ___
>> > R-help-es mailing list
>> > R-help-es@r-project.org
>> > https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] extraer una sub cadena hasta el primer punto y coma (;)

[juan manuel dias]

Muchas gracias! Creo que lo resolví así

aaa<-listado_nuevo %>%
  mutate(sub_label = stringr::str_split(listado_nuevo$`Descripción
ítem`,";") %>%
   map_chr(.,1))

El mar, 14 dic 2021 a las 12:12, Emilio L. Cano ()
escribió:

> Hola,
> Si lo usas dentro de mutate, tienes que hacerlo sobre la variable del
> data.frame. Es decir, te sobraría listado_nuevo$
>
> Un saludo,
>
> Emilio L. Cano
> http://emilio.lcano.com
>
>
>
>
> > El 14 dic 2021, a las 16:09, juan manuel dias 
> escribió:
> >
> > Hola, como andan!
> >
> > Tengo un data frame y una de las variables es una cadena larga...de la
> cuál solo necesito quedarme con la cadena que llega hasta un punto y coma
> (;).
> >
> > El texto es así:
> >
> > texto<-c("S. TRANSPORTE DE VACUNAS; DESCRIPCION: TRANSPORTE DE
> VACUNAS","SERV. DE ALMACENAMIENTO; DESCRIPCION: SERVICIO DE ALMACENAMIENTO"
> )
> >
> > s<-str_split(texto, pattern = fixed(";"), simplify = TRUE)
> > s
> >
> > 
> >
> > En principio esto funciona así como está, pero cuándo lo incluyo dentro
> de un objeto tidy
> >
> >mutate (primer_desc_item=(str_split(listado_nuevo$`Descripción ítem`,
> pattern = fixed(";"), simplify = TRUE)))
> >
> > Se me complica y me sale el siguiente error.
> >
> > Error: Problem with `mutate()` column `primer_desc_item`.
> > i `primer_desc_item = (...)`.
> > i `primer_desc_item` must be size 3136 or 1, not 1507.
> > Run `rlang::last_error()` to see where the error occurred.
> >
> > Se les ocurre que puede estar pasando?
> >
> > Muchas gracias! Juan.
> > ___
> > R-help-es mailing list
> > R-help-es@r-project.org
> > https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] extraer una sub cadena hasta el primer punto y coma (;)

[juan manuel dias]

Hola, como andan!

Tengo un data frame y una de las variables es una cadena larga...de la cuál
solo necesito quedarme con la cadena que llega hasta un punto y coma (;).

El texto es así:

texto<-c("S. TRANSPORTE DE VACUNAS; DESCRIPCION: TRANSPORTE DE
VACUNAS","SERV. DE ALMACENAMIENTO; DESCRIPCION: SERVICIO DE ALMACENAMIENTO"
)

s<-str_split(texto, pattern = fixed(";"), simplify = TRUE)
s

[image: image.png]

En principio esto funciona así como está, pero cuándo lo incluyo dentro de
un objeto tidy

   mutate (primer_desc_item=(str_split(listado_nuevo$`Descripción ítem`,
pattern = fixed(";"), simplify = TRUE)))

Se me complica y me sale el siguiente error.

Error: Problem with `mutate()` column `primer_desc_item`.
i `primer_desc_item = (...)`.
i `primer_desc_item` must be size 3136 or 1, not 1507.
Run `rlang::last_error()` to see where the error occurred.

Se les ocurre que puede estar pasando?

Muchas gracias! Juan.
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] reemplazar valores de una variable por otras

[juan manuel dias]

Hola, muchas gracias!
Lo resolví con coalesce()

##mutate(Dirección_Final=coalesce(Dirección,`Dirección
General`,Subsecretaria, Secretaria))

El vie, 19 nov 2021 a las 5:01, Proyecto R-UCA () escribió:

> Buenas,
>
> ¿qué tal esto?
>
> Supongamos que las variables están en un data.frame d que tiene todas
> esas columnas, entonces
>
> d$Direccion_Final <- d$Direccion
> d$Direccion_Final[is.na(d$Direccion_Final)] <- d$Direccion_General
> d$Direccion_Final[is.na(d$Direccion_Final)] <- d$Subsecretaria
> d$Direccion_Final[is.na(d$Direccion_Final)] <- d$Secretaria
>
> Un saludo.
>
> P.D.: Quito las tildes de los nombres de las variables pues pueden dar
> problemas de portabilidad.
>
> El jue, 18-11-2021 a las 15:35 -0300, juan manuel dias escribió:
> > Hola, como andan!
> > Necesito crear una variable nueva "Dirección_Final" que sea igual a
> > la variable "Dirección", pero que si "Dirección" es NA traiga
> > "Dirección General", si "Dirección General" es NA traiga
> > "Subsecretaria", y si "Subsecretaria" es NA traiga "Secretaria".
> > Estoy intentando con ifesle pero no logro llegar al resultado
> > esperado! Les dejo un recorte de la base! Muchas gracias!
> > Saludos, Juan.
> > ___
> > R-help-es mailing list
> > R-help-es@r-project.org
> > https://stat.ethz.ch/mailman/listinfo/r-help-es
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] reemplazar valores de una variable por otras

[juan manuel dias]

Hola, como andan!
Necesito crear una variable nueva "*Dirección_Final*" que sea igual a la
variable "*Dirección*", pero que si "*Dirección" *es NA traiga "*Dirección
General*", si "*Dirección General*" es NA traiga "*Subsecretaria*", y si "
*Subsecretaria*" es NA traiga "*Secretaria*". Estoy intentando con
ifesle pero no logro llegar al resultado esperado! Les dejo un recorte de
la base! Muchas gracias!
Saludos, Juan.


ejemplo.xlsx
Description: MS-Excel 2007 spreadsheet
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] separadores de miles.

[juan manuel dias]

Claro entiendo! ...en algunos casos pude guardar como character y mostrar
la los números con los separadores, pero hay tablas donde necesito además
de mostrar el número hacer un gráfico con esa misma variable...pero cuándo
modifico a character "monto total de la factura" me arroja error porque no
puede hacer el gráfico de barras al no ser numérica!
Alguien sabe como resolver esto?


[image: image.png]

El jue, 14 oct 2021 a las 13:51, JCMld () escribió:

> Hola Juan Manuel,
>
> Si el dato es numérico no puede guardarse con separadores, a no ser que lo
> convirtieras a character, ya que el separador es un tema de formato de
> salida.
>
> Entonces tienes 2 opciones, o lo guardas como numérico, pero a la hora de
> presentarlo lo imprimes con la función format, o bien lo conviertes a
> character con la misma función.
>
> Me explico:
>
> > a<-10023.2
> > a
> [1] 10023.2
> > format(a,decimal.mark = ",",big.mark = ".")
> [1] "10.023,2"
> >
> > b<-123691353
> >
> > format(b,decimal.mark = ",",big.mark = ".")
> [1] "123.691.353"
>
>
> Saludos,
> Juan
>
> -Mensaje original-
> De: R-help-es  En nombre de juan manuel
> dias
> Enviado el: jueves, 14 de octubre de 2021 18:40
> Para: Lista R 
> Asunto: [R-es] separadores de miles.
>
> Hola. Como andan!
> Consulta, del siguiente data frame la columna "importe $" es de tipo
> numérico y querría que siga siendo numérica pero agregando separadores de
> miles.
>
> Proveedores`Importe en $` Porcentaje
>
> 1 ORIEN SA  336970003  14
> 2 JANSSEN CILAG  1117313805
> 3 MANFREY COOP 1236913535
> 4 Otros  1816210357.72
>
> Por ejemplo, que 123691353 pase a 123.691.353.
>
> Cuándo hago esto:
>
> tabla.prov.sort$`Importe en $` <- format(tabla.prov.sort$`Importe en $`,
> big.mark = ".") class(tabla.prov.sort$`Importe en $`) [1] "character"
>
> Y si hago esto:
>
> tabla.prov.sort$`Importe en $` <-
> as.numeric(format(tabla.prov.sort$`Importe en $`, big.mark = "."))
>
> Warning message:
> NAs introducidos por coerción
>
> Se les ocurre como hacer?
>
> Muchas gracias!
>
> Saludos, Juan.
>
> [[alternative HTML version deleted]]
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Eliminar todos los caracteres después de un espacio en blanco

[juan manuel dias]

Muy buena también! gracias Carlos!

El mié, 13 oct 2021 a las 3:58, Carlos Ortega ()
escribió:

> Hola,
>
> Aún cerrada la duda, dejo aquí otra posible alternativa:
>
> #---
>
> > library(stringr)
> > a <- c("7/6/2020 7:55:38 p.m.", "7/3/2020 1:08:36 p.m.", "7/3/2020
> 6:08:35 p.m.")
> > mis_fechas <- word(a, 1, sep = fixed(" "))
> > mis_fechas
> [1] "7/6/2020" "7/3/2020" "7/3/2020"
> >
>
> #---
>
> Gracias,
> Carlos Ortega
> www.qualityexcellence.es
>
> El mar, 12 oct 2021 a las 20:07, juan manuel dias ()
> escribió:
>
>> Hola, muchas gracias!
>> Funcionó perfecto!
>> Saludos, Juan.
>>
>> El mar, 12 oct 2021 a las 13:48, Proyecto R-UCA ()
>> escribió:
>>
>> > Buenas, Juan:
>> >
>> > A ver si esto te sirve:
>> > a <- c("7/6/2020 7:55:38 p.m.", "7/3/2020 1:08:36 p.m.", "7/3/2020
>> > 6:08:35 p.m.")
>> > f <- function(x) {
>> > strsplit(x, " ")[[1]][1]
>> > }
>> > unlist(lapply(a, f))
>> >
>> > [1] "7/6/2020" "7/3/2020" "7/3/2020"
>> >
>> > Un saludo
>> >
>> > El mar, 12-10-2021 a las 13:19 -0300, juan manuel dias escribió:
>> > > Hola José, como andas!
>> > >
>> > > Por alguna razón me trae algún problema hacerlo de ese modolo que
>> > > venía
>> > > haciendo es dejar las cadenas en
>> > >
>> > > 7/6/2020
>> > > 7/3/2020
>> > >
>> > > Y luego con lubridate resolvía de este modo...
>> > >
>> > > movimientos.exp$`Fecha de caratulación`<-
>> > > lubridate::mdy(movimientos.exp$`Fecha de caratulación`)
>> > >
>> > > Por eso necesito primero limpiar la cadena...sacando todo lo que
>> > > sigue al
>> > > espacio.
>> > >
>> > > Muchas gracias!
>> > >
>> > > El mar, 12 oct 2021 a las 12:44, jose luis ()
>> > > escribió:
>> > >
>> > > > ¿asi te valdria?
>> > > >
>> > > > datos$FECHA <- as.Date(datos$FECHA, format = "%d/%m/%Y")
>> > > >
>> > > > En martes, 12 de octubre de 2021 17:28:28 CEST, juan manuel dias <
>> > > > juamad...@gmail.com> escribió:
>> > > >
>> > > >
>> > > > Hola, como andan!
>> > > > Tengo una variable con fechas que están en formato cadena y se me
>> > > > complica
>> > > > para trabajarlas directamente con lubridate, antes tengo que
>> > > > hacerle unos
>> > > > retoques y necesitaría eliminar todo lo que aparece después del
>> > > > espacio en
>> > > > blancoes decir eliminar horas minutos segundos y p.m. am.
>> > > > Se les ocurre como hacer?
>> > > > Muchas gracias! Juan.
>> > > >
>> > > > 7/6/2020 7:55:38 p.m.
>> > > > 7/3/2020 1:08:36 p.m.
>> > > > 7/3/2020 6:08:35 p.m.
>> > > > 6/1/2020 1:15:19 p.m.
>> > > > 7/8/2020 7:18:26 p.m.
>> > > > 8/6/2020 5:59:32 p.m.
>> > > > 9/1/2020 5:40:57 p.m.
>> > > >
>> > > > [[alternative HTML version deleted]]
>> > > >
>> > > > ___
>> > > > R-help-es mailing list
>> > > > R-help-es@r-project.org
>> > > > https://stat.ethz.ch/mailman/listinfo/r-help-es
>> > > >
>> > >
>> > > [[alternative HTML version deleted]]
>> > >
>> > > ___
>> > > R-help-es mailing list
>> > > R-help-es@r-project.org
>> > > https://stat.ethz.ch/mailman/listinfo/r-help-es
>> >
>> > ___
>> > R-help-es mailing list
>> > R-help-es@r-project.org
>> > https://stat.ethz.ch/mailman/listinfo/r-help-es
>> >
>>
>> [[alternative HTML version deleted]]
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] separadores de miles.

[juan manuel dias]

Hola. Como andan!
Consulta, del siguiente data frame la columna "importe $" es de tipo
numérico y querría que siga siendo numérica pero agregando separadores de
miles.

Proveedores`Importe en $` Porcentaje
   
1 ORIEN SA  336970003  14
2 JANSSEN CILAG  1117313805
3 MANFREY COOP 1236913535
4 Otros  1816210357.72

Por ejemplo, que 123691353 pase a 123.691.353.

Cuándo hago esto:

tabla.prov.sort$`Importe en $` <- format(tabla.prov.sort$`Importe en $`,
big.mark = ".")
class(tabla.prov.sort$`Importe en $`)
[1] "character"

Y si hago esto:

tabla.prov.sort$`Importe en $` <-
as.numeric(format(tabla.prov.sort$`Importe en $`, big.mark = "."))

Warning message:
NAs introducidos por coerción

Se les ocurre como hacer?

Muchas gracias!

Saludos, Juan.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Eliminar todos los caracteres después de un espacio en blanco

[juan manuel dias]

Hola, muchas gracias!
Funcionó perfecto!
Saludos, Juan.

El mar, 12 oct 2021 a las 13:48, Proyecto R-UCA () escribió:

> Buenas, Juan:
>
> A ver si esto te sirve:
> a <- c("7/6/2020 7:55:38 p.m.", "7/3/2020 1:08:36 p.m.", "7/3/2020
> 6:08:35 p.m.")
> f <- function(x) {
> strsplit(x, " ")[[1]][1]
> }
> unlist(lapply(a, f))
>
> [1] "7/6/2020" "7/3/2020" "7/3/2020"
>
> Un saludo
>
> El mar, 12-10-2021 a las 13:19 -0300, juan manuel dias escribió:
> > Hola José, como andas!
> >
> > Por alguna razón me trae algún problema hacerlo de ese modolo que
> > venía
> > haciendo es dejar las cadenas en
> >
> > 7/6/2020
> > 7/3/2020
> >
> > Y luego con lubridate resolvía de este modo...
> >
> > movimientos.exp$`Fecha de caratulación`<-
> > lubridate::mdy(movimientos.exp$`Fecha de caratulación`)
> >
> > Por eso necesito primero limpiar la cadena...sacando todo lo que
> > sigue al
> > espacio.
> >
> > Muchas gracias!
> >
> > El mar, 12 oct 2021 a las 12:44, jose luis ()
> > escribió:
> >
> > > ¿asi te valdria?
> > >
> > > datos$FECHA <- as.Date(datos$FECHA, format = "%d/%m/%Y")
> > >
> > > En martes, 12 de octubre de 2021 17:28:28 CEST, juan manuel dias <
> > > juamad...@gmail.com> escribió:
> > >
> > >
> > > Hola, como andan!
> > > Tengo una variable con fechas que están en formato cadena y se me
> > > complica
> > > para trabajarlas directamente con lubridate, antes tengo que
> > > hacerle unos
> > > retoques y necesitaría eliminar todo lo que aparece después del
> > > espacio en
> > > blancoes decir eliminar horas minutos segundos y p.m. am.
> > > Se les ocurre como hacer?
> > > Muchas gracias! Juan.
> > >
> > > 7/6/2020 7:55:38 p.m.
> > > 7/3/2020 1:08:36 p.m.
> > > 7/3/2020 6:08:35 p.m.
> > > 6/1/2020 1:15:19 p.m.
> > > 7/8/2020 7:18:26 p.m.
> > > 8/6/2020 5:59:32 p.m.
> > > 9/1/2020 5:40:57 p.m.
> > >
> > > [[alternative HTML version deleted]]
> > >
> > > ___
> > > R-help-es mailing list
> > > R-help-es@r-project.org
> > > https://stat.ethz.ch/mailman/listinfo/r-help-es
> > >
> >
> > [[alternative HTML version deleted]]
> >
> > ___
> > R-help-es mailing list
> > R-help-es@r-project.org
> > https://stat.ethz.ch/mailman/listinfo/r-help-es
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Eliminar todos los caracteres después de un espacio en blanco

[juan manuel dias]

Hola José, como andas!

Por alguna razón me trae algún problema hacerlo de ese modolo que venía
haciendo es dejar las cadenas en

7/6/2020
7/3/2020

Y luego con lubridate resolvía de este modo...

movimientos.exp$`Fecha de caratulación`<-
lubridate::mdy(movimientos.exp$`Fecha de caratulación`)

Por eso necesito primero limpiar la cadena...sacando todo lo que sigue al
espacio.

Muchas gracias!

El mar, 12 oct 2021 a las 12:44, jose luis () escribió:

> ¿asi te valdria?
>
> datos$FECHA <- as.Date(datos$FECHA, format = "%d/%m/%Y")
>
> En martes, 12 de octubre de 2021 17:28:28 CEST, juan manuel dias <
> juamad...@gmail.com> escribió:
>
>
> Hola, como andan!
> Tengo una variable con fechas que están en formato cadena y se me complica
> para trabajarlas directamente con lubridate, antes tengo que hacerle unos
> retoques y necesitaría eliminar todo lo que aparece después del espacio en
> blancoes decir eliminar horas minutos segundos y p.m. am.
> Se les ocurre como hacer?
> Muchas gracias! Juan.
>
> 7/6/2020 7:55:38 p.m.
> 7/3/2020 1:08:36 p.m.
> 7/3/2020 6:08:35 p.m.
> 6/1/2020 1:15:19 p.m.
> 7/8/2020 7:18:26 p.m.
> 8/6/2020 5:59:32 p.m.
> 9/1/2020 5:40:57 p.m.
>
> [[alternative HTML version deleted]]
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Eliminar todos los caracteres después de un espacio en blanco

[juan manuel dias]

Hola, como andan!
Tengo una variable con fechas que están en formato cadena y se me complica
para trabajarlas directamente con lubridate, antes tengo que hacerle unos
retoques y necesitaría eliminar todo lo que aparece después del espacio en
blancoes decir eliminar horas minutos segundos y p.m. am.
Se les ocurre como hacer?
Muchas gracias! Juan.

7/6/2020 7:55:38 p.m.
7/3/2020 1:08:36 p.m.
7/3/2020 6:08:35 p.m.
6/1/2020 1:15:19 p.m.
7/8/2020 7:18:26 p.m.
8/6/2020 5:59:32 p.m.
9/1/2020 5:40:57 p.m.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Respuestas múltiples en una sola columna

[juan manuel dias]

Muchas gracias a ambos!

El mié., 6 de octubre de 2021 15:52, Carlos Ortega 
escribió:

> Hola,
>
> Sí, otra alternativa para dejarlo como has comentado y leyendo
> directamente de Excel...
>
> #---
>
> library(dplyr)
> library(tidyr)
> library(readr)
> library(readxl)
>
> datin <- read_excel("Ejes formativos.xlsx")
>
> datin_long <- datin %>%
>   pivot_longer(
> cols = starts_with("eje"),
> values_to = "ejes"
>   ) %>%
>   rename( area = area_pertenencia) %>%
>   select(-name) %>%
>   relocate(ejes, .before = area)
>
> #---
>
>
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
> El mié, 6 oct 2021 a las 20:17, juan manuel dias ()
> escribió:
>
>> Hola, cómo andan!
>>
>> Tengo una base de una encuesta sobre formación profesional realizada a un
>> conjunto de empleados de una institución.
>>
>> Una de las preguntas es de respuesta múltiple, eje_tem_1,eje_tem_2,
>> eje_tem_3hasta eje_tem_17.
>>
>> Necesitaría que las respuestas de cada persona que están en esas
>> distintas columnas (eje_tem a eje_tem_17) queden en una misma columna, y
>> asimismo que se repita el "ID" y el "area_pertenencia" tantas veces como
>> opciones haya marcado cada caso/persona/"ID".
>>
>> Estuve intentando con pivot_longer pero sin resultados!
>>
>> Actualmente está así
>>
>> *id  | eje_tem_1  | eje_tem_2 | eje_tem_3  | eje_tem_4area*
>> 1 rh  sist   comunfilos
>>admin
>> 2 rh  arte
>>  medic
>> 3 sistmatem empre comun
>>  asist
>> 4 arte   matem empre  sist
>>   asist
>>
>> Y necesitaría que quede así:
>>
>> *id  |  ejes|  area*
>> 1 rh   admin
>> 1 sist admin
>> 1 comunadmin
>> 1 filosadmin
>> 1 admin admin
>> 2  rh   medic
>> 2 arte medic
>> ..   .
>>
>> Adjunto un recorte de la base!
>>
>> Muchas gracias!
>>
>> Saludos, Juan.
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Respuestas múltiples en una sola columna

[juan manuel dias]

Hola, cómo andan!

Tengo una base de una encuesta sobre formación profesional realizada a un
conjunto de empleados de una institución.

Una de las preguntas es de respuesta múltiple, eje_tem_1,eje_tem_2,
eje_tem_3hasta eje_tem_17.

Necesitaría que las respuestas de cada persona que están en esas distintas
columnas (eje_tem a eje_tem_17) queden en una misma columna, y asimismo que
se repita el "ID" y el "area_pertenencia" tantas veces como opciones haya
marcado cada caso/persona/"ID".

Estuve intentando con pivot_longer pero sin resultados!

Actualmente está así

*id  | eje_tem_1  | eje_tem_2 | eje_tem_3  | eje_tem_4area*
1 rh  sist   comunfilos
 admin
2 rh  arte
   medic
3 sistmatem empre comun
 asist
4 arte   matem empre  sist
asist

Y necesitaría que quede así:

*id  |  ejes|  area*
1 rh   admin
1 sist admin
1 comunadmin
1 filosadmin
1 admin admin
2  rh   medic
2 arte medic
..   .

Adjunto un recorte de la base!

Muchas gracias!

Saludos, Juan.


Ejes formativos.xlsx
Description: MS-Excel 2007 spreadsheet
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Particionar bases con split.

[juan manuel dias]

Gracias Carlos!

El sáb., 11 de septiembre de 2021 10:10, Carlos Ortega <
c...@qualityexcellence.es> escribió:

> Hola,
>
> Para la parte de la extracción de "p12" del nombre de la variable, esta es
> una forma sencilla de hacerlo.
>
> #---
> > library(dplyr)
> > library(stringr)
> >
> > df <- data.frame(
> + ute.p12 = rnorm(100),
> + suteba.p12 = rnorm(100)
> + )
> >
> >
> > mynames <- names(df) %>%
> + word(., 2, sep = fixed('.'))
> > mynames
> [1] "p12" "p12"
> #
>
> Gracias,
> Carlos Ortega
> www.qualityexcellence.es
>
>
>
> El vie, 10 sept 2021 a las 14:54, juan manuel dias ()
> escribió:
>
>> Hola, como andan! Estoy trabajando con una base que está en formato .sav,
>> y
>> necesito particionarla en muchos data frames distintos en función de una
>> variable factor, y a cada partición guardarla en formato .sav y/o xlsx, y
>> que cada base esté nombrada con el factor con la cuál generé la partición.
>> La parte de levantar la base y que cada partición quede guardada en una
>> lista esta resuelto con split de r base.
>>
>> El tema que veo es que me guarda cada data frame y en cada nombre de
>> variable le agrega el nombre del factor por el cual genere el split. Por
>> ejemplo, la variable es "p12" y le agrega "ute.p12", "suteba.p12", etc.
>> Querría sacar ute. y suteba. No sé si puede resolver dentro del split o
>> directamente usar dplyr.
>>
>> Y por otro lado, no encuentro en haven como hacer para que al levantar una
>> base .sav, las variables tomen el nombre de las etiquetas. Por ejemplo,
>> "p12" es nombre de variable y la etiqueta es "edad", quiero que tomé
>> "edad"
>> como nombre.
>>
>> Muchas gracias! Saludo, Juan.
>>
>> [[alternative HTML version deleted]]
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Particionar bases con split.

[juan manuel dias]

Hola, como andan! Estoy trabajando con una base que está en formato .sav, y
necesito particionarla en muchos data frames distintos en función de una
variable factor, y a cada partición guardarla en formato .sav y/o xlsx, y
que cada base esté nombrada con el factor con la cuál generé la partición.
La parte de levantar la base y que cada partición quede guardada en una
lista esta resuelto con split de r base.

El tema que veo es que me guarda cada data frame y en cada nombre de
variable le agrega el nombre del factor por el cual genere el split. Por
ejemplo, la variable es "p12" y le agrega "ute.p12", "suteba.p12", etc.
Querría sacar ute. y suteba. No sé si puede resolver dentro del split o
directamente usar dplyr.

Y por otro lado, no encuentro en haven como hacer para que al levantar una
base .sav, las variables tomen el nombre de las etiquetas. Por ejemplo,
"p12" es nombre de variable y la etiqueta es "edad", quiero que tomé "edad"
como nombre.

Muchas gracias! Saludo, Juan.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] cálculo porcentajes por categorías para total casos por año.

[juan manuel dias]

Hola Carlos, muchas gracias!
Voy a probar con este código que me pasaste!
También encontré esta forma de hacerlo que copio más abajo!
Saludos, Juan.

base_porcentajes<-suaci_reclamos %>% group_by(anio, TIPO_PRESTACION) %>%
  dplyr::summarise(reclamos = sum(n_reclamos)) %>%
  transmute(TIPO_PRESTACION, porc_categorias =(reclamos/sum(reclamos)))

El jue, 5 ago 2021 a las 15:56, Carlos Ortega ()
escribió:

> Hola,
>
> Esta es una forma...
>
> #--
> > library(dplyr)
> > library(data.table)
> >
> > datin <- fread('suaci_reclamos.csv')
> >
> > datin %>%
> +   group_by(anio) %>%
> +   mutate(tot_year = sum(n_reclamos)) %>%
> +   group_by(anio, TIPO_PRESTACION) %>%
> +   mutate(tot_pres = sum(n_reclamos) ) %>%
> +   mutate(por_pres_year = (tot_pres/tot_year)*100) %>%
> +   select(-tot_year, -tot_pres) %>%
> +   arrange(anio, TIPO_PRESTACION)
> # A tibble: 15 × 6
> # Groups:   anio, TIPO_PRESTACION [15]
>   V1 TIPO_PRESTACION  anio n_reclamos miles_reclamos por_pres_year
> 
>  1 1 DENUNCIA 2013  35086  35.1   5.49
>  2 4 QUEJA2013  12476  12.5   1.95
>  3 7 RECLAMO  2013 225296 225.   35.2
>  410 SOLICITUD2013 209066 209.   32.7
>  513 TRAMITE  2013 157633 158.   24.6
>  6 2 DENUNCIA 2014  38959  39.0   7.53
>  7 5 QUEJA2014   9544   9.54  1.84
>  8 8 RECLAMO  2014 154987 155.   29.9
>  911 SOLICITUD2014 143330 143.   27.7
> 1014 TRAMITE  2014 170888 171.   33.0
> 11 3 DENUNCIA 2015  94532  94.5  11.3
> 12 6 QUEJA2015  12216  12.2   1.46
> 13 9 RECLAMO  2015 230389 230.   27.5
> 1412 SOLICITUD2015 128488 128.   15.3
> 1515 TRAMITE      2015 372677 373.   44.5
> #--
>
> Gracias,
> Carlos Ortega
> www.qualityexcellence.es
>
> El jue, 5 ago 2021 a las 17:28, juan manuel dias ()
> escribió:
>
>> Hola Estimados/as
>>
>> Estoy necesitando calcular los porcentajes para cada categoría de la
>> variable "tipo de prestación" sobre el total de casos de todas las
>> categorías para cada año (anio).
>>
>> Con este código que pego abajo puedo hacer los porcentajes de cada
>> categoría pero sobre el total de todos los casos.
>>
>> base_ancha<-suaci_reclamos %>%
>>   group_by(anio,TIPO_PRESTACION) %>%
>>   dplyr::summarise(cantidad_reclamos=sum(n_reclamos)) %>%
>>  
>> mutate(porcentaje_tpres=round(cantidad_reclamos/sum(cantidad_reclamos)*100,digits=4))
>> %>%
>>   ungroup()
>>
>> Adjunto la base original sobre la que estoy trabajando (suaci_reclamos) y
>> el resultado al que llego corriendo el código de arriba (base_ancha)...y un
>> excel donde en la columna "Necesito_esto" figura el cálculo que necesito.
>>
>> Lo intenté de varias formas pero no logro que quede así!
>>
>> Muchas gracias!
>>
>> Saludos, Juan.
>>
>>
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] cálculo porcentajes por categorías para total casos por año.

[juan manuel dias]

Hola Estimados/as

Estoy necesitando calcular los porcentajes para cada categoría de la
variable "tipo de prestación" sobre el total de casos de todas las
categorías para cada año (anio).

Con este código que pego abajo puedo hacer los porcentajes de cada
categoría pero sobre el total de todos los casos.

base_ancha<-suaci_reclamos %>%
  group_by(anio,TIPO_PRESTACION) %>%
  dplyr::summarise(cantidad_reclamos=sum(n_reclamos)) %>%
 
mutate(porcentaje_tpres=round(cantidad_reclamos/sum(cantidad_reclamos)*100,digits=4))
%>%
  ungroup()

Adjunto la base original sobre la que estoy trabajando (suaci_reclamos) y
el resultado al que llego corriendo el código de arriba (base_ancha)...y un
excel donde en la columna "Necesito_esto" figura el cálculo que necesito.

Lo intenté de varias formas pero no logro que quede así!

Muchas gracias!

Saludos, Juan.


base_ancha.csv
Description: MS-Excel spreadsheet


suaci_reclamos.csv
Description: MS-Excel spreadsheet


esto_necesito.xlsx
Description: MS-Excel 2007 spreadsheet
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Consulta filtro múltiple.

[juan manuel dias]

gt;  data.table 1.481466 1.543330 1.622688 1.598947 1.679465 1.86684725
>base 1.518659 1.560412 1.621398 1.592776 1.641903 1.79853225
>   dplyr 1.505253 1.530137 1.571444 1.554524 1.597147 1.71404925
>
>
>
>
>
>
>
> Gracias,
>
> Carlos Ortega
>
>
> http://secure-web.cisco.com/190P89zEZCZg27zm--Pzdemoj-uaSTLJwnn27fi161HUE-cXUu0gxmnbJK84Jb_ku-3DYJtt0nYjUfXsdh88VdePSLOtQCDzI0IRf2P0Q1dw0G2luzk8x2FbOx4dJ5Dx5_HtngsrqD7P9qY9S9Iv1IrpkL7AYkr_UQbrVjLHQtQ7KC9Z8nxbygLfSTQtxw8S_9Z2jJ_7LFUdX8ew_68GEv5ImC6lxtJGguR_RYMvEED2CxRLWJ1lVSlq1DfuzHgsv62S0-wUkYSMH3UJXsJeC-80lLiShNMN-N4Rw1rEIEvc294fZ8sGQ1zFawzp_Sfn395zK2PnX3xOwQbJTiugIqw/http%3A%2F%2Fwww.qualityexcellence.es
>
>
>
> El jue, 1 jul 2021 a las 14:51, Carlos Ortega ( <mailto:c...@qualityexcellence.es> >) escribió:
>
> Hola,
>
>
>
> Bueno, he comentado que estaría bien hacer eso... pero no lo he hecho...
> :-)...
>
>
>
> Se puede extender el mínimo dataset que nos han compartido, pero lo suyo
> sería trabajar con todo el conjunto si fuese posible, por incluir más
> fármacos y muy importante tener más condiciones.
>
> Todo esto se puede crear de forma sintética para el caso sencillo (las
> mismas condiciones planteadas) pero para incluir más condiciones costaría
> un tanto preparar ese dataset.
>
>
>
> Si  alguien se ofrece para crear el conjunto base... corremos luego varias
> compartivas.
>
>
>
> Gracias,
>
> Carlos Ortega
>
>
> http://secure-web.cisco.com/190P89zEZCZg27zm--Pzdemoj-uaSTLJwnn27fi161HUE-cXUu0gxmnbJK84Jb_ku-3DYJtt0nYjUfXsdh88VdePSLOtQCDzI0IRf2P0Q1dw0G2luzk8x2FbOx4dJ5Dx5_HtngsrqD7P9qY9S9Iv1IrpkL7AYkr_UQbrVjLHQtQ7KC9Z8nxbygLfSTQtxw8S_9Z2jJ_7LFUdX8ew_68GEv5ImC6lxtJGguR_RYMvEED2CxRLWJ1lVSlq1DfuzHgsv62S0-wUkYSMH3UJXsJeC-80lLiShNMN-N4Rw1rEIEvc294fZ8sGQ1zFawzp_Sfn395zK2PnX3xOwQbJTiugIqw/http%3A%2F%2Fwww.qualityexcellence.es
>
>
>
>
>
> El jue, 1 jul 2021 a las 14:37, Isidro Hidalgo Arellano ( <mailto:ihida...@jccm.es> >) escribió:
>
> Carlos,
> ¿Te importaría poner el código?
> Mil gracias...
>
> Isidro Hidalgo Arellano
> Observatorio del Mercado de Trabajo
> Consejería de Economía, Empresas y Empleo
> http://www.castillalamancha.es/
>
> -Mensaje original-----
> De: R-help-es  r-help-es-boun...@r-project.org> > En nombre de
> miguel.angel.rodriguez.mui...@sergas.es  miguel.angel.rodriguez.mui...@sergas.es>
> Enviado el: jueves, 1 de julio de 2021 12:17
> Para: c...@qualityexcellence.es <mailto:c...@qualityexcellence.es>
> CC: r-help-es@r-project.org <mailto:r-help-es@r-project.org>
> Asunto: Re: [R-es] Consulta filtro múltiple.
>
> Buen trabajo, Carlos.
>
>
> Efectivamente, sqldf es muy poco eficiente (porque "recorre" varias veces
> la base adem�de que tiene que traducir las instrucciones).
>
>
> Yo s�lo recomiendo para la gente que viene del mundo SQL (y del grandioso
> SELECT) y/o a los vagos que prefieran escribir poco c�o.
>
> (yo cumplo las dos condiciones)
>
>
> :-)
>
>
> ?
>
> Un saludo,
>
> Miguel.
>
>
>
>
>
> 
> De: Carlos Ortega  c...@qualityexcellence.es> >
> Enviado: jueves, 1 de julio de 2021 11:57
> Para: Rodr�ez Mu�s, Miguel �gel
> Cc: juan manuel dias; Lista R
> Asunto: Re: [R-es] Consulta filtro m�le.
>
>  [ ... ]
>
> Y el ganador en tiempos de ejecuci�s...
>
> Unit: microseconds
>   expr   min lq   meanmedian uq   max
> neval
>  datatable99.376   198.8520   338.4575   232.609   300.4635  7845.888
> 1000
>  dplyr  1417.242  1939.4520  2598.0892  2285.436  2884.1000 21591.185
> 1000
>   base62.11999.7405   158.8749   119.255   156.1890 10826.685
> 1000
>  sqldf 13058.622 16870.2300 21358.6144 19247.554 24269.0985 64807.865
> 1000
>
>  [ ... ]
>
>
>
> Saludos,
> Carlos Ortega
>
> http://secure-web.cisco.com/1sPMcNqTKgaZhCI3VHWDNPt8_Vz5bObsQ2pCpI6mALdCvwyT029ZW-ysfzukZ3rJw_JLfq3tp4HGeCTtarv64mANhWiqtSNw6eWZDkYL3pFw0Mf4Hx_YmTloiiwMhiH4at3c9HBAOyorwxRZbKClEi-JxpDosJjwQcIVT86Wygf27Pw4nI-yF7R0XhLNnfDbt8JrGM6GrqTB2Wtgqx4kVcJhNPmZ43oEzA-vHOyvU_IzV94U3bOinlD3q6bszB9KY-QH0OoIPQE69aJNCUipeKQ/http%3A%2F%2Fwww.qualityexcellence.es
> <
> http://secure-web.cisco.com/1sPMcNqTKgaZhCI3VHWDNPt8_Vz5bObsQ2pCpI6mALdCvwyT029ZW-ysfzukZ3rJw_JLfq3tp4HGeCTtarv64mANhWiqtSNw6eWZDkYL3pFw0Mf4Hx_YmTloiiwMhiH4at3c9HBAOyorwxRZbKClEi-JxpDosJjwQcIVT86Wygf27Pw4nI-yF7R0XhLNnfDbt8JrGM6GrqTB2Wtgqx4kVcJhNPmZ43oEzA-vHOyvU_IzV94U3bOinlD3q6bszB9KY-QH0OoIPQE69aJNCUipeKQ/http%3A%2F%2Fwww.qualityexcellence.es
> >
>
>
>
> 
>
> Nota: A informaci�ontida nesta men

Re: [R-es] Consulta filtro múltiple.

[juan manuel dias]

Muchas gracias a todos! Que buen trabajo carlos comparando tiempos de
ejecucion con las distintas opciones r base dplyr y sqldf. Saludos! Juan.

El jue., 1 de jul. de 2021 9:37 a.m., Isidro Hidalgo Arellano <
ihida...@jccm.es> escribió:

> Carlos,
> ¿Te importaría poner el código?
> Mil gracias...
>
> Isidro Hidalgo Arellano
> Observatorio del Mercado de Trabajo
> Consejería de Economía, Empresas y Empleo
> http://www.castillalamancha.es/
>
> -Mensaje original-
> De: R-help-es  En nombre de
> miguel.angel.rodriguez.mui...@sergas.es
> Enviado el: jueves, 1 de julio de 2021 12:17
> Para: c...@qualityexcellence.es
> CC: r-help-es@r-project.org
> Asunto: Re: [R-es] Consulta filtro múltiple.
>
> Buen trabajo, Carlos.
>
>
> Efectivamente, sqldf es muy poco eficiente (porque "recorre" varias veces
> la base adem�de que tiene que traducir las instrucciones).
>
>
> Yo s�lo recomiendo para la gente que viene del mundo SQL (y del grandioso
> SELECT) y/o a los vagos que prefieran escribir poco c�o.
>
> (yo cumplo las dos condiciones)
>
>
> :-)
>
>
> ?
>
> Un saludo,
>
> Miguel.
>
>
>
>
>
> ____
> De: Carlos Ortega 
> Enviado: jueves, 1 de julio de 2021 11:57
> Para: Rodr�ez Mu�s, Miguel �gel
> Cc: juan manuel dias; Lista R
> Asunto: Re: [R-es] Consulta filtro m�le.
>
>  [ ... ]
>
> Y el ganador en tiempos de ejecuci�s...
>
> Unit: microseconds
>   expr   min lq   meanmedian uq   max
> neval
>  datatable99.376   198.8520   338.4575   232.609   300.4635  7845.888
> 1000
>  dplyr  1417.242  1939.4520  2598.0892  2285.436  2884.1000 21591.185
> 1000
>   base62.11999.7405   158.8749   119.255   156.1890 10826.685
> 1000
>  sqldf 13058.622 16870.2300 21358.6144 19247.554 24269.0985 64807.865
> 1000
>
>  [ ... ]
>
>
>
> Saludos,
> Carlos Ortega
>
> http://secure-web.cisco.com/1sPMcNqTKgaZhCI3VHWDNPt8_Vz5bObsQ2pCpI6mALdCvwyT029ZW-ysfzukZ3rJw_JLfq3tp4HGeCTtarv64mANhWiqtSNw6eWZDkYL3pFw0Mf4Hx_YmTloiiwMhiH4at3c9HBAOyorwxRZbKClEi-JxpDosJjwQcIVT86Wygf27Pw4nI-yF7R0XhLNnfDbt8JrGM6GrqTB2Wtgqx4kVcJhNPmZ43oEzA-vHOyvU_IzV94U3bOinlD3q6bszB9KY-QH0OoIPQE69aJNCUipeKQ/http%3A%2F%2Fwww.qualityexcellence.es
> <
> http://secure-web.cisco.com/1sPMcNqTKgaZhCI3VHWDNPt8_Vz5bObsQ2pCpI6mALdCvwyT029ZW-ysfzukZ3rJw_JLfq3tp4HGeCTtarv64mANhWiqtSNw6eWZDkYL3pFw0Mf4Hx_YmTloiiwMhiH4at3c9HBAOyorwxRZbKClEi-JxpDosJjwQcIVT86Wygf27Pw4nI-yF7R0XhLNnfDbt8JrGM6GrqTB2Wtgqx4kVcJhNPmZ43oEzA-vHOyvU_IzV94U3bOinlD3q6bszB9KY-QH0OoIPQE69aJNCUipeKQ/http%3A%2F%2Fwww.qualityexcellence.es
> >
>
>
>
> 
>
> Nota: A informaci�ontida nesta mensaxe e os seus posibles documentos
> adxuntos �rivada e confidencial e est�irixida �mente �u destinatario/a. Se
> vostede non �/a destinatario/a orixinal desta mensaxe, por favor elim�a. A
> distribuci�u copia desta mensaxe non est�utorizada.
>
> Nota: La informaci�ontenida en este mensaje y sus posibles documentos
> adjuntos es privada y confidencial y est�irigida �mente a su
> destinatario/a. Si usted no es el/la destinatario/a original de este
> mensaje, por favor elim�lo. La distribuci� copia de este mensaje no
> est�utorizada.
>
> See more languages: http://www.sergas.es/aviso-confidencialidad
>
> [[alternative HTML version deleted]]
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Consulta filtro múltiple.

[juan manuel dias]

Hola! Si, pense en librería sqldf! Gracias!

El jue., 1 de jul. de 2021 4:25 a.m., <
miguel.angel.rodriguez.mui...@sergas.es> escribió:

> Hola Juan Manuel.
>
>
> Otro enfoque (de la vieja escuela)
>
>
> base <- read.csv2("base_monodrogas.csv")
>
> library(sqldf)
>
> ​seleccion <- sqldf("select * from base where (monodroga='aciclovir' AND
> UNIDADES=20) OR (monodroga='paracetamol' AND UNIDADES=10) ")
>
>
> Más info del paquete sqldf aquí -> https://rquer.netlify.app/sql/
>
>
>
> Un saludo,
>
> Miguel.
>
>
>
>
>
>
> --
> *De:* R-help-es  en nombre de juan
> manuel dias 
> *Enviado:* jueves, 1 de julio de 2021 0:15
> *Para:* Lista R
> *Asunto:* [R-es] Consulta filtro múltiple.
>
> Hola, como andan!
>
> Tengo una base de datos de medicamentos (monodrogas), con tres variables,
> unidades, precio y precio unitario. Necesito llegar a un data frame donde
> tenga solo las monodrogas que cumplen alguna condición en la variable
> unidades, pero considerando varias monodrogas.
>
> Esto es un recorte de la base:
>
> Monodroga UNIDADES Precio PrecioUnit
> aciclovir 20 111272 55.636
> aciclovir 20 97464 48.732
> aciclovir 40 98322 432
> aciclovir 40 98322 324
> paracetamol 1 19291 192.91
> paracetamol 1 24702 247.02
> paracetamol 1 21120 211.2
> paracetamol 10 9993 9.993
> paracetamol 10 10443 10.443
> rosuvastatina 14 141134 100.81
> rosuvastatina 28 258262 92.2364286
> rosuvastatina 28 201590 71.9964286
> rosuvastatina 30 183717 61.239
> rosuvastatina 30 231935 77.3116667
>
> Por ejemplo, para la monodroga "aciclovir" necesito solo las filas donde
> Unidades==20,  en paracetamol==10 y en rosuvastatina==30.
>
> Estoy trabajando con tidyverse y he probado algunas cosas que no han
> funcionado.
>
> prom_max_min_base_precios_May_2021_final<-base_precios_May_2021_final %>%
>   ##unite("concat1",CodDrog,CodForma,sep="",remove = FALSE) %>%
>   ##unite("concat2",CodDrog,CodForma,Potencia,sep="",remove = FALSE) %>%
>   filter(!is.na(CodDrog)) %>%
>   ##filter(monodroga=="aciclovir", Unidades %in% c(20)) %>%
>   group_by(concat1,concat2,monodroga) %>%
>   summarize(min_may_2021=min(precio_unitario),
> max_may_2021=max(precio_unitario),
> prom_may_2021=mean(precio_unitario)) %>%
>   ungroup()
>
> Ajdunto la base en csv.
>
> Muchas gracias!
>
> --
>
> Nota: A información contida nesta mensaxe e os seus posibles documentos
> adxuntos é privada e confidencial e está dirixida únicamente ó seu
> destinatario/a. Se vostede non é o/a destinatario/a orixinal desta mensaxe,
> por favor elimínea. A distribución ou copia desta mensaxe non está
> autorizada.
>
> Nota: La información contenida en este mensaje y sus posibles documentos
> adjuntos es privada y confidencial y está dirigida únicamente a su
> destinatario/a. Si usted no es el/la destinatario/a original de este
> mensaje, por favor elimínelo. La distribución o copia de este mensaje no
> está autorizada.
>
> See more languages: http://www.sergas.es/aviso-confidencialidad
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Consulta filtro múltiple.

[juan manuel dias]

Muchas gracias! Esta interesante esta propuesta! Voy a probarla!

El jue., 1 de jul. de 2021 2:53 a.m., Víctor Granda García <
victorgrandagar...@gmail.com> escribió:

> Otra opción es combinar case_when y filter con dplyr. Con case_when creas
> una variable dummy y luego filtras por esta:
>
> data %>%
>   mutate(
> dummy = case_when(
>   Monodroga == aciclovir & unidades >= 20 ~ TRUE,
>   Monodroga == paracetamol & unidades >= 10 ~ TRUE,
>   Monodroga == rosuvastina & unidades >= 30 ~ TRUE,
>   TRUE ~ FALSE
>   )
> ) %>%
>   filter(isTRUE(dummy))
>
>
> *Víctor Granda García*
> Data Scientist
> Ecosystem Modelling Facility - CREAF
>
>
> Tel. +34 93 581 33 53
> CREAF. Campus UAB. Edifici C. 08193 Bellaterra (Barcelona)
>
> Antes de imprimir este mensaje electrónico piense en el medio ambiente.
>
>
>
> On Thu, 1 Jul 2021 at 06:53, juan manuel dias  wrote:
>
>> Muchas gracias! Lo veo una buena opción, mañana voy a probar con algunas
>> monodrogas para ver que funcione y en tal caso lo escalo a toda la base.
>> Muchas gracias! Juan.
>>
>> El mié., 30 de jun. de 2021 7:35 p.m., Eric Concha M. <
>> ericconchamu...@gmail.com> escribió:
>>
>> >
>> >  Y si lo haces con la libreria data.table ? suponiendo que bd es tu
>> >  base de datos:
>> >
>> >  bd1 <- bd[monodroga=="aciclovir" & UNIDADES==20,]
>> >  bd2 <- bd[monodroga=="paracetamol" & UNIDADES==10,]
>> >  bd3 <- bd[monodroga=="rosuvastatina" & UNIDADES==30,]
>> >
>> > y luego las unes:
>> >
>> >  bd.nueva <- rbind(bd1,bd2,bd3)
>> >
>> > Algo así podría ser ... hay muchas otras formas de hacerlo, pero me
>> > gusta data.table cuando son bbdd grandes xq es muy rápida, sobretodo si
>> > la usas con set.key() ... mira la ayuda de R para que veas los detalles
>> > de data.table.
>> >
>> > Ojo con los detalles, como que la columna monodroga sea tipo caracter o
>> > factor, q UNIDADES sea numérico, y así ...
>> >
>> > Suerte !!
>> >
>> > Eric.
>> >
>> >
>> >
>> >
>> > n Wed, 30 Jun 2021 19:15:21 -0300
>> > juan manuel dias  wrote:
>> >
>> > > Hola, como andan!
>> > >
>> > > Tengo una base de datos de medicamentos (monodrogas), con tres
>> > > variables, unidades, precio y precio unitario. Necesito llegar a un
>> > > data frame donde tenga solo las monodrogas que cumplen alguna
>> > > condición en la variable unidades, pero considerando varias
>> > > monodrogas.
>> > >
>> > > Esto es un recorte de la base:
>> > >
>> > > Monodroga UNIDADES Precio PrecioUnit
>> > > aciclovir 20 111272 55.636
>> > > aciclovir 20 97464 48.732
>> > > aciclovir 40 98322 432
>> > > aciclovir 40 98322 324
>> > > paracetamol 1 19291 192.91
>> > > paracetamol 1 24702 247.02
>> > > paracetamol 1 21120 211.2
>> > > paracetamol 10 9993 9.993
>> > > paracetamol 10 10443 10.443
>> > > rosuvastatina 14 141134 100.81
>> > > rosuvastatina 28 258262 92.2364286
>> > > rosuvastatina 28 201590 71.9964286
>> > > rosuvastatina 30 183717 61.239
>> > > rosuvastatina 30 231935 77.3116667
>> > >
>> > > Por ejemplo, para la monodroga "aciclovir" necesito solo las filas
>> > > donde Unidades==20,  en paracetamol==10 y en rosuvastatina==30.
>> > >
>> > > Estoy trabajando con tidyverse y he probado algunas cosas que no han
>> > > funcionado.
>> > >
>> > > prom_max_min_base_precios_May_2021_final<-base_precios_May_2021_final
>> > > %>% ##unite("concat1",CodDrog,CodForma,sep="",remove = FALSE) %>%
>> > >   ##unite("concat2",CodDrog,CodForma,Potencia,sep="",remove = FALSE)
>> > > %>% filter(!is.na(CodDrog)) %>%
>> > >   ##filter(monodroga=="aciclovir", Unidades %in% c(20)) %>%
>> > >   group_by(concat1,concat2,monodroga) %>%
>> > >   summarize(min_may_2021=min(precio_unitario),
>> > > max_may_2021=max(precio_unitario),
>> > > prom_may_2021=mean(precio_unitario)) %>%
>> > >   ungroup()
>> > >
>> > > Ajdunto la base en csv.
>> > >
>> > > Muchas gracias!
>> >
>> > ___
>> > R-help-es mailing list
>> > R-help-es@r-project.org
>> > https://stat.ethz.ch/mailman/listinfo/r-help-es
>> >
>>
>> [[alternative HTML version deleted]]
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Consulta filtro múltiple.

[juan manuel dias]

Hola, como andan!

Tengo una base de datos de medicamentos (monodrogas), con tres variables,
unidades, precio y precio unitario. Necesito llegar a un data frame donde
tenga solo las monodrogas que cumplen alguna condición en la variable
unidades, pero considerando varias monodrogas.

Esto es un recorte de la base:

Monodroga UNIDADES Precio PrecioUnit
aciclovir 20 111272 55.636
aciclovir 20 97464 48.732
aciclovir 40 98322 432
aciclovir 40 98322 324
paracetamol 1 19291 192.91
paracetamol 1 24702 247.02
paracetamol 1 21120 211.2
paracetamol 10 9993 9.993
paracetamol 10 10443 10.443
rosuvastatina 14 141134 100.81
rosuvastatina 28 258262 92.2364286
rosuvastatina 28 201590 71.9964286
rosuvastatina 30 183717 61.239
rosuvastatina 30 231935 77.3116667

Por ejemplo, para la monodroga "aciclovir" necesito solo las filas donde
Unidades==20,  en paracetamol==10 y en rosuvastatina==30.

Estoy trabajando con tidyverse y he probado algunas cosas que no han
funcionado.

prom_max_min_base_precios_May_2021_final<-base_precios_May_2021_final %>%
  ##unite("concat1",CodDrog,CodForma,sep="",remove = FALSE) %>%
  ##unite("concat2",CodDrog,CodForma,Potencia,sep="",remove = FALSE) %>%
  filter(!is.na(CodDrog)) %>%
  ##filter(monodroga=="aciclovir", Unidades %in% c(20)) %>%
  group_by(concat1,concat2,monodroga) %>%
  summarize(min_may_2021=min(precio_unitario),
max_may_2021=max(precio_unitario),
prom_may_2021=mean(precio_unitario)) %>%
  ungroup()

Ajdunto la base en csv.

Muchas gracias!


base_monodrogas.csv
Description: MS-Excel spreadsheet
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [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 ()
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 
> *Enviado: *miércoles, 16 de junio de 2021 15:27
> *Para: *Lista R 
> *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]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

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

[juan manuel dias]

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


contexto_atencion_distintos.xlsx
Description: MS-Excel 2007 spreadsheet
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Agrupar dummy's en otra variable.

[juan manuel dias]

Muchas gracias, Carlos!
El código que pasaste resuelve lo que tenía que hacer!
Saludos, Juan.

El vie, 12 mar 2021 a las 13:06, juan manuel dias ()
escribió:

> Muchas gracias por las respuestas! Voy a probar lo que pasó Carlos y luego
> les cuento.
> Respecto a lo que plantea Rubén, entiendo lo de cáncer y neoplasia...pero
> para este estudio puntual ese problema de nomenclatura no sería un problema
> por el momento, las agrupaciones son criterios establecidos por una parte
> del equipo de investigación (entiendo que ni siquiera están usando CIE10).
> Desde el lugar que a mí me toca soy consciente que R no soluciona
> problemas de nomenclatura médica. Muchas gracias de todas formas!
> Saludos, Juan.
>
>
> El vie, 12 mar 2021 a las 7:48, Carlos Ortega ()
> escribió:
>
>> Hola,
>>
>> Esta podría ser una forma...
>>
>> #--
>> library(dplyr)
>> library(tidyr)
>> library(data.table)
>>
>> datin <- fread('base_enfermedades_dummy.csv')
>>
>> #Demencia, Cáncer, Enfermedad Cardíaca, Enfermedad pulmonar y Diabetes
>>
>> to_keep <- c('paciente', 'Demencia', 'Cáncer', 'Enfermedad Cardíaca',
>>  'Enfermedad Pulmonar' , 'Diabetes')
>> to_rest <- setdiff(names(datin), to_keep)
>>
>> datin_rel <- datin %>% relocate(all_of(to_keep), .before =
>> all_of(to_rest))
>> datinnew <- datin_rel
>> datrest <- datin_rel[, (length(to_keep)+1):ncol(datin_rel)]
>>
>> # Conseguir columna "Otros"
>> datinnew$sum_keep <- rowSums(datin_rel[, 2:length(to_keep)])
>> datinnew$sum_rest <- rowSums(datin_rel[,
>> (length(to_keep)+1):ncol(datin_rel)])
>> datinnew$Otros <- ifelse(datinnew$sum_rest > 0, 1, 0)
>>
>> #--- Conseguir columna "Enfermedades_otras"
>> datinnew$Enfermedades_otras <- apply( datrest, 1,
>>   function(u) paste( names(which(u >
>> 0)), collapse = "," ) )
>>
>> #--
>>
>> Gracias,
>> Carlos Ortega
>> www.qualityexcellence.es
>>
>> El jue, 11 mar 2021 a las 20:03, juan manuel dias ()
>> escribió:
>>
>>> Hola Estimados/as,
>>>
>>>
>>>
>>> Hace unos días consulté cómo generar variables dummy cuándo las opciones
>>> de respuesta están cargadas en una misma columna/variable y separadas por
>>> una coma “,”.
>>>
>>>
>>>
>>> Tenía esto:
>>>
>>> [image: image.png]
>>>
>>>
>>>
>>> Y debía generar como primer paso esto:
>>>
>>>
>>>
>>> ab<-base %>%
>>>
>>>   separate_rows(enfermedad, sep = ",") %>%
>>>
>>>   mutate(enfermedad = str_squish(enfermedad))
>>>
>>>
>>>
>>> [image: image.png]
>>>
>>>
>>> Y finalmente obtener como resultado las dummy:
>>>
>>>
>>>
>>> ab<-base %>%
>>>
>>>   separate_rows(enfermedad, sep = ",") %>%
>>>
>>>   mutate(enfermedad = str_squish(enfermedad), # Para quitar los espacios
>>> en blanco indeseados
>>>
>>>  id = 1) %>%
>>>
>>>   spread(key = enfermedad, value = id)
>>>
>>>
>>>
>>> ab[is.na(ab)] <- 0
>>>
>>>
>>> write.csv(ab,file='base_enfermedades_dummy.csv')
>>>
>>>
>>> [image: image.png]
>>>
>>>
>>>
>>>
>>> Actualmente estoy necesitando lo siguiente: conservar las variables
>>> *Demencia*, *Cáncer*, *Enfermedad Cardíaca*, *Enfermedad pulmonar* y
>>> *Diabetes* y al resto de las variables/enfermedades agruparlas en una
>>> nueva variable “otros”, que sea 1 ó 0 si el caso/paciente tiene 1 en
>>> cualquiera de las enfermedades que no son las que menciono arriba.
>>>
>>>
>>> Asimismo, necesito generar una nueva variable "*Enfermedades_otras*"
>>> donde figuren cuáles son las enfermedades que mencionó el paciente en
>>> otros, y que estén separadas por una coma.
>>>
>>>
>>>
>>> Adjunto la base en csv (*base_enfermedades_dummy)  *y en el excel (
>>> *Ejemplo_agrupar_en_otros*) dejo un ejemplo de lo que intento hacer.
>>>
>>>
>>> Muchas gracias! Juan.
>>>
>>>
>>> ___
>>> R-help-es mailing list
>>> R-help-es@r-project.org
>>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>>
>>
>>
>> --
>> Saludos,
>> Carlos Ortega
>> www.qualityexcellence.es
>>
>
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Agrupar dummy's en otra variable.

[juan manuel dias]

Muchas gracias por las respuestas! Voy a probar lo que pasó Carlos y luego
les cuento.
Respecto a lo que plantea Rubén, entiendo lo de cáncer y neoplasia...pero
para este estudio puntual ese problema de nomenclatura no sería un problema
por el momento, las agrupaciones son criterios establecidos por una parte
del equipo de investigación (entiendo que ni siquiera están usando CIE10).
Desde el lugar que a mí me toca soy consciente que R no soluciona problemas
de nomenclatura médica. Muchas gracias de todas formas!
Saludos, Juan.


El vie, 12 mar 2021 a las 7:48, Carlos Ortega ()
escribió:

> Hola,
>
> Esta podría ser una forma...
>
> #--
> library(dplyr)
> library(tidyr)
> library(data.table)
>
> datin <- fread('base_enfermedades_dummy.csv')
>
> #Demencia, Cáncer, Enfermedad Cardíaca, Enfermedad pulmonar y Diabetes
>
> to_keep <- c('paciente', 'Demencia', 'Cáncer', 'Enfermedad Cardíaca',
>  'Enfermedad Pulmonar' , 'Diabetes')
> to_rest <- setdiff(names(datin), to_keep)
>
> datin_rel <- datin %>% relocate(all_of(to_keep), .before = all_of(to_rest))
> datinnew <- datin_rel
> datrest <- datin_rel[, (length(to_keep)+1):ncol(datin_rel)]
>
> # Conseguir columna "Otros"
> datinnew$sum_keep <- rowSums(datin_rel[, 2:length(to_keep)])
> datinnew$sum_rest <- rowSums(datin_rel[,
> (length(to_keep)+1):ncol(datin_rel)])
> datinnew$Otros <- ifelse(datinnew$sum_rest > 0, 1, 0)
>
> #--- Conseguir columna "Enfermedades_otras"
> datinnew$Enfermedades_otras <- apply( datrest, 1,
>   function(u) paste( names(which(u >
> 0)), collapse = "," ) )
>
> #--
>
> Gracias,
> Carlos Ortega
> www.qualityexcellence.es
>
> El jue, 11 mar 2021 a las 20:03, juan manuel dias ()
> escribió:
>
>> Hola Estimados/as,
>>
>>
>>
>> Hace unos días consulté cómo generar variables dummy cuándo las opciones
>> de respuesta están cargadas en una misma columna/variable y separadas por
>> una coma “,”.
>>
>>
>>
>> Tenía esto:
>>
>> [image: image.png]
>>
>>
>>
>> Y debía generar como primer paso esto:
>>
>>
>>
>> ab<-base %>%
>>
>>   separate_rows(enfermedad, sep = ",") %>%
>>
>>   mutate(enfermedad = str_squish(enfermedad))
>>
>>
>>
>> [image: image.png]
>>
>>
>> Y finalmente obtener como resultado las dummy:
>>
>>
>>
>> ab<-base %>%
>>
>>   separate_rows(enfermedad, sep = ",") %>%
>>
>>   mutate(enfermedad = str_squish(enfermedad), # Para quitar los espacios
>> en blanco indeseados
>>
>>  id = 1) %>%
>>
>>   spread(key = enfermedad, value = id)
>>
>>
>>
>> ab[is.na(ab)] <- 0
>>
>>
>> write.csv(ab,file='base_enfermedades_dummy.csv')
>>
>>
>> [image: image.png]
>>
>>
>>
>>
>> Actualmente estoy necesitando lo siguiente: conservar las variables
>> *Demencia*, *Cáncer*, *Enfermedad Cardíaca*, *Enfermedad pulmonar* y
>> *Diabetes* y al resto de las variables/enfermedades agruparlas en una
>> nueva variable “otros”, que sea 1 ó 0 si el caso/paciente tiene 1 en
>> cualquiera de las enfermedades que no son las que menciono arriba.
>>
>>
>> Asimismo, necesito generar una nueva variable "*Enfermedades_otras*"
>> donde figuren cuáles son las enfermedades que mencionó el paciente en
>> otros, y que estén separadas por una coma.
>>
>>
>>
>> Adjunto la base en csv (*base_enfermedades_dummy)  *y en el excel (
>> *Ejemplo_agrupar_en_otros*) dejo un ejemplo de lo que intento hacer.
>>
>>
>> Muchas gracias! Juan.
>>
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Agrupar dummy's en otra variable.

[juan manuel dias]

Hola Estimados/as,



Hace unos días consulté cómo generar variables dummy cuándo las opciones de
respuesta están cargadas en una misma columna/variable y separadas por una
coma “,”.



Tenía esto:

[image: image.png]



Y debía generar como primer paso esto:



ab<-base %>%

  separate_rows(enfermedad, sep = ",") %>%

  mutate(enfermedad = str_squish(enfermedad))



[image: image.png]


Y finalmente obtener como resultado las dummy:



ab<-base %>%

  separate_rows(enfermedad, sep = ",") %>%

  mutate(enfermedad = str_squish(enfermedad), # Para quitar los espacios en
blanco indeseados

 id = 1) %>%

  spread(key = enfermedad, value = id)



ab[is.na(ab)] <- 0


write.csv(ab,file='base_enfermedades_dummy.csv')


[image: image.png]




Actualmente estoy necesitando lo siguiente: conservar las variables
*Demencia*, *Cáncer*, *Enfermedad Cardíaca*, *Enfermedad pulmonar* y
*Diabetes* y al resto de las variables/enfermedades agruparlas en una nueva
variable “otros”, que sea 1 ó 0 si el caso/paciente tiene 1 en cualquiera
de las enfermedades que no son las que menciono arriba.


Asimismo, necesito generar una nueva variable "*Enfermedades_otras*"
donde figuren cuáles son las enfermedades que mencionó el paciente en
otros, y que estén separadas por una coma.



Adjunto la base en csv (*base_enfermedades_dummy)  *y en el excel (
*Ejemplo_agrupar_en_otros*) dejo un ejemplo de lo que intento hacer.


Muchas gracias! Juan.


Ejemplo_agrupar_en_otros.xlsx
Description: MS-Excel 2007 spreadsheet


base_enfermedades_dummy.csv
Description: MS-Excel spreadsheet
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Separar respuestas en distintas columnas.

[juan manuel dias]

Hola Estimados/as,

Tengo la siguiente tarea que realizar.

Tengo una base y una de las variables (problemas_salud_paciente) es de
respuesta múltiple (acepta más de una opción de respuesta por caso/fila)
pero tiene cargadas todas las respuestas en la misma columna, y
dichas opciones están separadas por una coma (",").

1- Necesito separar cada opción de respuesta en una columna distinta.

2- Generar tantas columnas como opciones de respuesta tenga.

3- Luego, a cada columna (opción de respuesta) debería asignarle valor 1
según si la fila/caso haya respondido por esa opción.

Así está la variable en la base:

id   problemas_salud_paciente
 1Demencia
 2Demencia
 3Enfermedad Pulmonar, Demencia, Afasia primaria progresiva
diagnosticada 2010
 4Enfermedad Cardíaca

Y así necesitaría que quede:

id  demencia | enferm_pulmonar | afasia_prima_progr  | enfermedad_cardiaca
 1  1
 2  1
 3  1   11

 4
  1

Dejo un csv con una muestra de casos de esa variable.

Muchas gracias. Saludos, Juan.


ejemplo_salud.csv
Description: MS-Excel spreadsheet
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Reemplazar texto específico al principio de un campo cadena.

[juan manuel dias]

Hola,

Quiero remplazar por espacio vació al texto que está al principio de una
cadena.

a<-c("few34AR-1234",
"AR-1234-3456","AR-1fd234-4532","AR-12dsfs34-","AR-12few34-")

Necesito que reemplace AR por " " solamente cuándo AR está al principio de
la cadena, quedaría asi:

"few34AR-1234",
"1234-3456",
"1fd234-4532",
"12dsfs34-",
"12few34-"

Muchas gracias! Juan.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Ordenar data.frame por fecha en función pivot_wider.

[juan manuel dias]

Muchas gracias, Carlos!


El lun, 14 dic 2020 a las 14:25, Carlos Ortega ()
escribió:

> Hola,
>
> Puedes crear una nueva variable en la que se convierta los "meses-año" en
> eso fechas. Y luego ordenar por ello.
> De hecho recientemente lubridate añadió la función para tratar los
> "meses-año" con "*my()*".
>
> Also así como:
>
> library(lubridate)
>
> botiquines<-base_agregada_botiquines_anio_mes %>%
>   *mutate(mesanio = my(mes_anio)) %>%*
>   #group_by(Mes,anio) %>%
>   *group_by(mesanio) %>%*
>   summarise(botiquines_n = sum(sum_botiquines, na.rm = T)) %>%
>   ungroup() %>%
>   #group_by(Mes,año) %>%
>   *pivot_wider(id_cols="mesanio", names_from=mesanio,
> values_from=botiquines_n)*
>   #pivot_wider(id_cols="anio",names_from=Mes,values_from=botiquines_n)
>
>
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
>
> El lun, 14 dic 2020 a las 17:46, juan manuel dias ()
> escribió:
>
>> Hola, como andan!
>>
>> Tengo una base con información de envío de botiquines por año y mes.
>> Tengo columna año y mes por separado y las quiero unir y transformar a
>> formato fecha.
>> Lo necesito en formato fecha para poder ordenar el data.frame al aplicar
>> función pivot_wider.
>>
>> botiquines<-base_agregada_botiquines_anio_mes %>%
>>   group_by(Mes,año) %>%
>>   summarise(botiquines_n = sum(sum_botiquines, na.rm = T)) %>%
>>   ungroup() %>%
>>   #group_by(Mes,año) %>%
>>   pivot_wider(id_cols="año",names_from=Mes,values_from=botiquines_n)
>>
>> Actualmente el resultado es este:
>>
>> [image: image.png]
>>
>> Necesitaría una columna mes-año en formato fecha para que el data-frame
>> de salida esté ordenado por esa columna, de modo tal que me quede primero
>> 01-2019 segundo 02-2019 y tercero 03-2019, y así suecesivamente etc.
>>
>> Adjunto csv para que puedan ver los datos.
>>
>> Muchas gracias!
>>
>> Juan.
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Ordenar data.frame por fecha en función pivot_wider.

[juan manuel dias]

Hola, como andan!

Tengo una base con información de envío de botiquines por año y mes. Tengo
columna año y mes por separado y las quiero unir y transformar a formato
fecha.
Lo necesito en formato fecha para poder ordenar el data.frame al aplicar
función pivot_wider.

botiquines<-base_agregada_botiquines_anio_mes %>%
  group_by(Mes,año) %>%
  summarise(botiquines_n = sum(sum_botiquines, na.rm = T)) %>%
  ungroup() %>%
  #group_by(Mes,año) %>%
  pivot_wider(id_cols="año",names_from=Mes,values_from=botiquines_n)

Actualmente el resultado es este:

[image: image.png]

Necesitaría una columna mes-año en formato fecha para que el data-frame de
salida esté ordenado por esa columna, de modo tal que me quede primero
01-2019 segundo 02-2019 y tercero 03-2019, y así suecesivamente etc.

Adjunto csv para que puedan ver los datos.

Muchas gracias!

Juan.


prueba_bot.csv
Description: MS-Excel spreadsheet
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Problemas con formato fecha al importar base .sav (spss)

[juan manuel dias]

Hola,
Estoy con un problema para poder traer fecha de spss a r.
El formato de la fecha en spss está (dia/mes/año/hora:minuto:segundo) y lo
querría ver igual en el data frame en r.

Hago lo siguiente.

# llamo el archivo .sav
migra_mayo_2020<-read.spss("Mayo 2020.sav", to.data.frame = TRUE)

#transformo
migra_mayo_2020 <- transform(migra_mayo_2020,FECHA_CR=as.Date(ISOdate(1582,
10, 14) + migra_mayo_2020$FECHA_CR))

El campo fecha al importarlo de .sav al data frame en R me genera un vector
numèrico de 11 dígitos. Lo intente con as.POSIXct y tampoco tuve
resultados,  pierdo las horas minutos y segundos.

Muchas gracias!







Libre
de virus. www.avg.com

<#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Duda de como contar casos por Programa.

[juan manuel dias]

Hola,

Tengo un tabla de datos con pacientes asistidos, para los cuáles tengo
variables como  dni, género, programa de atención etc. Hay pacientes que
atendieron en más de un programa por lo cuál se repiten en la tabla. Lo que
quiero es poder contar con una matriz que me permita identificar la
cantidad de pacientes que coinciden entre programas.

Va un ejemplo:

[image: image.png]
Intenté de varias formas pero no consigo hacerlo.

Muchas gracias!

Saludos.
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Agregar quintiles a un data set

[juan manuel dias]

Hola,
Lo resolví de este modo. muchas gracias!

mydata<-datos
df1 = mutate(mydata, quantile_rank =
ntile(mydata$CUENTA_PACIENTES_ASISTIDOS,5))
View(df1)

El vie., 23 ago. 2019 a las 12:43, juan manuel dias ()
escribió:

> Hola,
>
> Tengo una base de datos con pacientes asistidos por institución y partir
> de la variable "cantidad de asistidos" quiero genera el quintil para cada
> institución según la cantidad de asistidos.
>
> Lo hago del siguiente modo y me arroja que falta algo en la sintaxis.
> Alguien se le ocurre como resolverlo?
>
> datos_2<-(mutate(datos,quin=(quantile(datos$CUENTA_PACIENTES_ASISTIDOS)
>
> Muchas gracias. Saludos, Juan.
>
>
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Agregar quintiles a un data set

[juan manuel dias]

Hola,

Tengo una base de datos con pacientes asistidos por institución y partir de
la variable "cantidad de asistidos" quiero genera el quintil para cada
institución según la cantidad de asistidos.

Lo hago del siguiente modo y me arroja que falta algo en la sintaxis.
Alguien se le ocurre como resolverlo?

datos_2<-(mutate(datos,quin=(quantile(datos$CUENTA_PACIENTES_ASISTIDOS)

Muchas gracias. Saludos, Juan.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Transformar factor a numérico.

[juan manuel dias]

Hola, Estoy levantando un archivo csv y hay dos campos (atendidos,
asistidos) que necesito leerlos como numéricos o enteros, pero al
levantarlos están en formato factor. Como puedo hacer para transformarlos a
numéricos?


caac_enero_2019<-read.csv("1-Informe Caac Geonode-Mes de Enero.csv",sep =
";")

[image: image.png]


Intenté con:

caac_enero_2019$asistidos<
as.numeric(levels(caac_enero_2019$asistidos))[caac_enero_2019$asistidos]



intenté de esta otra forma:

caac_enero_2019$asistidos<-as.numeric(levels(caac_enero_2019$asistidos))[caac_enero_2019$asistidos]



Pero al hacer:

 sum(caac_enero_2019$asistidos)



Arroja el siguiente mensaje: NA.



Alguien me podrá dar una mano para resolver esto?



Muchas gracias!
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Agrupar por suma y cuenta con dplyr

[juan manuel dias]

Hola,
Tengo un data set con información de transferencias monetarias por paciente
provincia y modalidad de atención. Necesito hacer en una misma operación
una suma de dinero por provincia y modalidad y a su vez una cuenta de
pacientes por provincia y modalidad.

Esto funciona bien:

transferencias<-becas_modalidades %>%
group_by(PROVINCIA,Modalidad) %>%
summarize(dinero = sum(PRELIQUIDACION))%>%
arrange(desc(dinero))

Pero esto no:

transferencias<-becas_modalidades %>%
  group_by(PROVINCIA,Modalidad) %>%
  summarize(dinero = sum(PRELIQUIDACION),(cuenta=count(IDPACIENTE)))%>%
  arrange(desc(dinero))

str(becas_modalidades)

$ IDPACIENTE: int
 $ IDINSTITUCION : int
 $ BECAUTILIZADA : int
 $ PRELIQUIDACION: int  ...
 $ ANO   : int
 $ MES   : int
 $ NOMBRE: Factor w/ 87 levels
 $ PROVINCIA : Factor w/15  levels
 $ localidad : Factor w/ 63  levels
 $ municipio : Factor w/ 43  levels
 $ Año   : int
 $ Modalidad : Factor w/ 7 levels

Muchas gracias!

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Consulta como ponderar en un modelo de regresión utilizando CARET

[juan manuel dias]

Estimados,
Alguien trabajo con caret pasando un factor de ponderacion?
Gracias. Juan.

El vie., 12 de abr. de 2019 11:06 a.m., juan manuel dias <
juamad...@gmail.com> escribió:

> Hola,
> Les comparto la siguiente duda, quizá alguno ya trabajó con ponderaciones
> al al momento de entrenar un modelo.
>
> Necesito que el modelo que genero reciba la información ponderada. Mi base
> de datos se llama "eph" y la variable de ponderación PONDIH.
>
> Estuve mirando la documentación de la función "train" de caret, y veo que
> hay un argumento "weight=...que permite pasar un vector de pesos, pero no
> pude resolverlo probando de varias formas.
>
> Muchas gracias!
>
> Saludos, Juan.
>
> -
> set.seed(34)
> index <- createDataPartition(eph$Ingreso, p = .70, list = F)
> train <- eph[index,]
> test <- eph[-index,]
>
> # Entrenamos regresión lineal:
>
> lm <- lm(Ingreso~., data = train)
> lm
> summary(lm)
>
> # Aplicamos a test:
>
> test$pred <- predict(lm, test)
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Consulta como ponderar en un modelo de regresión utilizando CARET

[juan manuel dias]

Hola,
Les comparto la siguiente duda, quizá alguno ya trabajó con ponderaciones
al al momento de entrenar un modelo.

Necesito que el modelo que genero reciba la información ponderada. Mi base
de datos se llama "eph" y la variable de ponderación PONDIH.

Estuve mirando la documentación de la función "train" de caret, y veo que
hay un argumento "weight=...que permite pasar un vector de pesos, pero no
pude resolverlo probando de varias formas.

Muchas gracias!

Saludos, Juan.
-
set.seed(34)
index <- createDataPartition(eph$Ingreso, p = .70, list = F)
train <- eph[index,]
test <- eph[-index,]

# Entrenamos regresión lineal:

lm <- lm(Ingreso~., data = train)
lm
summary(lm)

# Aplicamos a test:

test$pred <- predict(lm, test)

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Transponer data frame.

[juan manuel dias]

muchas gracias!

El jue., 11 oct. 2018 a las 16:03, José Trujillo Carmona ()
escribió:

> Mediante unstack y reordenando columnas con <- [, ...]
>
> > NV<-c(1240,1240,1240,1240,1241,1241,1241,1241)
>
> >
> Nc<-c("Argentina","Uruguaya","Paraguaya","Brasilera","Argentina","Uruguaya","Paraguaya","Brasilera")
>
> > Pax<-c(2341,4432,67000,1234,7344,543000,3000,234000)
>
> > (DDD<-data.frame(NV,Nc,Pax))
> NVNcPax
> 1 1240 Argentina   2341
> 2 1240  Uruguaya   4432
> 3 1240 Paraguaya  67000
> 4 1240 Brasilera   1234
> 5 1241 Argentina   7344
> 6 1241  Uruguaya 543000
> 7 1241 Paraguaya   3000
> 8 1241 Brasilera 234000
>
> > (UUU<-unstack(DDD[,2:3],DDD$Pax~DDD$Nc))
>   Argentina Brasilera Paraguaya Uruguaya
> 1  2341  1234 67000 4432
> 2  7344234000  3000   543000
>
> > UUU$NV<-seq(1240,1241)
>
> > (FFF<-UUU[,c(5,seq(1,4)))
>
> > (FFF<-UUU[,c(5,seq(1,4))])
> NV Argentina Brasilera Paraguaya Uruguaya
> 1 1240  2341  1234 67000 4432
> 2 1241  7344234000  3000   543000
>
> Saludos
> El 11/10/18 a las 17:32, juan manuel dias escribió:
>
> Hola,
> Tengo la siguiente base de datos
>
> Numero de vuelo Nacionalidad Pax
> 1240 Argentina 2341
> 1240 Uruguaya 4432
> 1240 Paraguaya 67000
> 1240 Brasilera 1234
> 1241 Argentina 7344
> 1241 Uruguaya 543000
> 1241 Paraguaya 3000
> 1241 Brasilera 234000
> y quiero que quede del siguiente modo:
>
> Numero de vuelo Nacionalidad_argentina Nacionalidad_uruguaya
> Nacionalidad_paraguaya Nacionalidad_brasilera
> 1240 2341 4432 67000 1234
> 1241 7344 543000 3000 234000
>
>  intenté con *vuelos_f<-t(vuelos) *pero no logro lo que quiero, queda así:
>
> [image: image.png]
>
> Muchas gracias! Saludos, Juan.
>
> ___
> R-help-es mailing 
> listR-help-es@r-project.orghttps://stat.ethz.ch/mailman/listinfo/r-help-es
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Transponer data frame.

[juan manuel dias]

Muchas gracias.

El jue., 11 de oct. de 2018 12:43 p.m., Isidro Hidalgo Arellano <
ihida...@jccm.es> escribió:

> Buenas tardes:
>
> Lo que necesitas lo puedes hacer con la función “reshape”, del paquete
> “stats”.
>
> Tienes los datos en la forma “long” y necesitas pasarlos a “wide”.
>
> Un saludo
>
>
>
> Isidro Hidalgo Arellano
>
> Observatorio del Mercado de Trabajo
>
> Consejería de Economía, Empresas y Empleo
>
> http://www.castillalamancha.es/
>
>
>
>
>
>
>
> *De:* R-help-es  *En nombre de *juan
> manuel dias
> *Enviado el:* jueves, 11 de octubre de 2018 17:33
> *Para:* Lista R 
> *Asunto:* [R-es] Transponer data frame.
>
>
>
> Hola,
>
> Tengo la siguiente base de datos
>
>
>
> Numero de vuelo
>
> Nacionalidad
>
> Pax
>
> 1240
>
> Argentina
>
> 2341
>
> 1240
>
> Uruguaya
>
> 4432
>
> 1240
>
> Paraguaya
>
> 67000
>
> 1240
>
> Brasilera
>
> 1234
>
> 1241
>
> Argentina
>
> 7344
>
> 1241
>
> Uruguaya
>
> 543000
>
> 1241
>
> Paraguaya
>
> 3000
>
> 1241
>
> Brasilera
>
> 234000
>
>
>
> y quiero que quede del siguiente modo:
>
>
>
> Numero de vuelo
>
> Nacionalidad_argentina
>
> Nacionalidad_uruguaya
>
> Nacionalidad_paraguaya
>
> Nacionalidad_brasilera
>
> 1240
>
> 2341
>
> 4432
>
> 67000
>
> 1234
>
> 1241
>
> 7344
>
> 543000
>
> 3000
>
> 234000
>
>
>
>  intenté con *vuelos_f<-t(vuelos) *pero no logro lo que quiero, queda así:
>
>
>
> [image: image.png]
>
>
>
> Muchas gracias! Saludos, Juan.
>
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Transponer data frame.

[juan manuel dias]

Muchas gracias.

El jue., 11 de oct. de 2018 12:46 p.m., Javier Nieto 
escribió:

> Hola
>
>
> Desconozco lo que estés haciendo pero en general, no es una buena práctica
> trabajar de eso modo a menos que sea para visualización en un documento. Lo
> recomendable es trabajar con la información como la tienes y no la
> transformes de esa forma. Si aun así decides hacerlo prueba la función
> dcast del paquete data.table.
>
>
>
> Saludos
> --
> *De:* R-help-es  en nombre de juan
> manuel dias 
> *Enviado:* jueves, 11 de octubre de 2018 10:32:38 a. m.
> *Para:* Lista R
> *Asunto:* [R-es] Transponer data frame.
>
> Hola,
> Tengo la siguiente base de datos
>
> Numero de vuelo Nacionalidad Pax
> 1240 Argentina 2341
> 1240 Uruguaya 4432
> 1240 Paraguaya 67000
> 1240 Brasilera 1234
> 1241 Argentina 7344
> 1241 Uruguaya 543000
> 1241 Paraguaya 3000
> 1241 Brasilera 234000
> y quiero que quede del siguiente modo:
>
> Numero de vuelo Nacionalidad_argentina Nacionalidad_uruguaya
> Nacionalidad_paraguaya Nacionalidad_brasilera
> 1240 2341 4432 67000 1234
> 1241 7344 543000 3000 234000
>
>  intenté con *vuelos_f<-t(vuelos) *pero no logro lo que quiero, queda así:
>
> [image: image.png]
>
> Muchas gracias! Saludos, Juan.
>
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Problemas Librería ggplot y grid en version de R 3.5.1

[juan manuel dias]

Hola,
Estoy corriendo un código y en la versión de R 3.5.1 no me permite
continuar:

*grid.arrange(g1,g2,g3,g4,nrow = 2)*
*```*
*Error in grid.arrange(g1, g2, g3, g4, nrow = 2) : *
*  could not* find function "grid.arrange"

*Warning in install.packages :*
*  package ‘grid’ is not available (for R version 3.5.1)*

Lo mismo me pasa con ggplot

*Warning in install.packages :*
*  package ‘ggplot’ is not available (for R version 3.5.1)*

Saben como puedo resolverlo?

Muchas gracias.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Problemas para instalar Librería (RODBC)

[juan manuel dias]

Muchas gracias!

El 7 de septiembre de 2018, 14:47, Javier Nieto 
escribió:

> Hola
>
> Creo que deberías trabajar con la última versión de R. Si no esta
> disponible trata con:
>
>
> install.packages("RODBC", type = "source")
>
>
>
> Por otro lado, no se cual sea tu situación o la base de datos a la que
> pretendes conectarte pero en mi experiencia odbc sería la última opción.
> Odbc es más lento que los paquetes "nativos" como RMySQL, RPostgreSQL o
> ROracle por ejemplo. Siempre mi recomendación es en el siguiente orden:
>
>
>
>1. Paquete "nativo", es el más rápido.
>2. RJDBC, la velocidad es parecida al "nativo" pero usa rJava, el cual
>a veces da problemas en su instalación.
>3. RODBC, es el más lento, es recomendable cuando no exista un paquete
>"nativo" o ninguna de las anteriores funcione.
>
>
>
>
> Saludos
> --
> *De:* R-help-es  en nombre de juan
> manuel dias 
> *Enviado:* viernes, 7 de septiembre de 2018 11:48:07 a. m.
> *Para:* Carlos Ortega
> *CC:* Lista R
> *Asunto:* Re: [R-es] Problemas para instalar Librería (RODBC)
>
> Hola,
> Tengo la versión 3.5.1 instalada y no me dejaba tampoco, por eso desde
> RStudio configuré la 3.3.1.
> Muchas gracias.
>
> El 7 de septiembre de 2018, 13:35, Carlos Ortega  >
> escribió:
>
> > Hola,
> >
> > R ya está en la versión 3.5.1 y tú tienes la 3.3.1.
> > Las versiones antiguas de los paquetes están:
> >
> >- Linux:
> >https://cran.r-project.org/src/contrib/Archive/RODBC/
> >- Windows:
>
> >h
> >ttps://cloud.r-project.org/bin/windows/contrib/3.3/RODBC_1.3-15.zip
> >
> >
> > Saludos,
> > Carlos Ortega
> > www.qualityexcellence.es
> >
> >
> > 2018-09-07 18:14 GMT+02:00 juan manuel dias :
> >
> >> Hola,
> >>
> >> Puede ser que la RODBC no corra en la versión 3.3.1? Abajo copio el
> error.
> >>
> >> Sabe alguien que puede estar pasando?
> >>
> >> *Warning in install.packages :*
> >> *  package ‘RODBC’ is not available (for R version 3.3.1)*
> >> *Warning in install.packages :*
> >> *  unable to access index for repository
> >> https://cran.rstudio.com/bin/windows/contrib/3.3
> >> <https://cran.rstudio.com/bin/windows/contrib/3.3>:*
> >> *  cannot open URL
> >> 'https://cran.rstudio.com/bin/windows/contrib/3.3/PACKAGES
> >> <https://cran.rstudio.com/bin/windows/contrib/3.3/PACKAGES>'*
> >>
> >> Muchas gracias!
> >>
> >> Saludos, Juan.
> >>
> >> [[alternative HTML version deleted]]
> >>
> >> ___
> >> R-help-es mailing list
> >> R-help-es@r-project.org
> >> https://stat.ethz.ch/mailman/listinfo/r-help-es
> >>
> >
> >
> >
> > --
> > Saludos,
> > Carlos Ortega
> > www.qualityexcellence.es
> >
>
> [[alternative HTML version deleted]]
>
> ___
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Problemas para instalar Librería (RODBC)

[juan manuel dias]

Hola,
Tengo la versión 3.5.1 instalada y no me dejaba tampoco, por eso desde
RStudio configuré la 3.3.1.
Muchas gracias.

El 7 de septiembre de 2018, 13:35, Carlos Ortega 
escribió:

> Hola,
>
> R ya está en la versión 3.5.1 y tú tienes la 3.3.1.
> Las versiones antiguas de los paquetes están:
>
>- Linux:
>https://cran.r-project.org/src/contrib/Archive/RODBC/
>- Windows:
>h
>ttps://cloud.r-project.org/bin/windows/contrib/3.3/RODBC_1.3-15.zip
>
>
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
>
> 2018-09-07 18:14 GMT+02:00 juan manuel dias :
>
>> Hola,
>>
>> Puede ser que la RODBC no corra en la versión 3.3.1? Abajo copio el error.
>>
>> Sabe alguien que puede estar pasando?
>>
>> *Warning in install.packages :*
>> *  package ‘RODBC’ is not available (for R version 3.3.1)*
>> *Warning in install.packages :*
>> *  unable to access index for repository
>> https://cran.rstudio.com/bin/windows/contrib/3.3
>> <https://cran.rstudio.com/bin/windows/contrib/3.3>:*
>> *  cannot open URL
>> 'https://cran.rstudio.com/bin/windows/contrib/3.3/PACKAGES
>> <https://cran.rstudio.com/bin/windows/contrib/3.3/PACKAGES>'*
>>
>> Muchas gracias!
>>
>> Saludos, Juan.
>>
>> [[alternative HTML version deleted]]
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Problemas para instalar Librería (RODBC)

[juan manuel dias]

Hola,

Puede ser que la RODBC no corra en la versión 3.3.1? Abajo copio el error.

Sabe alguien que puede estar pasando?

*Warning in install.packages :*
*  package ‘RODBC’ is not available (for R version 3.3.1)*
*Warning in install.packages :*
*  unable to access index for repository
https://cran.rstudio.com/bin/windows/contrib/3.3
:*
*  cannot open URL
'https://cran.rstudio.com/bin/windows/contrib/3.3/PACKAGES
'*

Muchas gracias!

Saludos, Juan.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Contar DNI por Jurisdicción.

[juan manuel dias]

Muchas gracias a todos! Lo resolví de esta forma.

contarDNI_jurisdiccion <-
aggregate(siprovi_diat$DNI~siprovi_diat$jurisdicción,FUN=length,data=siprovi_diat);
View(contarDNI)


El 6 de agosto de 2018, 19:00, Carlos Ortega 
escribió:

> O directamente un sencillo table:
>
> resultado = table(tu_df$JURISDICCION, tu_df$DNI)
>
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
> El 6 de agosto de 2018, 23:29, eric  escribió:
>
>> Hola, una forma con la libreria data.table:
>>
>> library(data.table)
>>
>> as.data.table(el_data.frame)
>>
>> el_data.frame[, length(DNI), by=JURISDICCION]
>>
>>JURISDICCION V1
>> 1:   As  3
>> 2:     Ríos  3
>>
>>
>> Suerte !
>>
>> Eric.
>>
>>
>>
>>
>>
>> On 08/06/2018 04:45 PM, juan manuel dias wrote:
>>
>> Hola,
>>
>> Tengo el siguiente DATA FRAME
>>
>> DNI   JURISDICCION  DISPOSITIVO   NOMBRE  APELLIDO
>> 1Bs As
>> 2Bs As
>> 3Bs As4Entre Ríos 
>> <https://maps.google.com/?q=4Entre+R%C3%ADos=gmail=g>
>> 5Entre Ríos
>> 6Entre Ríos
>>
>> Quiero contar DNI por Jurisdicción, quedando una tabla que sea:
>>
>> DNI   JURISDICCION
>> 3Bs As
>> 3Entre Ríos
>>
>> Tanto DNI como Jurisdicción son factores.
>>
>> Muchas gracias.
>>
>> Saludos, Juan.
>>
>>  [[alternative HTML version deleted]]
>>
>> ___
>> R-help-es mailing 
>> listR-help-es@r-project.orghttps://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>>
>> --
>> Nota: Las tildes se han omitido para asegurar compatibilidad con algunos 
>> lectores de correo.
>>
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Re: [R-es] Contar DNI por Jurisdicción.

[juan manuel dias]

Muchas gracias!

El 6 de agosto de 2018, 18:06, MAURICIO MARDONES 
escribió:

>
> Hola
>
> una de las mil maneras fácil es,
>
> contarDNI <- aggregate(JURISDICCION$tudata ~ DNI$tudata, data =tudata,
> sum); contarDNI
>
> *"tudata" es el nombre de tu file
>
> Saludos
>
> El lun., 6 ago. 2018 a las 16:45, juan manuel dias ()
> escribió:
>
>> Hola,
>>
>> Tengo el siguiente DATA FRAME
>>
>> DNI   JURISDICCION  DISPOSITIVO   NOMBRE  APELLIDO
>> 1Bs As
>> 2Bs As
>> 3Bs As
>> 4Entre Ríos
>> <https://maps.google.com/?q=4%C2%A0+%C2%A0+%C2%A0+%C2%A0+Entre+R%C3%ADos=gmail=g>
>> 5Entre Ríos
>> <https://maps.google.com/?q=Entre+R%C3%ADos+%0D%0A6%C2%A0+%C2%A0+%C2%A0+%C2%A0+Entre+R%C3%ADos=gmail=g>
>> 6Entre Ríos
>>
>> Quiero contar DNI por Jurisdicción, quedando una tabla que sea:
>>
>> DNI   JURISDICCION
>> 3Bs As
>> <https://maps.google.com/?q=Bs+As+%0D%0A3%C2%A0+%C2%A0+%C2%A0+%C2%A0+Entre+R%C3%ADos=gmail=g>
>> 3Entre Ríos
>>
>> Tanto DNI como Jurisdicción son factores.
>>
>> Muchas gracias.
>>
>> Saludos, Juan.
>>
>> [[alternative HTML version deleted]]
>>
>> ___
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
>
> *Mauricio Mardones Inostroza*
>
> Investigador Departamento Evaluación de Recursos
> Instituto de Fomento Pesquero - IFOP
> Valparaíso - Chile
> +56-32-2151442
>
> www.ifop.cl
>
> C*ertificación ISO 9001/2008*: Sistema de Datos
> Biológico-Pesqueros (Arica, Iquique, Coquimbo, Valparaíso, San Antonio,
> Talcahuano y Calbuco, pesquerías industriales y artesanales)
>

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

[R-es] Contar DNI por Jurisdicción.

[juan manuel dias]

Hola,

Tengo el siguiente DATA FRAME

DNI   JURISDICCION  DISPOSITIVO   NOMBRE  APELLIDO
1Bs As
2Bs As
3Bs As
4Entre Ríos
5Entre Ríos
6Entre Ríos

Quiero contar DNI por Jurisdicción, quedando una tabla que sea:

DNI   JURISDICCION
3Bs As
3Entre Ríos

Tanto DNI como Jurisdicción son factores.

Muchas gracias.

Saludos, Juan.

[[alternative HTML version deleted]]

___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es