日付に月を追加する
私が持っている日付に月を追加しようとしています。しかし、それでは、これまでのところ直線的には不可能です。以下は私が試したものです。
_d <- as.Date("2004-01-31")
d + 60
# [1] "2004-03-31"
_月が重複しないため、ヘルプを追加することはできません。
_seq(as.Date("2004-01-31"), by = "month", length = 2)
# [1] "2004-01-31" "2004-03-02"
_上記はうまくいくかもしれませんが、やはり簡単ではありません。また、以下のような問題がある日付に30日または何かを追加します
_seq(as.Date("2004-01-31"), by = "month", length = 10)
# [1] "2004-01-31" "2004-03-02" "2004-03-31" "2004-05-01" "2004-05-31" "2004-07-01" "2004-07-31" "2004-08-31" "2004-10-01" "2004-10-31"
_上記では、最初の2つの日付について、月は変更されていません。
また、次のアプローチも月に失敗しましたが、年間は成功しました
_d <- as.POSIXlt(as.Date("2010-01-01"))
d$year <- d$year +1
d
# [1] "2011-01-01 UTC"
d <- as.POSIXlt(as.Date("2010-01-01"))
d$month <- d$month +1
d
_
format.POSIXlt(x, usetz = TRUE)のエラー： 'x'引数が無効です
これを行う正しい方法は何ですか？
Vanilla Rには素朴なdifftimeクラスがありますが、 Lubridate[〜＃〜] cran [〜＃〜] パッケージを使用すると、次のことができます。
require(lubridate)
d <- as.Date('2004-01-01')
month(d) <- month(d) + 1
day(d) <- days_in_month(d)
d
[1] "2004-02-29"
お役に立てば幸いです。
関数 %m+% lubridateから、新しい月の最終日を超えることなく1か月が追加されます。
library(lubridate)
(d <- ymd("2012-01-31"))
1 parsed with %Y-%m-%d
[1] "2012-01-31 UTC"
d %m+% months(1)
[1] "2012-02-29 UTC"
「日付に月を追加」と言うとあいまいです。
という意味ですか
- 30日を追加しますか？
- 日付の月の部分を1増やしますか？
どちらの場合も、単純な追加のためのパッケージ全体は少し誇張されているようです。
最初の点については、もちろん、単純な+演算子は以下を行います。
d=as.Date('2010-01-01')
d + 30
#[1] "2010-01-31"
2番目については、それと同じくらい簡単な（そしてより一般的なスコープで）1行の関数を作成します。
add.months= function(date,n) seq(date, by = paste (n, "months"), length = 2)[2]
マイナスを含む任意の月で使用できます：
add.months(d, 3)
#[1] "2010-04-01"
add.months(d, -3)
#[1] "2009-10-01"
もちろん、たった1か月だけを追加したい場合：
add.month=function(date) add.months(date,1)
add.month(d)
#[1] "2010-02-01"
1月を1月31日に追加する場合、2月31日は無意味なので、仕事をするための最善の方法は、次の月である3月に不足している3日を追加することです。正しく：
add.month(as.Date("2010-01-31"))
#[1] "2010-03-03"
何らかの特別な理由で、その月の最後の利用可能な日に上限を設定する必要がある場合、少し長くなります：
add.months.ceil=function (date, n){
#no ceiling
nC=add.months(date, n)
#ceiling
day(date)=01
C=add.months(date, n+1)-1
#use ceiling in case of overlapping
if(nC>C) return(C)
return(nC)
}
通常どおり、1か月のバージョンを追加できます。
add.month.ceil=function(date) add.months.ceil(date,1)
そう：
d=as.Date('2010-01-31')
add.month.ceil(d)
#[1] "2010-02-28"
d=as.Date('2010-01-21')
add.month.ceil(d)
#[1] "2010-02-21"
そして、デクリメントあり：
d=as.Date('2010-03-31')
add.months.ceil(d, -1)
#[1] "2010-02-28"
d=as.Date('2010-03-21')
add.months.ceil(d, -1)
#[1] "2010-02-21"
また、スカラーまたはベクトルソリューションに興味があるかどうかはわかりませんでした。後者に関して：
add.months.v= function(date,n) as.Date(sapply(date, add.months, n), Origin="1970-01-01")
注意： *applyファミリはクラスデータを破壊するため、再構築する必要があります。ベクターバージョンは以下をもたらします。
d=c(as.Date('2010/01/01'), as.Date('2010/01/31'))
add.months.v(d,1)
[1] "2010-02-01" "2010-03-03"
あなたがそれを好き願っています））
"mondate"は"Date"と多少似ていますが、nを追加するとn日ではなくn月が追加されます。
> library(mondate)
> d <- as.Date("2004-01-31")
> as.mondate(d) + 1
mondate: timeunits="months"
[1] 2004-02-29
最も簡単な方法は、DateをPOSIXlt形式に変換することです。次に、次のように算術演算を実行します。
date_1m_fwd <- as.POSIXlt("2010-01-01")
date_1m_fwd$mon <- date_1m_fwd$mon +1
さらに、残念ながら、data.tableのDate列を処理する場合、POSIXlt形式はサポートされていません。
それでも、次のように基本的なRコードを使用して月の追加を実行できます。
library(data.table)
dt <- as.data.table(seq(as.Date("2010-01-01"), length.out=5, by="month"))
dt[,shifted_month:=tail(seq(V1[1], length.out=length(V1)+3, by="month"),length(V1))]
それが役に立てば幸い。
パッケージをインストールする必要のない関数を次に示します。 Dateオブジェクト（またはcharacterに変換できるDate）を指定し、その日付にnか月を追加します月の日付を変更せずに（unless着陸した月に十分な日数がない場合、デフォルトでは返された月の最終日まで）。それを読むのが意味をなさない場合に備えて、以下にいくつかの例を示します。
関数定義
addMonth <- function(date, n = 1){
if (n == 0){return(date)}
if (n %% 1 != 0){stop("Input Error: argument 'n' must be an integer.")}
# Check to make sure we have a standard Date format
if (class(date) == "character"){date = as.Date(date)}
# Turn the year, month, and day into numbers so we can play with them
y = as.numeric(substr(as.character(date),1,4))
m = as.numeric(substr(as.character(date),6,7))
d = as.numeric(substr(as.character(date),9,10))
# Run through the computation
i = 0
# Adding months
if (n > 0){
while (i < n){
m = m + 1
if (m == 13){
m = 1
y = y + 1
}
i = i + 1
}
}
# Subtracting months
else if (n < 0){
while (i > n){
m = m - 1
if (m == 0){
m = 12
y = y - 1
}
i = i - 1
}
}
# If past 28th day in base month, make adjustments for February
if (d > 28 & m == 2){
# If it's a leap year, return the 29th day
if ((y %% 4 == 0 & y %% 100 != 0) | y %% 400 == 0){d = 29}
# Otherwise, return the 28th day
else{d = 28}
}
# If 31st day in base month but only 30 days in end month, return 30th day
else if (d == 31){if (m %in% c(1, 3, 5, 7, 8, 10, 12) == FALSE){d = 30}}
# Turn year, month, and day into strings and put them together to make a Date
y = as.character(y)
# If month is single digit, add a leading 0, otherwise leave it alone
if (m < 10){m = paste('0', as.character(m), sep = '')}
else{m = as.character(m)}
# If day is single digit, add a leading 0, otherwise leave it alone
if (d < 10){d = paste('0', as.character(d), sep = '')}
else{d = as.character(d)}
# Put them together and convert return the result as a Date
return(as.Date(paste(y,'-',m,'-',d, sep = '')))
}
いくつかの例
月を追加する
> addMonth('2014-01-31', n = 1)
[1] "2014-02-28" # February, non-leap year
> addMonth('2014-01-31', n = 5)
[1] "2014-06-30" # June only has 30 days, so day of month dropped to 30
> addMonth('2014-01-31', n = 24)
[1] "2016-01-31" # Increments years when n is a multiple of 12
> addMonth('2014-01-31', n = 25)
[1] "2016-02-29" # February, leap year
減算月
> addMonth('2014-01-31', n = -1)
[1] "2013-12-31"
> addMonth('2014-01-31', n = -7)
[1] "2013-06-30"
> addMonth('2014-01-31', n = -12)
[1] "2013-01-31"
> addMonth('2014-01-31', n = -23)
[1] "2012-02-29"
addedMonth <- seq(as.Date('2004-01-01'), length=2, by='1 month')[2]
addedQuarter <- seq(as.Date('2004-01-01'), length=2, by='1 quarter')[2]
アントニオの考えを特定の機能に変えました。
library(DescTools)
> AddMonths(as.Date('2004-01-01'), 1)
[1] "2004-02-01"
> AddMonths(as.Date('2004-01-31'), 1)
[1] "2004-02-29"
> AddMonths(as.Date('2004-03-30'), -1)
[1] "2004-02-29"