在R中通过簇绘制OHLC簇的最佳方法

Question

我试图将R中的OHLC图表绘制成一个kmeans集群中的位置。

我在我的数据上创建了一个kmeans集群，并添加了适合我的XTS数据的集群。

                    Open   High     Low   Close ..2
2008-06-25 18:00:00    0 0.0017  0.0000  0.0015   9
2008-06-25 22:00:00    0 0.0102 -0.0045  0.0080   6
2008-06-26 02:00:00    0 0.0014 -0.0002  0.0000   9
2008-06-26 06:00:00    0 0.0005 -0.0003  0.0003   9
2008-06-26 10:00:00    0 0.0016 -0.0025  0.0010   9
2008-06-26 14:00:00    0 0.0010 -0.0011 -0.0007   9

最后一列是它所属的群集。

我试图找出在R中使用OHLC条形图绘制此图并以最后一列分组的最佳方法。

我查看了quantmod和情节概述，但我似乎无法弄清楚如何做到这一点？

Answer 1

尝试类似的东西

s <- get(getSymbols('SPY'))["2012::"]
s$h <- Hi(s) / Op(s) - 1
s$l <- Lo(s) / Op(s) - 1
s$c <- Cl(s) / Op(s) - 1
s$cluster <- as.numeric(kmeans(s[,7:9] , centers = 6)$cluster)
chart_Series(xts(coredata(s)[order(s$cluster),],order.by = index(s))

结果是

显然这只是为了展示。

第二种方法是在情节之上绘制TA

chart_Series(s)
add_TA(Lo(s) * 0.99 , on=1 , type = 'p' , cex = 1.5 , pch = 20 , col = s$cluster)

输出