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:如何設置連續的顏色
我想要一些基於藍色的東西,並改變從第一個小區到第三個小區的藍色變化。
謝謝,
這[有關色輪的帖子](http://www.stubbornmule.net/2011/11/more-colour-wheels/)可能(或可能不會)有所幫助。 – seancarmody