3

我正在尝试在 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 和情节概述，但我似乎无法弄清楚如何做到这一点？

4

1 回答 1

3

尝试类似的东西

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)

和输出

在此处输入图像描述

于 2013-07-02T14:51:24.110 回答