Extraer año de fecha

Question 1

¿Cómo puedo eliminar los primeros elementos de una variable, especialmente si esta variable tiene caracteres especiales? Por ejemplo, tengo la siguiente columna:

Date
01/01/2009
01/01/2010
01/01/2011
01/01/2012

Necesito tener una nueva columna como la siguiente:

Question 2

si todas sus fechas tienen el mismo ancho, puede poner las fechas en un vector y usar la subcadena

Date
a <- c("01/01/2009", "01/01/2010" , "01/01/2011")
substring(a,7,10) #This takes string and only keeps the characters beginning in position 7 to position 10

salida

[1] "2009" "2010" "2011"

Question 3

Como se discutió en los comentarios, esto se puede lograr convirtiendo la entrada en Dateformato y extrayendo el año, por ejemplo, así:

format(as.Date(df1$Date, format="%d/%m/%Y"),"%Y")

Question 4

library(lubridate)
a=mdy(b)
year(a)

https://cran.r-project.org/web/packages/lubridate/vignettes/lubridate.html http://vita.had.co.nz/papers/lubridate.pdf

Question 5

Cuando convierte su variable a Date:

date <-  as.Date('10/30/2018','%m/%d/%Y')

luego puede recortar los elementos que desee y crear nuevas variables, como año:

year <- as.numeric(format(date,'%Y'))

o mes:

month <- as.numeric(format(date,'%m'))

Question 6

Si está utilizando el datepaquete , esto se puede hacer con bastante facilidad.

library(date)
Date <- c("01/01/2009", "01/01/2010", "01/01/2011", "01/01/2012")
Date <- as.date(Date)
Date
# [1] 1Jan2009 1Jan2010 1Jan2011 1Jan2012
date.mdy(Date)$year
# [1] 2009 2010 2011 2012

## be aware that these are now integers and thus different methods may be invoked:
str(date.mdy(Date)$year)
# int [1:4] 2009 2010 2011 2012
summary(Date)
#     First      Last   
# "1Jan2009" "1Jan2012" 
summary(date.mdy(Date)$year)
#    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
#    2009    2010    2010    2010    2011    2012

Question 7

Este es más un consejo que una respuesta específica, pero mi sugerencia es convertir las fechas en variables de fecha inmediatamente, en lugar de mantenerlas como cadenas. De esta manera, puede usar funciones de fecha (y hora) en ellos, en lugar de intentar usar soluciones muy problemáticas.

Como se señaló, el paquete lubridate tiene buenas funciones de extracción.

Para algunos proyectos, he descubierto que unir las fechas desde el principio es útil: cree variables de año, mes, día (del mes) y día (de la semana) para comenzar. Esto puede simplificar resúmenes, tablas y gráficos, porque el código de extracción está separado del código de resumen / tabla / gráfico, y porque si necesita cambiarlo, no tiene que implementar esos cambios en varios puntos.

Question 8

Desde hace algún tiempo, también puede confiar únicamente en el data.tablepaquete y su IDateclase más las funciones asociadas (Verificar ?as.IDate()). Por lo tanto, no es necesario instalarlo adicionalmente lubridate.

require(data.table)

a <- c("01/01/2009", "01/01/2010" , "01/01/2011")
year(as.IDate(a, '%d/%m/%Y')) # all data.table functions

Answer 1

82

¿Cómo puedo eliminar los primeros elementos de una variable, especialmente si esta variable tiene caracteres especiales? Por ejemplo, tengo la siguiente columna:

Date
01/01/2009
01/01/2010
01/01/2011
01/01/2012

Necesito tener una nueva columna como la siguiente:

r date hbtf.1046
fuente

13

Convierta a la clase 'Fecha' y utilícelo formatpara extraer el 'año'

Akrun

5

ogsub(".*/","",df$Date)

mtoto

2

osubstr(as.character(....), 7, 10)

jogo

6

lubridate::yeartambién debería hacer el truco una vez que los datos estén en formato 'Fecha' como lo sugiere @akrun.

fdetsch

6

La solución más limpia es coaccionar esa variable Datey usar una formatu otras funciones para extraer partes de ella. Por ejemplo x <- as.Date("01/01/2009", format = "%m/%d/%Y"); lubridate::year(x),.

Roman Luštrik

Answer 2

13

Convierta a la clase 'Fecha' y utilícelo formatpara extraer el 'año'

Akrun

Answer 3

5

ogsub(".*/","",df$Date)

mtoto

Answer 4

2

osubstr(as.character(....), 7, 10)

jogo

Answer 5

6

lubridate::yeartambién debería hacer el truco una vez que los datos estén en formato 'Fecha' como lo sugiere @akrun.

fdetsch

Answer 6

6

La solución más limpia es coaccionar esa variable Datey usar una formatu otras funciones para extraer partes de ella. Por ejemplo x <- as.Date("01/01/2009", format = "%m/%d/%Y"); lubridate::year(x),.

Roman Luštrik

Answer 7

20

si todas sus fechas tienen el mismo ancho, puede poner las fechas en un vector y usar la subcadena

