tengo una columna (Fecha) que está en formato character y necesito transformarla a numeric, pero antes necesito estandarizar los valores de las observaciones.
Tengo estos datos:
|Fecha
--------
"Miércoles 02/11/2022 08:54:56"
"Jueves 03/11/2022 08:54:57"
"Viernes 04/11/2022 08:54:57"
"Sábado 05/11/2022 08:54:59"
"Miércoles 02/11/2022 08:54:59"
"Viernes 04/11/2022 08:55:00"
"Domingo 06/11/2022 08:55:01"
Y necesito reemplazar todos los días de semana por números (lunes = 1, martes= 2, miércoles= 3, etc.), eliminar los caracteres "/" y ":" de modo que quede de esta forma:
Fecha
------
"0302112022085456"
"0403112022085457"
"0504112022085457"
"0605112022085459"
"0302112022085459"
"0504112022085500"
"0706112022085501"
Use el siguiente código y me funcionó, pero es muy largo. Habrá alguna manera de acortarlo?
*disciplinar es la base y Fecha la variable
disciplinar$Fecha <- str_replace(disciplinar$Fecha, "Lunes ","01")
disciplinar$Fecha <- str_replace(disciplinar$Fecha, "Martes ","02")
disciplinar$Fecha <- str_replace(disciplinar$Fecha, "Miércoles ","03")
disciplinar$Fecha <- str_replace(disciplinar$Fecha, "Jueves ","04")
disciplinar$Fecha <- str_replace(disciplinar$Fecha, "Viernes ","05")
disciplinar$Fecha <- str_replace(disciplinar$Fecha, "Sábado ","06")
disciplinar$Fecha <- str_replace(disciplinar$Fecha, "Doming ","07")
#Eliminar caracteres especiales
disciplinar$Fecha <- str_replace(disciplinar$Fecha, " ","") #eliminar espacios
disciplinar$Fecha <- str_replace(disciplinar$Fecha, "/","") #eliminar /
disciplinar$Fecha <- str_replace(disciplinar$Fecha, ":","") #eliminar :
De antemano muchas gracias!