En este artículo, vamos a ver cómo extraer el año de la fecha en el lenguaje de programación R.
Método 1: Extraer año de un vector
En este método, as.POSIXct es una función de conversión de fecha y hora que se utiliza para manipular objetos de clases. Para extraer el año del vector, necesitamos crear un vector con algunas fechas y luego organizar la fecha con as.POSIXct() y obtener el año con los métodos format().
R
Date <- c("01/12/2011 12:40:00", "11/12/2015 11:40:00",
"01/02/2012 05:40:00", "01/04/2021 09:44:00" ,
"01/02/2020 01:43:00", "01/12/2014 04:41:00")
print("Vector Date:")
print(Date)
# formatted date
print("Extract Year:")
Date <- as.POSIXct(Date, format = "%m/%d/%Y %H:%M:%S")
format(Date, format="%Y")
Producción:
[1] "Vector Date:" [1] "01/12/2011 12:40:00" "11/12/2015 11:40:00" "01/02/2012 05:40:00" [4] "01/04/2021 09:44:00" "01/02/2020 01:43:00" "01/12/2014 04:41:00" [1] "Extract Year:" '2011' '2015' '2012' '2021' '2020' '2014'
Método 2: extraer el año de una columna en un marco de datos
Para extraer el año de la columna, crearemos un marco de datos con columnas de fecha y luego separaremos el año de DateTime usando los métodos format() y extraeremos el año y lo convertiremos a un formato numérico.
R
# declaring a data frame
data_frame = data.frame(Rank = c(5:8) ,
Time = c("2021-05-05 01:04:34",
"2021-03-06 03:14:44",
"2021-03-11 07:22:48",
"2021-02-02 11:54:56"))
print ("Original dataframe")
data_frame
# data_frame$year <- as.Date(data_frame$Time, "%Y")
# data_frame
data_frame$Time <- as.Date(data_frame$Time)
print("Extract year")
# extract the year and convert to numeric format
data_frame$year <- as.numeric(format(data_frame$Time, "%Y"))
data_frame
Producción:
[1] "Original dataframe" Rank Time 5 2021-05-05 01:04:34 6 2021-03-06 03:14:44 7 2021-03-11 07:22:48 8 2021-02-02 11:54:56 Extract year Rank Time year 5 2021-05-05 2021 6 2021-03-06 2021 7 2021-03-11 2021 8 2021-02-02 2021