Date
a <- c("01/01/2009", "01/01/2010" , "01/01/2011")
substring(a,7,10) #This takes string and only keeps the characters beginning in position 7 to position 10

salida

[1] "2009" "2010" "2011"

Alejandro
fuente

Estoy de acuerdo, pero puedes transformarlo fácilmente en un vector numérico, ¿no? as.numeric(substring(a,7,10))

Fabian Habersack

3

Las fechas no deben convertirse en cadenas o números; son inherentemente un 'número de x (segundos) desde un punto de tiempo fijo' y se muestran como cadenas legibles por humanos, estrictamente para no manipularlas como cadenas.

skoh

Answer 8

Estoy de acuerdo, pero puedes transformarlo fácilmente en un vector numérico, ¿no? as.numeric(substring(a,7,10))

Fabian Habersack

Answer 9

3

Las fechas no deben convertirse en cadenas o números; son inherentemente un 'número de x (segundos) desde un punto de tiempo fijo' y se muestran como cadenas legibles por humanos, estrictamente para no manipularlas como cadenas.

skoh

Answer 10

178

Como se discutió en los comentarios, esto se puede lograr convirtiendo la entrada en Dateformato y extrayendo el año, por ejemplo, así:

format(as.Date(df1$Date, format="%d/%m/%Y"),"%Y")

RHertel
fuente

7

¿Por qué diablos funciona esto? Si miro format()la documentación de, no se dice nada sobre el segundo argumento que proporcionó. ¿Cómo debo entender esto?

Scarface

16

De ?format: "formato es una función genérica . Aparte de los métodos descritos aquí, hay métodos para fechas ( ver formato.Date )". From ?format.Date: "## Método S3 para el formato de clase 'Date' (x, ...) [donde ... denota] más argumentos que se pasarán desde o hacia otros métodos, incluido el formato para los métodos as.character y as.Date . ". Vea también el primer ejemplo en ?format.Date.

RHertel

Answer 11

7

¿Por qué diablos funciona esto? Si miro format()la documentación de, no se dice nada sobre el segundo argumento que proporcionó. ¿Cómo debo entender esto?

Scarface

Answer 12

16

De ?format: "formato es una función genérica . Aparte de los métodos descritos aquí, hay métodos para fechas ( ver formato.Date )". From ?format.Date: "## Método S3 para el formato de clase 'Date' (x, ...) [donde ... denota] más argumentos que se pasarán desde o hacia otros métodos, incluido el formato para los métodos as.character y as.Date . ". Vea también el primer ejemplo en ?format.Date.

RHertel

Answer 13

60

library(lubridate)
a=mdy(b)
year(a)

https://cran.r-project.org/web/packages/lubridate/vignettes/lubridate.html http://vita.had.co.nz/papers/lubridate.pdf

Ajay Ohri
fuente

Answer 14

Cuando convierte su variable a Date:

date <-  as.Date('10/30/2018','%m/%d/%Y')

luego puede recortar los elementos que desee y crear nuevas variables, como año:

year <- as.numeric(format(date,'%Y'))

o mes:

month <- as.numeric(format(date,'%m'))

Answer 15

Si está utilizando el datepaquete , esto se puede hacer con bastante facilidad.

library(date)
Date <- c("01/01/2009", "01/01/2010", "01/01/2011", "01/01/2012")
Date <- as.date(Date)
Date
# [1] 1Jan2009 1Jan2010 1Jan2011 1Jan2012
date.mdy(Date)$year
# [1] 2009 2010 2011 2012

## be aware that these are now integers and thus different methods may be invoked:
str(date.mdy(Date)$year)
# int [1:4] 2009 2010 2011 2012
summary(Date)
#     First      Last   
# "1Jan2009" "1Jan2012" 
summary(date.mdy(Date)$year)
#    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
#    2009    2010    2010    2010    2011    2012

Answer 16

Este es más un consejo que una respuesta específica, pero mi sugerencia es convertir las fechas en variables de fecha inmediatamente, en lugar de mantenerlas como cadenas. De esta manera, puede usar funciones de fecha (y hora) en ellos, en lugar de intentar usar soluciones muy problemáticas.

Como se señaló, el paquete lubridate tiene buenas funciones de extracción.

Para algunos proyectos, he descubierto que unir las fechas desde el principio es útil: cree variables de año, mes, día (del mes) y día (de la semana) para comenzar. Esto puede simplificar resúmenes, tablas y gráficos, porque el código de extracción está separado del código de resumen / tabla / gráfico, y porque si necesita cambiarlo, no tiene que implementar esos cambios en varios puntos.

Answer 17

Desde hace algún tiempo, también puede confiar únicamente en el data.tablepaquete y su IDateclase más las funciones asociadas (Verificar ?as.IDate()). Por lo tanto, no es necesario instalarlo adicionalmente lubridate.

require(data.table)

a <- c("01/01/2009", "01/01/2010" , "01/01/2011")
year(as.IDate(a, '%d/%m/%Y')) # all data.table functions

Extraer año de fecha

Respuestas: