R：ETF風險評估

       根據道富環球投資管理公司(State Street Global Advisors)的最新數據，2020年流入美國ETF的資金突破5,000億美元大關，較2017年創下的新高紀錄高出400億美元。
      既然ETF受到廣大投資人喜愛，連股神巴菲特都喜歡投資ETF，

那眾多ETF種類包含不同產業別，報酬不同風險也不同，如果能在投資前了解一下報酬風險可以作為投資前的參考。
     這篇就針對標普500(代號：SPY)，費城半導體(代號：SOXX)，羅素2000(代號：IWM)，運輸類(代號：IYT)，太陽能(代號：TAN)來做一下範例。

程式碼如下：
library(quantmod)
library(PerformanceAnalytics)
d_from <- "2020-03-01"
symb <- c("SPY","SOXX","IWM","IYT","TAN")
getSymbols(symb, src="yahoo", from=d_from)
SPY2 <- dailyReturn(Ad(SPY))
SOX2 <- dailyReturn(Ad(SOXX))
IWM2 <- dailyReturn(Ad(IWM))
IYT2 <- dailyReturn(Ad(IYT))
TAN2 <- dailyReturn(Ad(TAN))

m1 <- merge(SPY2, SOX2, IWM2, IYT2, TAN2, all = F)
colnames(m1) <- c("標普500","費城半導體","羅素2000","運輸類","太陽能")
col <- c("red", "blue", "coral", "darkgreen", "brown")
chart.RiskReturnScatter(m1, Rf=0.03/12,
                        colorset = col,
                        main = "Trailing 9-Month Performance")

其中 Rf=.03/12 是 無風險利率/期待的報酬率，是以美國降息前的標準來評估，評估期間從2020/03/01 ~ 2021/01/ 06

輸出如下：

風險回報圖表在相同的 Y階層落點在 X越右邊風險越高

再來計算一下以 216交易日的回報率：

table.AnnualizedReturns(m1, scale = 216, Rf = 0.01/216)

我們可以看到風險最高的太陽能產業，報酬率也最高，在這段期間有211%的報酬率。
標普500 約23%報酬率，費城半導體表現也不錯有75%。

太陽能產業會有這樣的表現我想跟美國總統當選人拜登(Joe Biden)把應對氣候變化視為施政重點，上任後將積極推行各項ESG政策，進一步帶動ESG 類ETF的投資需求。