2012-08-23 77 views
1
require(quantmod) 
require(PerformanceAnalytics) 

getSymbols(c('SP500', 'WAAA', 'WBAA'), src = 'FRED', from = '1950-01-01') 
X <- na.omit(merge(to.weekly(SP500), WAAA, WBAA)) 

dWAAA <- diff(WAAA/100, 1) 
dWBAA <- diff(WBAA/100, 1) 

D <- 20 

dP.WAAA <- - D * dWAAA 
dP.WBAA <- - D * dWBAA 

charts.PerformanceSummary(p = .99, R = dP.WAAA['1990-01-01/2012-08-17'], 
          methods = 'ModifiedES', width = 48) 
charts.PerformanceSummary(p = .99, R = dP.WBAA['1990-01-01/2012-08-17'], 
          methods = 'ModifiedES', width = 48) 

你能告訴我任何方式來設置顏色的平滑過渡順序調色板,以便用一些看起來更好的東西來代替默認的黑色嗎?charts.PerformanceSummary:如何設置連續的顏色

我想要一些基於藍色的東西,並改變從第一個小區到第三個小區的藍色變化。

謝謝,

+0

這[有關色輪的帖子](http://www.stubbornmule.net/2011/11/more-colour-wheels/)可能(或可能不會)有所幫助。 – seancarmody

回答

4

請參閱?chart.TimeSeries。我相信你想要的選項可能:

element.color # for the boxes, axes, etc 
# and 
colorset # for the actual chart lines 
# try 
colorset = 'darkblue' 
# or 
colorset = 'lightblue' 
# as an extra argument to charts.PerformanceSummary 

的colorsets提供不同的圖表元素不同的顏色,當你繪製多個系列相同的圖表上,以資產比較的指數最好的工作或者一個對等組,例如。

R中的垂直色彩漸變不可能使用基礎圖形,也不會傳達任何信息。