R 財金套件示範

以下示範用R套件來做：

• 下載個股的交易資料
• 畫線圖、加趨勢線
• 下載某一群股票的歷史股價
• 算出某一群股票的報酬率
• 設定投資限制條件
• 畫出效率前緣 (Efficient Frontier)
• 算出最佳投資組合
• 從投資網站下載個股評論
• 對個股評論做情緒分析

---

載入套件

options(digits=4, scipen=100)
rm(list=ls(all=T))
Sys.setlocale('LC_ALL', 'C')
library(fPortfolio)
library(tseries)
library(quantmod)

下載線上交易資料

getSymbols('MSFT',from=as.Date('2016-07-01'),to=as.Date('2017-01-01'))

[1] "MSFT"

畫線圖、加趨勢線

chartSeries(MSFT)

addMACD() ; addBBands() 

下載道瓊成分股的歷史股價

DJIA = c('MMM',  'AXP',  'AAPL', 'BA',  'CAT', 'CVX',
         'CSCO', 'KO',   'DD',   'XOM', 'GE',  'GS',
         'HD',   'IBM',  'INTC', 'JNJ', 'JPM', 'MCD',
         'MRK',  'MSFT', 'NKE',  'PFE', 'PG',  'TRV',
         'UNH',  'UTX',  'VZ',   'V',   'WMT', 'DIS')
dd = as.Date(c('2015-04-01','2017-03-31'))

算出道瓊成分股的報酬率

mx =  sapply(DJIA, function(x) {
  G = getSymbols(x,from=dd[1],to=dd[2],auto.assign=F)
  as.numeric(Delt(G[,6])) })[-1,]
names(mx) = DJIA
ts = as.timeSeries(mx)

設定投資限制條件

cons = c('LongOnly')
spec = portfolioSpec()
setNFrontierPoints(spec) = 25
setSolver(spec) = "solveRquadprog"
frontier = portfolioFrontier(ts, spec, cons)

畫出效率前緣 (Efficient Frontier)

par(cex=0.7)
tailoredFrontierPlot(frontier)

算出最佳投資組合

par(cex=0.8)
weightsPlot(frontier,col=rainbow(length(DJIA)))

從投資網站下載個股評論

#library(devtools)
#install_github("mannau/tm.plugin.sentiment")
#install.package("tm.plugin.webmining")
library(tm.plugin.sentiment)
library(tm.plugin.webmining)
aapl = WebCorpus(GoogleFinanceSource("AAPL"))

對個股評論做情緒分析

aapl <- score(aapl)
sentixts <- metaXTS(aapl)
chartSentiment(sentixts)