[R-es] Eliminar todos los caracteres después de un espacio en blanco
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] Eliminar todos los caracteres después de un espacio en blanco
¿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 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
Re: [R-es] Eliminar todos los caracteres después de un espacio en blanco
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
Re: [R-es] Eliminar todos los caracteres después de un espacio en blanco
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
Re: [R-es] Eliminar todos los caracteres después de un espacio en blanco
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
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