Jahr vom Datum extrahieren

Question 1

Wie kann ich die ersten Elemente aus einer Variablen entfernen, insbesondere wenn diese Variable Sonderzeichen enthält? Zum Beispiel habe ich die folgende Spalte:

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

Ich brauche eine neue Spalte wie die folgende:

Question 2

Wenn alle Ihre Daten dieselbe Breite haben, können Sie die Daten in einen Vektor einfügen und Teilzeichenfolgen verwenden

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

Ausgabe

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

Question 3

Wie in den Kommentaren erläutert, kann dies erreicht werden, indem der Eintrag in ein DateFormat konvertiert und das Jahr extrahiert wird, beispielsweise wie folgt:

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

Wenn Sie Ihre Variable konvertieren in Date:

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

Sie können dann die gewünschten Elemente ausschneiden und neue Variablen erstellen, z. B. Jahr:

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

oder Monat:

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

Question 6

Dies ist mehr ein Rat als eine bestimmte Antwort, aber mein Vorschlag ist, Datumsangaben sofort in Datumsvariablen umzuwandeln, anstatt sie als Zeichenfolgen beizubehalten. Auf diese Weise können Sie Datums- (und Uhrzeit-) Funktionen verwenden, anstatt zu versuchen, sehr problematische Problemumgehungen zu verwenden.

Wie bereits erwähnt, verfügt das Schmiermittelpaket über schöne Extraktionsfunktionen.

Bei einigen Projekten habe ich festgestellt, dass das Zusammensetzen von Daten von Anfang an hilfreich ist: Erstellen Sie zunächst Variablen für Jahr, Monat, Tag (des Monats) und Tag (der Woche). Dies kann Zusammenfassungen, Tabellen und Grafiken vereinfachen, da der Extraktionscode vom Zusammenfassungs- / Tabellen- / Grafikcode getrennt ist und Sie diese Änderungen nicht an mehreren Stellen einführen müssen, wenn Sie sie ändern müssen.

Question 7

Wenn Sie das datePaket verwenden , kann dies ziemlich einfach durchgeführt werden.

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 8

Seit einiger Zeit können Sie sich auch nur auf das data.tablePaket und seine IDateKlasse sowie die zugehörigen Funktionen verlassen (Check ?as.IDate()). Sie müssen also nicht zusätzlich installieren 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

79

Wie kann ich die ersten Elemente aus einer Variablen entfernen, insbesondere wenn diese Variable Sonderzeichen enthält? Zum Beispiel habe ich die folgende Spalte:

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

Ich brauche eine neue Spalte wie die folgende:

r date hbtf.1046
quelle

13

In die Klasse 'Datum' konvertieren und formatdas 'Jahr' extrahieren

akrun

5

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

mtoto

2

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

Jogo

6

lubridate::yearsollte auch den Trick machen, wenn die Daten im 'Date'-Format vorliegen, wie von @akrun vorgeschlagen.

fdetsch

6

Die sauberste Lösung besteht darin, diese Variable zu erzwingen Dateund eine formatoder andere Funktionen zu verwenden, um Teile davon zu extrahieren. Zum Beispiel x <- as.Date("01/01/2009", format = "%m/%d/%Y"); lubridate::year(x).

Roman Luštrik

Answer 2

13

In die Klasse 'Datum' konvertieren und formatdas 'Jahr' extrahieren

akrun

Answer 3

5

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

mtoto

Answer 4

2

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

Jogo

Answer 5

6

lubridate::yearsollte auch den Trick machen, wenn die Daten im 'Date'-Format vorliegen, wie von @akrun vorgeschlagen.

fdetsch

Answer 6

6

Die sauberste Lösung besteht darin, diese Variable zu erzwingen Dateund eine formatoder andere Funktionen zu verwenden, um Teile davon zu extrahieren. Zum Beispiel x <- as.Date("01/01/2009", format = "%m/%d/%Y"); lubridate::year(x).

Roman Luštrik

Answer 7

20

Wenn alle Ihre Daten dieselbe Breite haben, können Sie die Daten in einen Vektor einfügen und Teilzeichenfolgen verwenden

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

Ausgabe

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

Alexander
quelle

Ich stimme zu, aber Sie können dies leicht in einen numerischen Vektor umwandeln, nicht wahr? as.numeric(substring(a,7,10))

