Skip to content

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

5 messages · jose luis, juan manuel dias, Proyecto R-UCA

#
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
blanco....es 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.
#
¿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 <juamadias en 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
blanco....es 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 en r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
#
Hola José, como andas!

Por alguna razón me trae algún problema hacerlo de ese modo....lo 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 (<pepeceb en yahoo.es>) 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, muchas gracias!
Funcionó perfecto!
Saludos, Juan.

El mar, 12 oct 2021 a las 13:48, Proyecto R-UCA (<r-uca en uca.es>) escribió: