R語言股市可視化相關(guān)矩陣:最小生成樹
原文鏈接:http://tecdat.cn/?p=17835
?
本文在股市可視化中可視化相關(guān)矩陣?:最小生成樹
在本文示例中,我將使用日數(shù)據(jù)和1分鐘數(shù)據(jù)來可視化股票數(shù)據(jù) 。
我發(fā)現(xiàn)以下概念定義非常有用:
?
連通圖:在無向圖中,若任意兩個頂點vivi與vjvj都有路徑相通,則稱該無向圖為連通圖。
強連通圖:在有向圖中,若任意兩個頂點vivi與vjvj都有路徑相通,則稱該有向圖為強連通圖。
連通網(wǎng):在連通圖中,若圖的邊具有一定的意義,每一條邊都對應(yīng)著一個數(shù),稱為權(quán);權(quán)代表著連接連個頂點的代價,稱這種連通圖叫做連通網(wǎng)。
生成樹:一個連通圖的生成樹是指一個連通子圖,它含有圖中全部n個頂點,但只有足以構(gòu)成一棵樹的n-1條邊。一顆有n個頂點的生成樹有且僅有n-1條邊,如果生成樹中再添加一條邊,則必定成環(huán)。
最小生成樹:在連通網(wǎng)的所有生成樹中,所有邊的代價和最小的生成樹,稱為最小生成樹。?

#*****************************************************************
# 加載歷史數(shù)據(jù)
#*****************************************************************
getSymbols(tickers, src = 'yahoo', from = '1970-01-01', env = data, auto.assign =
for(i in ls(data)) data[[i]] = adjustOHLC(data[[i]
# 刪除歷史數(shù)據(jù)很少的樣本
remove.min.history(data)
# 顯示已刪除的
print(setdiff(tickers,names(data$prices)))
?
#*****************************************************************
# 可視化關(guān)聯(lián)矩陣
#*****************************************************************
prices = data$prices
ret = diff(log(prices))
ret = last(ret, 252)
?
plt(ret, 0.5)


?
接下來,讓我們獲取1分鐘的收盤價數(shù)據(jù),并基于最近5天可視化相關(guān)性:
#*****************************************************************
# 加載歷史數(shù)據(jù)
#*****************************************************************
if(!file.exists(filename)) {
data1[[ticker]] = getSymbol.intraday.google(ticker,
#*****************************************************************
# 可視化關(guān)聯(lián)矩陣
#*****************************************************************
print(join(c(
,format(range(index(ret)), '%d-%b-%Y %H-%M')), ' '))
?
plot.cor(ret, 0.5)


?
輔助函數(shù):
#*****************************************************************
#函數(shù)創(chuàng)建相關(guān)矩陣
#*****************************************************************
clncor = function(ret, threshold = 0.5) {
cor(coredata(ret), use='complete.obs',method='pearson')
cor_mat[ abs(cor_mat) < threshold] = 0
#*****************************************************************
# 繪制最小生成樹
#*****************************************************************
plco = function(ho = 0.5) {
cor_mat = clean.cor(ret, threshold
?

最受歡迎的見解
1.R語言動態(tài)圖可視化:如何、創(chuàng)建具有精美動畫的圖
2.R語言生存分析可視化分析
3.Python數(shù)據(jù)可視化-seaborn Iris鳶尾花數(shù)據(jù)
4.r語言對布豐投針(蒲豐投針)實驗進行模擬和動態(tài)
5.R語言生存分析數(shù)據(jù)分析可視化案例
6.r語言數(shù)據(jù)可視化分析案例:探索brfss數(shù)據(jù)數(shù)據(jù)分析
7.R語言動態(tài)可視化:制作歷史全球平均溫度的累積動態(tài)折線圖動畫gif視頻圖
8.R語言高維數(shù)據(jù)的主成分pca、 t-SNE算法降維與可視化分析案例報告
9.python主題LDA建模和t-SNE可視化