5

私は R の初心者であり、あなたの Web サイトを使用することは非常に役に立ちました。残念ながら、私はコードに 2 日間苦労しているので、いくつか質問したいと思います。PDFシートに入れるための素敵なグラフを作成しようとしていますが、使用しているすべてのパッケージでほとんど問題がありません. 私が達成したいのは、3 つのグラフと 1 つの相関テーブルを含む 1 つの PDF シートを作成することです。以下は、私がやりたいことと非常によく似た、私が作成した例ですが、変更したいことがいくつかあります。グラフにはquantmodでchartSeriesを使用しており、テキストプロットを使用しているテーブルにはチャートシリーズを使用しています。

いくつかの質問:

  1. グラフの右上隅にある日付を削除することはできますか?
  2. テキスト Last xxxx (緑のシリーズ テキスト) の代わりに、シリーズ自体の名前 (MSFT など) を取得したいのですが、それは可能ですか?
  3. Return、Date など、軸に名前を付けるにはどうすればよいですか?
  4. Cumulative Difference グラフでは addVo() を使用しており、その関数はこの素晴らしい barPlot を提供します。他のグラフでは addVo() を使用していませんが、addTA と type='h' だけを使用すると、バー/ヒストグラム プロットの違いがわかります。addTA を使用して addVo と同じプロットを取得することは可能ですか?
  5. 相関表をより適切に適合させる方法や、より専門的に行う方法はありますか。多分別の機能が良いですか？

一番、

OTB

install.packages("quantmod")
install.packages("gplots")
library(quantmod)
library(gplots)

#setwd("..........")

getSymbols("MSFT")
getSymbols("AAPL")
getSymbols("COKE")
getSymbols("PEP")

#Get the return
MSFT.Return <- diff(MSFT)/lag(MSFT)
AAPL.Return <- diff(AAPL)/lag(AAPL)
COKE.Return <- diff(COKE)/lag(COKE)
PEP.Return <- diff(PEP)/lag(PEP)

#Get the return for last two months and only get close price return.
#because in my data I only have the close price. 
MSFT.Close <- MSFT.Return['2012-06-01::2012-07-27', 'MSFT.Close']
AAPL.Close <- AAPL.Return['2012-06-01::2012-07-27', 'AAPL.Close']
COKE.Close <- COKE.Return['2012-06-01::2012-07-27', 'COKE.Close']
PEP.Close <- PEP.Return['2012-06-01::2012-07-27', 'PEP.Close']

pdf(sprintf("%s.pdf","ExampleGraph"), width=11.69, height=8.27)

layout(matrix(1:8, nrow=4)) 

#Get the difference in return
techDifference <- MSFT.Close - AAPL.Close
bevDifference <- COKE.Close - PEP.Close

#Rename columns
colnames(MSFT.Close)[1] <- "MSFT"
colnames(AAPL.Close)[1] <- "AAPL"
colnames(techDifference)[1] <- "Difference"

colnames(COKE.Close)[1] <- "COKE"
colnames(PEP.Close)[1] <- "PEP"
colnames(bevDifference)[1] <- "Difference"

#Combine into two tables
tech <- cbind(MSFT.Close,AAPL.Close,techDifference)
bev <- cbind(COKE.Close,PEP.Close,bevDifference)

#Plot charts
chartSeries(tech, order=1,up.col='green', name='MSFT & AAPL', layout=NULL,
TA=c("addTA(tech,order=2,on=1,layout=NULL);
addTA(tech$Difference,legend='Difference',type='h',layout=NULL)"))

chartSeries(bev, order=1,up.col='green', name='COKE & PEP', layout=NULL,
TA=c("addTA(bev,order=2,on=1,layout=NULL);
addTA(bevDifference$Difference,legend='Difference',type='h',layout=NULL)"))

#Take the cumulative difference for each sector 
techCumulative <- cumsum(abs(techDifference))
bevCumulative <- cumsum(abs(bevDifference))
diffCumulative <- techCumulative - bevCumulative 

#Rename columns
colnames(techCumulative)[1] <- "Tech"
colnames(bevCumulative)[1] <- "Beverage"
#If I set the name as Volume, I can use addVo() and get nice barplot.
#Problem with that is the legend name will be Volume but I would like to
#have it Difference and of course I'm using wrong column name. 
colnames(diffCumulative)[1] <- "Volume"

#Combine into one table
cumulative <- cbind(techCumulative,bevCumulative,diffCumulative)

#Plot chart
chartSeries(cumulative,order=1,up.col='green', name='Cumulative Difference', layout=NULL,
TA=c("addTA(cumulative,order=2,on=1,layout=NULL)", addVo()))

#Get the correlation matrix
correlationTable <- cbind(tech[,1:2],bev[,1:2])
correlation <- cor(correlationTable)
corTable <- as.table(correlation)
corrFormatted <- formatC(corTable, format = "f", digits = 3)
textplot(corrFormatted,valign="top",col.data=colors()[300],
col.rownames=colors()[300],col.colnames=colors()[300])
title("Correlation",cex.main=2.5,col.main=colors()[300])

dev.off()
4

1 に答える 1

3

いくつかの良い質問。

Q1: いいえ、次のquantmod:::chartSeries.chobコードがあります:

old.adj <- par('adj')
par('adj'=0)
do.call('title',list(x@name, col.main=x@colors$fg.col))
par('adj'=1)
do.call('title',list(paste('[',start(xx),'/',end(xx),']', sep='')
                  ,col.main=x@colors$main.col))
par('adj'=old.adj)

つまり、start(xx)/end(xx) ビットはハードコーディングされています。

Q2. 繰り返しますが、ハードコードされているようです (同じ関数):

if(x@type=='line') {
    lines(x.pos,Closes,col=x@colors$up.col,type=x@line.type)
    main.key <- c(list(list(legend=
                       paste('Last',last(Closes)),
                       text.col=x@colors$up.col)),main.key)
}

(Q3/Q4/Q5 に役立つソース コードの調査では何も見つかりませんでした。申し訳ありません)

于 2012-07-31T00:26:23.150 に答える