More Related Content
Similar to Code iq×japanr 公開用 (20)
xtsパッケージで時系列解析xtsパッケージで時系列解析Nagi Teramo
Presentation document at Tokyo.R meeting on 2nd July 2011.
Rのxts（zoo）パッケージで時系列を捌くためのノウハウ（データ作成、便利関数）を紹介。 More from Nobuaki Oshiro (20)
10分で分かるr言語入門ver2.410分で分かるr言語入門ver2.4Nobuaki Oshiro
以下の勉強会の初心者セッション資料です
- 第34回R勉強会＠東京（#TokyoR）
http://atnd.org/events/43885 Code iq×japanr 公開用
- 2. アジェンダ
• 自己紹介
• CodeIQ コラボ企画
• 問題と解答例
• 回答の傾向
- 3. アジェンダ
• 自己紹介
• CodeIQ コラボ企画
• 問題と解答例
• 回答の傾向
- 5. TokyoR
• TokyoR で主に運営側で参加
• 最近は初心者用セッションも発表させて
いただいています
10 分で分かる R 言語入門 ver2.1
http://www.slideshare.net/akiaki5516/10rver21
- 6. アジェンダ
• 自己紹介
• CodeIQ とは
• 問題と解答例
• 回答の傾向
- 7. CodeIQ とは
CodeIQ ｜ IT エンジニアのための実務スキル評価サー
ビス
https://codeiq.jp/
- 9. Ｒの問題を出題させて頂きました
！
https://codeiq.jp/ace/doradora09/
- 12. アジェンダ
• 自己紹介
• CodeIQ コラボ企画
• 問題と解答例
• 回答の傾向
- 18. 【事前準備】
• 以下の 2 社の株価データを取得してくだ
さい。
1. ディー・エヌ・エー (2432.t)
2. グリー (3632.t)
なおデータを取得する期間は 2012 年 1
月 4 日から現在の日付までとします。
- 21. 【課題１】 head 関数を利用
head(dena, 5)
head(gree, 5)
> head(dena, 5)
date open height low close volume adj_close
229 2012-01-04 2321 2325 2285 2292 2077200 2292
228 2012-01-05 2288 2290 2217 2222 2882400 2222
227 2012-01-06 2235 2238 2111 2117 5601200 2117
226 2012-01-10 2092 2099 2000 2027 5049000 2027
225 2012-01-11 2005 2060 1891 1899 9326000 1899
- 22. 【課題１】５行指定で表示
dena[1:5,]
gree[1:5,]
> dena[1:5,]
date open height low close volume adj_close
229 2012-01-04 2321 2325 2285 2292 2077200 2292
228 2012-01-05 2288 2290 2217 2222 2882400 2222
227 2012-01-06 2235 2238 2111 2117 5601200 2117
226 2012-01-10 2092 2099 2000 2027 5049000 2027
225 2012-01-11 2005 2060 1891 1899 9326000 1899
- 23. 【課題 2 】
• 【事前準備】で取得した 2 社のデータの終
値 (close) を時系列でプロットしてくださ
い。
• 補足：
– 可能であれば比較しやすいように図を重ね合わ
せて描画してください
- 26. 【課題 3 】
• データを比較しやすいように 2012 年 1 月
4 日の終値を１として、再度プロットして
ください。
- 30. 【日付追加】
d <- format(dena$date,"%m/%d")
dena.c <- dena$close/dena$close[1]
gree.c <- gree$close/gree$close[1]
par(xaxt="n")
matplot(
y=cbind(dena.c, gree.c),
pch = 1:2, type = "o",
xlab='date' , ylab="per_close", main = 'dena vs gree')
par(xaxt="s")
axis(1,at=1:length(d),labels=d)
- 31. 【日付追加】
d <- format(dena$date,"%m/%d")
dena.c <- dena$close/dena$close[1]
gree.c <- gree$close/gree$close[1]
par(xaxt="n")
matplot(
y=cbind(dena.c, gree.c),
pch = 1:2, type = "o",
xlab='date' , ylab="per_close", main = 'dena vs gree')
par(xaxt="s")
axis(1,at=1:length(d),labels=d)
- 32. 【凡例追加】
d <- format(dena$date,"%m/%d")
dena.c <- dena$close/dena$close[1]
gree.c <- gree$close/gree$close[1]
par(xaxt="n")
matplot(
y=cbind(dena.c, gree.c),
pch = 1:2, type = "o",
xlab='date' , ylab="per_close", main = 'dena vs gree')
par(xaxt="s")
axis(1,at=1:length(d),labels=d)
axis(4,c(tail(dena.c,1),tail(gree.c,1)),c("DeNA","GREE"))
- 33. 【凡例追加】
d <- format(dena$date,"%m/%d")
dena.c <- dena$close/dena$close[1]
gree.c <- gree$close/gree$close[1]
par(xaxt="n")
matplot(
y=cbind(dena.c, gree.c),
pch = 1:2, type = "o",
xlab='date' , ylab="per_close", main = 'dena vs gree')
par(xaxt="s")
axis(1,at=1:length(d),labels=d)
axis(4,c(tail(dena.c,1),tail(gree.c,1)),c("DeNA","GREE"))
- 35. アジェンダ
• 自己紹介
• CodeIQ コラボ企画
• 問題と解答例
• 回答の傾向
- 44. まだまだ受付中！
12/3( 月 ) AM 10:00
までチャレンジ受け付けてますので
是非 CodeIQ にチャレンジしてみてくだ
さい！
- 48. 問題
• 【概要】 R を用いて株価データを取得しプロットする問題です。
株価データの取得には CRAN に登録されている RFinanceYJ パッケ
ージ ( 外部パッ ケージ ) を利用します。
• 【事前準備】 RFinanceYJ パッケージをインストールしてくださ
い。 また RFinanceYJ パッケージの quoteStockTsData を使って
以下の 2 社の株価データを取得してください。
• 1. ディー・エヌ・エー (2432.t) 2. グリー (3632.t) なおデータを取
得する期間は 2012 年 1 月 4 日から現在の日付までとします。
• 【課題１】 【事前準備】で取得した２社のデータをそれぞれ 2012
年 1 月 4 日から 5 件表示して 下さい。データを表示したらデータ
取得から表示までのコードを 提出して下さい。
• 【課題 2 】 【事前準備】で取得した 2 社のデータの終値 (close)
を時系列でプロットしてくだ さい。プロットしたらそのコードを
提出してください。
• 【課題 3 】 データを比較しやすいように 2012 年 1 月 4 日の終値を
１として、再度プロットして ください。プロットしたらそのコー
ドを提出してください。
![【課題１】５行指定で表示
dena[1:5,]
gree[1:5,]
> dena[1:5,]
date open height low close volume adj_close
229 2012-01-04 2321 2325 2285 2292 2077200 2292
228 2012-01-05 2288 2290 2217 2222 2882400 2222
227 2012-01-06 2235 2238 2111 2117 5601200 2117
226 2012-01-10 2092 2099 2000 2027 5049000 2027
225 2012-01-11 2005 2060 1891 1899 9326000 1899](https://image.slidesharecdn.com/codeiqjapanr-121216091720-phpapp01/85/Code-iqxjapanr-22-320.jpg)
![【課題 3 】
matplot(x=as.Date(dena$date),
y=cbind(dena$close/dena$close[1],
gree$close/gree$close[1]),
pch = 1:2, type = "o")](https://image.slidesharecdn.com/codeiqjapanr-121216091720-phpapp01/85/Code-iqxjapanr-27-320.jpg)
![【各軸のタイトル追加】
matplot(x=as.Date(dena$date),
y=cbind(dena$close/dena$close[1],
gree$close/gree$close[1]),
pch = 1:2, type = "o”
xlab='date' , ylab=”per_close", main = 'dena vs gree')](https://image.slidesharecdn.com/codeiqjapanr-121216091720-phpapp01/85/Code-iqxjapanr-29-320.jpg)
![【日付追加】
d <- format(dena$date,"%m/%d")
dena.c <- dena$close/dena$close[1]
gree.c <- gree$close/gree$close[1]
par(xaxt="n")
matplot(
y=cbind(dena.c, gree.c),
pch = 1:2, type = "o",
xlab='date' , ylab="per_close", main = 'dena vs gree')
par(xaxt="s")
axis(1,at=1:length(d),labels=d)](https://image.slidesharecdn.com/codeiqjapanr-121216091720-phpapp01/85/Code-iqxjapanr-30-320.jpg)
![【日付追加】
d <- format(dena$date,"%m/%d")
dena.c <- dena$close/dena$close[1]
gree.c <- gree$close/gree$close[1]
par(xaxt="n")
matplot(
y=cbind(dena.c, gree.c),
pch = 1:2, type = "o",
xlab='date' , ylab="per_close", main = 'dena vs gree')
par(xaxt="s")
axis(1,at=1:length(d),labels=d)](https://image.slidesharecdn.com/codeiqjapanr-121216091720-phpapp01/85/Code-iqxjapanr-31-320.jpg)
![【凡例追加】
d <- format(dena$date,"%m/%d")
dena.c <- dena$close/dena$close[1]
gree.c <- gree$close/gree$close[1]
par(xaxt="n")
matplot(
y=cbind(dena.c, gree.c),
pch = 1:2, type = "o",
xlab='date' , ylab="per_close", main = 'dena vs gree')
par(xaxt="s")
axis(1,at=1:length(d),labels=d)
axis(4,c(tail(dena.c,1),tail(gree.c,1)),c("DeNA","GREE"))](https://image.slidesharecdn.com/codeiqjapanr-121216091720-phpapp01/85/Code-iqxjapanr-32-320.jpg)
![【凡例追加】
d <- format(dena$date,"%m/%d")
dena.c <- dena$close/dena$close[1]
gree.c <- gree$close/gree$close[1]
par(xaxt="n")
matplot(
y=cbind(dena.c, gree.c),
pch = 1:2, type = "o",
xlab='date' , ylab="per_close", main = 'dena vs gree')
par(xaxt="s")
axis(1,at=1:length(d),labels=d)
axis(4,c(tail(dena.c,1),tail(gree.c,1)),c("DeNA","GREE"))](https://image.slidesharecdn.com/codeiqjapanr-121216091720-phpapp01/85/Code-iqxjapanr-33-320.jpg)