Fabian Habersack

3

Daten sollten nicht in Zeichenfolgen oder Zahlen umgewandelt werden. Sie sind von Natur aus eine 'Anzahl von x (Sekunden) seit einem festen Zeitpunkt' und werden als lesbare Zeichenfolgen angezeigt - streng genommen nicht als Zeichenfolgen zu manipulieren.

Skoh

Answer 8

Ich stimme zu, aber Sie können dies leicht in einen numerischen Vektor umwandeln, nicht wahr? as.numeric(substring(a,7,10))

Fabian Habersack

Answer 9

3

Daten sollten nicht in Zeichenfolgen oder Zahlen umgewandelt werden. Sie sind von Natur aus eine 'Anzahl von x (Sekunden) seit einem festen Zeitpunkt' und werden als lesbare Zeichenfolgen angezeigt - streng genommen nicht als Zeichenfolgen zu manipulieren.

Skoh

Answer 10

173

Wie in den Kommentaren erläutert, kann dies erreicht werden, indem der Eintrag in ein DateFormat konvertiert und das Jahr extrahiert wird, beispielsweise wie folgt:

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

RHertel
quelle

7

Warum zum Teufel funktioniert das? Wenn ich mir format()die Dokumentation ansehe, wird nichts über das zweite Argument gesagt, das Sie angegeben haben. Wie soll ich das verstehen?

Narbengesicht

16

Von ?format: "Format ist eine generische Funktion . Neben den hier beschriebenen Methoden gibt es Methoden für Datumsangaben ( siehe format.Date )". From ?format.Date: "## S3-Methode für das Format 'Date' (x, ...) [wobei ... bezeichnet] weitere Argumente, die von oder an andere Methoden übergeben werden sollen, einschließlich des Formats für die Methoden as.character und as.Date . ". Siehe auch das erste Beispiel in ?format.Date.

RHertel

Answer 11

7

Warum zum Teufel funktioniert das? Wenn ich mir format()die Dokumentation ansehe, wird nichts über das zweite Argument gesagt, das Sie angegeben haben. Wie soll ich das verstehen?

Narbengesicht

Answer 12

16

Von ?format: "Format ist eine generische Funktion . Neben den hier beschriebenen Methoden gibt es Methoden für Datumsangaben ( siehe format.Date )". From ?format.Date: "## S3-Methode für das Format 'Date' (x, ...) [wobei ... bezeichnet] weitere Argumente, die von oder an andere Methoden übergeben werden sollen, einschließlich des Formats für die Methoden as.character und as.Date . ". Siehe auch das erste Beispiel in ?format.Date.

RHertel

Answer 13

59

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
quelle

Answer 14

Wenn Sie Ihre Variable konvertieren in Date:

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

Sie können dann die gewünschten Elemente ausschneiden und neue Variablen erstellen, z. B. Jahr:

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

oder Monat:

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

Answer 15

Dies ist mehr ein Rat als eine bestimmte Antwort, aber mein Vorschlag ist, Datumsangaben sofort in Datumsvariablen umzuwandeln, anstatt sie als Zeichenfolgen beizubehalten. Auf diese Weise können Sie Datums- (und Uhrzeit-) Funktionen verwenden, anstatt zu versuchen, sehr problematische Problemumgehungen zu verwenden.

Wie bereits erwähnt, verfügt das Schmiermittelpaket über schöne Extraktionsfunktionen.

Bei einigen Projekten habe ich festgestellt, dass das Zusammensetzen von Daten von Anfang an hilfreich ist: Erstellen Sie zunächst Variablen für Jahr, Monat, Tag (des Monats) und Tag (der Woche). Dies kann Zusammenfassungen, Tabellen und Grafiken vereinfachen, da der Extraktionscode vom Zusammenfassungs- / Tabellen- / Grafikcode getrennt ist und Sie diese Änderungen nicht an mehreren Stellen einführen müssen, wenn Sie sie ändern müssen.

Answer 16

Wenn Sie das datePaket verwenden , kann dies ziemlich einfach durchgeführt werden.

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 17

Seit einiger Zeit können Sie sich auch nur auf das data.tablePaket und seine IDateKlasse sowie die zugehörigen Funktionen verlassen (Check ?as.IDate()). Sie müssen also nicht zusätzlich installieren 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

Jahr vom Datum extrahieren

Antworten: