R Language
Data i godzina

Wprowadzenie

Uwagi

origin = as.POSIXct("1970-01-01 00:00:00", format ="%Y-%m-%d %H:%M:%S", tz = "UTC")

origin
## [1] "1970-01-01 UTC"

origin + 47
## [1] "1970-01-01 00:00:47 UTC"

as.numeric(origin)     # At epoch
## 0

as.numeric(Sys.time()) # Right now (output as of July 21, 2016 at 11:47:37 EDT)
## 1469116057

posixlt = as.POSIXlt(Sys.time(), format ="%Y-%m-%d %H:%M:%S", tz = "America/Chicago")

# Conversion to POISXct
posixct = as.POSIXct(posixlt)
posixct

# Accessing components
posixlt$sec   # Seconds 0-61
posixlt$min   # Minutes 0-59
posixlt$hour  # Hour 0-23
posixlt$mday  # Day of the Month 1-31
posixlt$mon   # Months after the first of the year 0-11
posixlt$year  # Years since 1900.

ct = as.POSIXct("2015-05-25")
lt = as.POSIXlt("2015-05-25")

object.size(ct)
# 520 bytes
object.size(lt)
# 1816 bytes

Aktualna data i godzina

R ma dostęp do bieżącej daty, godziny i strefy czasowej:

Sys.Date()             # Returns date as a Date object

## [1] "2016-07-21"

Sys.time()             # Returns date & time at current locale as a POSIXct object

## [1] "2016-07-21 10:04:39 CDT"

as.numeric(Sys.time()) # Seconds from UNIX Epoch (1970-01-01 00:00:00 UTC)

## [1] 1469113479

Sys.timezone()         # Time zone at current location

## [1] "Australia/Melbourne"

Użyj OlsonNames() aby wyświetlić nazwy stref czasowych w bazie danych Olson / IANA w bieżącym systemie:

str(OlsonNames())
## chr [1:589] "Africa/Abidjan" "Africa/Accra" "Africa/Addis_Ababa" "Africa/Algiers" "Africa/Asmara" "Africa/Asmera" "Africa/Bamako" ...

Idź do końca miesiąca

Powiedzmy, że chcemy przejść do ostatniego dnia miesiąca, ta funkcja pomoże w tym:

eom <- function(x, p=as.POSIXlt(x)) as.Date(modifyList(p, list(mon=p$mon + 1, mday=0)))

Test:

x <- seq(as.POSIXct("2000-12-10"),as.POSIXct("2001-05-10"),by="months")
> data.frame(before=x,after=eom(x))
      before      after
1 2000-12-10 2000-12-31
2 2001-01-10 2001-01-31
3 2001-02-10 2001-02-28
4 2001-03-10 2001-03-31
5 2001-04-10 2001-04-30
6 2001-05-10 2001-05-31
> 

Używanie daty w formacie ciągu:

> eom('2000-01-01')
[1] "2000-01-31"

Idź do pierwszego dnia miesiąca

Powiedzmy, że chcemy przejść do pierwszego dnia danego miesiąca:

date <- as.Date("2017-01-20")

> as.POSIXlt(cut(date, "month"))
[1] "2017-01-01 EST"

Przenieś datę o kilka miesięcy konsekwentnie o miesiące

Powiedzmy, że chcemy przesunąć dany dzień do num miesięcy. Możemy zdefiniować następującą funkcję, która korzysta z pakietu mondate :

moveNumOfMonths <- function(date, num) {
    as.Date(mondate(date) + num)
}

Porusza się konsekwentnie w części miesiąca i dostosowuje dzień, w przypadku gdy data odnosi się do ostatniego dnia miesiąca.

Na przykład:

Cofnij o miesiąc:

> moveNumOfMonths("2017-10-30",-1)
[1] "2017-09-30"

Dwa miesiące wstecz:

> moveNumOfMonths("2017-10-30",-2)
[1] "2017-08-30"

Naprzód dwa miesiące:

> moveNumOfMonths("2017-02-28", 2)
[1] "2017-04-30"

Przenosi się o dwa miesiące od ostatniego dnia lutego, a więc ostatniego dnia kwietnia.

Zobaczmy, jak to działa w przypadku operacji wstecz i do przodu, gdy jest to ostatni dzień miesiąca:

> moveNumOfMonths("2016-11-30", 2)
[1] "2017-01-31"
> moveNumOfMonths("2017-01-31", -2)
[1] "2016-11-30"

Ponieważ listopad ma 30 dni, otrzymujemy tę samą datę w operacji wstecznej, ale:

> moveNumOfMonths("2017-01-30", -2)
[1] "2016-11-30"
> moveNumOfMonths("2016-11-30", 2)
[1] "2017-01-31"

Ponieważ styczeń ma 31 dni, przeniesienie o dwa miesiące od ostatniego dnia listopada otrzyma ostatni dzień stycznia.