Как извлечь определенные числовые шаблоны из целого числа в векторе?

Question

Для данных Quakes, которые выглядят следующим образом:

    Date      Latitude   Longitude   M
1 18001011       ...
2 18001122
3 18030000 
4 19001010                        ...

class(Quakes$Date) дает "целое число" и без использования регулярных выражений для получения образцов, как мы извлекаем годы, месяцы и дни?

Для первого ряда с 18001011 это будет:

Year = 1800, Month = 10, Day = 11

Answer 1

lubridate package может помочь.

library(lubridate)
ymd("18001122")

Или:

ymd(Quakes$Date)

И для извлечения года и месяца по отдельности:

year(ymd(Quakes$Date))
month(ymd(Quakes$Date))
day(ymd(Quakes$Date))

Base-R также можетиспользуйте as.Date (), передав его спецификацию формата, такую ​​как:

as.Date("18001122",format="%Y%m%d")
as.Date(as.character(Quakes$Date),format="%Y%m%d")