Q&A
説明と例題データで列名が一致していません。紛らわしいので正しく統一してください。
使用したいデータ(df)は以下のような時系列データです。
name year price_t
A社 1999 200
A社 2000 199
A社 2001 201
A社 2002 205
B社 1999 202
B社 2000 203
B社 2001 201
以上のデータの"price_t"という列のデータから、1年前の値が入った"price_t-1"という変数を作成したいです。
目標は以下の通りです。
name year price_t price_t-1
A社 1999 200
A社 2000 199 200
A社 2001 201 199
A社 2002 205 201
B社 1999 202
B社 2000 203 202
B社 2001 201 203
tapply関数(tapply(df$price,df$name,関数))が利用できるという情報を得ましたが、年をどのように指定したらよいかわからない状況です。
教えていただけると幸いです。
回答2件
0
ベストアンサー
transform() 関数を使ってみました。カラム名ですが、- が使えない(演算子の - だと解釈される)ので、price_t_1 としています。また、前年度のデータが無い場合は NA としています。
r
1df <- data.frame( 2 "name" = c(rep("A社", 4), rep("B社", 3)), 3 "year" = c(1999:2002, 1999:2001), 4 "price_t" = c(200, 199, 201, 205, 202, 203, 201) 5) 6 7dfx <- transform(df, price_t_1 = 8 price_t[match(paste(name, year-1), paste(name, year), nomatch = NA)]) 9 10print(dfx) 11# 12 name year price_t price_t_1 131 A社 1999 200 NA 142 A社 2000 199 200 153 A社 2001 201 199 164 A社 2002 205 201 175 B社 1999 202 NA 186 B社 2000 203 202 197 B社 2001 201 203
※ 前回と同様に、dplyr などを利用すれば、もっと判りやすい書き方ができるかと思います。
投稿2021/11/05 13:47
編集2021/11/05 14:07
総合スコア20655
0
tapplyでは行を跨いだ処理は多分難しいですね。
こう云うときは中間データを書き込む「作業用の列」を適宜追加しながら作業を進めていくのが分かりやすくていい思います。具体的には、まずは会社名ごとのIDを振った列をもう一つ作り、それを手がかりに「一つ前」のデータを特定してprice_t-1列に書き込んでいくという手順をふめばできそうです。
dplyrあたりを使ったスマートなコードがあり得るかもしれませんが、まずはforループで地道に作ってみるといいかと思います。
投稿2021/11/05 09:07
総合スコア13692
あなたの回答
tips
プレビュー
