У меня есть дата в P
date = as.Date("2011-02-23", "%Y-%m-%d")
Можно ли узнать количество дней месяца этой конкретной даты? (Что касается прыгунов). В PHP это будет похоже на это (http://www.php.net/manual/en/function.date.php):
days = format(date, "%t")
но "% t", по-видимому, имеет другое значение в R. Существует ли решение этой проблемы?
Вы можете написать простую функцию для этого:
numberOfDays <- function(date) {
m <- format(date, format="%m")
while (format(date, format="%m") == m) {
date <- date + 1
}
return(as.integer(format(date - 1, format="%d")))
}
Вызывать как:
> date = as.Date("2011-02-23", "%Y-%m-%d")
> numberOfDays(date)
[1] 28
> date # date is unchanged
[1] "2011-02-23"
Библиотека Hmisc имеет несколько полезных функций для этого:
require(Hmisc)
monthDays(as.Date('2010-01-01'))
Это так же просто, как различие между двумя датами - поэтому сделайте это первым месяцем и следующим месяцем:
R> difftime( as.Date("2011-06-01"), as.Date("2011-05-01") )
Time difference of 31 days
R> as.numeric(difftime( as.Date("2011-06-01"), as.Date("2011-05-01") ))
[1] 31
R>
as.numeric() переводит это число, которое вы можете использовать.
Вот несколько подходов. Оба подхода векторизованы, т.е. Ввод x может быть одиночной датой класса "Date" или вектором таких дат.
1). Это преобразует дату ввода, x, в объект "yearmon", а затем преобразует ее обратно в последний месяц и первый месяц и вычитает два добавления 1.
x <- Sys.Date() # use today as the test date
library(zoo)
ym <- as.yearmon(x)
as.Date(ym, frac = 1) - as.Date(ym) + 1
## Time difference of 30 days
или для использования числового результата:
as.numeric(as.Date(ym, frac = 1) - as.Date(ym) + 1)
## [1] 30
1a). Вариантом будет:
as.Date(ym + 1/12) - as.Date(ym)
## Time difference of 30 days
или для числового результата:
as.numeric(as.Date(ym + 1/12) - as.Date(ym))
## [1] 30
2) Это базовое решение. Сначала мы определяем fom, который вводит вектор "Date" и возвращает первый месяц каждого компонента. Теперь мы просто принимаем разницу между первым из следующего месяца и первым из текущего месяца.
fom <- function(x) as.Date(cut(x, "month"))
fom1 <- fom(x)
fom2 <- fom(fom1 + 32)
as.numeric(fom2 - fom1)
## [1] 30
Пакет "Lubridate" требует функции "days_in_month" относительно leapyears.
Ваш пример:
> date = as.Date("2011-02-23", "%Y-%m-%d")
> days_in_month(date)
Feb
28
Високосный год (2016):
> date_leap = as.Date("2016-02-23", "%Y-%m-%d")
> days_in_month(date_leap)
Feb
29
Вот простой способ: для n в 28:31 найти наибольшее число, которое приводит к допустимой дате. В моих тестах это по крайней мере в 4 раза быстрее, чем любой из методов, основанных на разнице времени:
ndays <- function(d) {
last_days <- 28:31
rev(last_days[which(!is.na(
as.Date( paste( substr(d, 1, 8),
last_days, sep = ''),
'%Y-%m-%d')))])[1]
}
> ndays('1999-03-10')
[1] 31
> ndays('1999-04-10')
[1] 30
> ndays('2000-02-10')
[1] 29
Сравнение времени с некоторыми из других предложенных здесь методов:
> system.time( replicate( 5000,
nd <- {
ym <- as.yearmon('2011-06-01');
as.numeric( as.Date(ym, frac = 1) - as.Date(ym) + 1)
}))
user system elapsed
16.634 1.807 18.238
> system.time( replicate( 5000,
nd <- as.numeric( difftime( as.Date("2011-06-01"),
as.Date("2011-05-01") ))))
user system elapsed
3.137 0.341 3.470
> system.time( replicate( 5000, nd <- ndays('2011-06-01')))
user system elapsed
0.729 0.044 0.771
Вот еще одна возможная функция, которая не требует установки каких-либо пакетов. Вы просто передаете функцию объекту даты. Поскольку здесь есть много других отличных ответов, я написал это с прицелом на то, чтобы быть довольно простым и (надеюсь) легко читаемым:)
daysInMonth <- function(d = Sys.Date()){
m = substr((as.character(d)), 6, 7) # month number as string
y = as.numeric(substr((as.character(d)), 1, 4)) # year number as numeric
# Quick check for leap year
leap = 0
if ((y %% 4 == 0 & y %% 100 != 0) | y %% 400 == 0)
leap = 1
# Return the number of days in the month
return(switch(m,
'01' = 31,
'02' = 28 + leap, # adds 1 if leap year
'03' = 31,
'04' = 30,
'05' = 31,
'06' = 30,
'07' = 31,
'08' = 31,
'09' = 30,
'10' = 31,
'11' = 30,
'12' = 31))
}
Это в основном подход Dirk, но фактически помещенный в функцию, чтобы проверить, когда следующий месяц также будет в следующем году; и просто вычитание дат совпадает с использованием difftime():
numberOfDays <- function(d){
temp <- unlist(strsplit(as.character(d),"-"))
begin <- as.Date(paste(temp[1],temp[2],"01",sep="-"))
if (temp[2] != "12"){
nextMonth <- as.character(as.integer(temp[2])+1)
end <- as.Date(paste(temp[1],nextMonth,"01",sep="-"))
return(as.integer(as.Date(end) - as.Date(begin)))
}
else{
nextYear <- as.character(as.integer(temp[1])+1)
end <- as.Date(paste(nextYear,"01","01",sep="-"))
return(as.integer(as.Date(end) - as.Date(begin)))
}
}
Вы можете пройти год или взять текущий год по умолчанию:
days.in.month = function(month, year = NULL){
month = as.integer(month)
if (is.null(year))
year = as.numeric(format(Sys.Date(), '%Y'))
dt = as.Date(paste(year, month, '01', sep = '-'))
dates = seq(dt, by = 'month', length = 2)
as.numeric(difftime(dates[2], dates[1], units = 'days'))
}
Я предоставляю еще один однострочный пакет без дополнительных пакетов:
NumberOfDays <- function(date)
return(as.numeric(format(as.Date(paste0(format(date,format="%Y"),formatC(ifelse(format(date,format="%m")=="12",0,as.numeric(format(date,format="%m")))+1,width=2,format="d",flag="0"),"01"),"%Y%m%d")-1,format="%d")))
> NumberOfDays(as.Date("2015-02-14","%Y-%m-%d"))
[1] 28
> system.time(NumberOfDays(as.Date("2015-02-14","%Y-%m-%d")))
user system elapsed
0.0010000000 0.0000000000 0.0009999999
Вы должны предоставить объект Date этой функции с форматированием ваших собственных предпочтений.
Привет, еще один способ получить дни:
# Any date
Today <- Sys.Date()
# Get Month and Year
Month <- format(Today,"%m")
Year <- format(Today,"%Y")
# get first date for the next month and then subtract 1
Days <- format(
as.Date(
paste0("01/",(as.numeric(Month)%%12)+1,"/",Year)
,"%d/%m/%Y")-1,"%d")
Я опаздываю на вечеринку, но эта функция намного лучше и поддерживает векторы:
month_days <- function(mon) {
# input as class "Date"
require(lubridate)
day(mon) <- 1
given <- mon
month(given) <- month(given) + 1
as.numeric(given - mon)
}