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)

你能告诉我任何方法来设置颜色的平滑过渡顺序调色板，以便用看起来更好的东西替换默认的黑色吗？

我想要一些基于蓝色的东西，并且从第一个情节结束到第三个情节开始改变蓝色品种。

谢谢，

4

1 回答 1

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 中的垂直色带无法使用基本图形实现，并且无论如何都不会传达任何信息。

于 2012-08-23T12:06:08.727 回答