Re: [R-es] realizar ANOVAs en Loop

2023-07-18 Thread Juan Carlos Lopez Mesa
Hola, library(dplyr) library(purrr) library(tidyr) datos_anova <- datosa_fict |> nest(data = c(valor, Grupo)) |> mutate(anova = map(.x = data, .f = ~aov(valor ~ Grupo, data = .x)), summary = map(.x = anova, .f = ~summary(.x))) # Acceder a los resultados

Re: [R-es] Seleccionar valores consecutivos en un dataframe

2023-06-16 Thread Juan Carlos Lopez Mesa
Hola, Este código le puede servir para lo que necesita library(dplyr) ejemplo$dia <- as.Date(ejemplo$dia) ejemplo <- arrange(ejemplo, dia) ejemplo$suma <- NA ejemplo$suma[1] <- as.numeric(ejemplo$germ) for(i in 2:nrow(ejemplo)){ ejemplo$suma[i] <- ifelse(ejemplo$germ[i],

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

2023-03-07 Thread Juan Carlos Lopez Mesa
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)

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

2021-12-20 Thread Juan Carlos Lopez Mesa
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

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

2021-11-19 Thread Juan Carlos Lopez Mesa
Hola, La función case_when() del paquete dplyr te sirve Saludos El jue, 18 nov 2021 a las 13:36, 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

Re: [R-es] Separar respuestas en distintas columnas.

2021-03-05 Thread Juan Carlos Lopez Mesa
Hola, Prueba con este código de ejemplo. Saludos library(tidyverse) data <- data.frame(paciente = LETTERS[1:5], variable = c("Demencia, Enfermedad Pulmonar", "Cáncer", "Enfermedad Cardíaca, Enfermedad Pulmonar",

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

2020-12-22 Thread Juan Carlos Lopez Mesa
a<-c("few34AR-1234", "AR-1234-3456","AR-1fd234-4532","AR-12dsfs34-","AR-12few34-") library(tidyverse) str_remove(string = a, pattern = "^AR-") El mar, 22 dic 2020 a las 17:09, juan manuel dias () escribió: > Hola, > > Quiero remplazar por espacio vació al texto que está al

Re: [R-es] Encontrar un dato y añadirlo a otra columna

2020-09-22 Thread Juan Carlos Lopez Mesa
Hola, prueba con esto df %>% mutate(var = parse_number(nombre1)) Saludos El mar., 22 sept. 2020 a las 15:46, Samura . () escribió: > Buenas, > A ver si alguien sabe como hacer lo siguiente: > > Tengo un df con letras y numeros, quiero que si me detecta un numero en > concreto me añada dicho

Re: [R-es] TOMAR ID (número de orden de las filas) DE DATAFRAME Y CONVERTIRLO EN UNA COLUMNA (VARIABLE) NUEVA

2020-09-21 Thread Juan Carlos Lopez Mesa
Hola data %>% mutate(nueva_variable = row_number()) El dom., 20 sept. 2020 a las 11:47, Jesus MARTIN F. () escribió: > Buenas tardes, > > Consulto cómo tomar el ID (número de orden de las filas) de un DATAFRAME > y hacer un "mutate" a una variable nueva que contenga ese valor (número de >

Re: [R-es] Tabla con dibujo en R Markdown

2020-09-05 Thread Juan Carlos Lopez Mesa
Hola, Tal vez esta pagina te sirva https://cran.r-project.org/web/packages/kableExtra/vignettes/awesome_table_in_html.html Saludos El sáb., 5 sept. 2020 a las 0:45, Carlos Ortega () escribió: > Hola, > > Sí, mira esta referencia: > > >

Re: [R-es] instalar

2020-05-06 Thread Juan Carlos Lopez Mesa
update.packages() esta función actualiza todos los paquetes instalados El lun., 4 may. 2020 a las 12:52, Jose Betancourt B. () escribió: > Estimados > > Instalé r.4 pero me pide que actualice cada paquete, ?hay alguna > manera automática? > > ___ >

Re: [R-es] desagregar distribución de frecuencias

2020-04-15 Thread Juan Carlos Lopez Mesa
datos <- data.frame(talla = c(8, 8.5, 9, 10, 10.5, 11, 11.5), n = c(1, 3, 5, 7, 4, 2, 1)) mapply(FUN = rep, datos$talla, datos$n) unlist(mapply(FUN = rep, datos$talla, datos$n)) El mar., 14 abr. 2020 a las 14:40, ANA VENTERO MARTIN () escribió: > Hola a tod@s, > Trabajo

Re: [R-es] uso de switch o alternativa

2020-03-05 Thread Juan Carlos Lopez Mesa
x <- seq(0, 350, 10) cut(x =x, breaks = c(min(x), 100, 200, 300, max(x)), labels = c("<100", "100-200", "200-300", ">300"), include.lowest = TRUE) cut(x =x, breaks = c(min(x), 100, 200, 300, max(x)), include.lowest = TRUE) El jue., 5 mar. 2020 a las 14:42, Enrique RAMOS via R-help-es