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)
你可以告诉我任何设置颜色'平滑过渡 - 顺序调色板的方法,以便用看起来更好的东西代替默认的黑色颜色吗?
我想要一些基于蓝色的东西,从第一个剧情结尾到第三个剧情改变蓝色变化。
谢谢,
答案 0 :(得分: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
色彩图为不同的图表元素提供不同的颜色,例如,当您在同一图表上绘制多个系列时,将资产与索引或对等组进行比较时效果最佳。
使用基本图形无法在R中进行垂直颜色渐变,并且无论如何都不会传达任何信息。