4

会社の色を使用してRでグラフを作成したいと思います。これは、すべてのチャートの背景を水色にする必要があることを意味しますが、プロット領域は白にする必要があります。私は答えを探していましたが、四角形を描くことで（ほぼ）うまくいくことがわかりました。ただし、プロット領域は白くなり、グラフは表示されなくなりました。これは可能ですか？

getSymbols('SPY', from='1998-01-01', to='2011-07-31', adjust=T)

GRAPH_BLUE<-rgb(43/255, 71/255,153/255)
GRAPH_ORANGE<-rgb(243/255, 112/255, 33/255)
GRAPH_BACKGROUND<-rgb(180/255, 226/255, 244/255)

par(bg=GRAPH_BACKGROUND)

colorPlottingBackground<-function(PlottingBackgroundColor = "white"){
  rect(par("usr")[1], par("usr")[3], par("usr")[2], par("usr")[4], col ="white")
}

plot.xts(SPY, col=GRAPH_BLUE)
colorPlottingBackground()
4

3 に答える 3

1

plot.xtsこれは、線をプロットpanel.firstする前に四角形を描画する別の方法です。

library(quantmod)
getSymbols('SPY', from='1998-01-01', to='2011-07-31', adjust=T)

GRAPH_BLUE<-rgb(43/255, 71/255,153/255)
GRAPH_BACKGROUND<-rgb(180/255, 226/255, 244/255)
par(bg=GRAPH_BACKGROUND)
white.rect=function() do.call(rect,as.list(c(par()$usr[c(1,3,2,4)],col="white")))
plot.xts(SPY,panel.first=white.rect())

col=GRAPH_BLUEこれは、@plannapus によって指摘された問題には対処していません。

于 2013-10-08T12:30:24.347 に答える