[R 연습] 한국과 미국의 주요 주가지수를 추종하는 ETF들의 누적 수익률 그래프 그리기

문제

한국의 주요 주가지수로는 KOSPI 200과 KOSDAQ 150이 있습니다. 미국의 경우 S&P 500과 Nasdaq 100이 주요 지수입니다. 이들 4가지 지수를 추종하는 ETF 상품으로 각각 KODEX 200, KODEX 코스닥 150, SPY, QQQ를 들 수 있습니다. 이 ETF들의 누적 수익률 그래프를 그려 보세요.

 

코드

library(tidyr) ## for tribble()
library(quantmod)  ## for getSymbols()
library(PerformanceAnalytics)  ## for Return.calculate()

# Map Yahoo Finance ticker names and legends.
ticker_map <- tribble(
  ~ticker, ~name,
  "069500.KS", "Kodex.Kospi200",
  "229200.KS", "Kodex.Kosdaq150",
  "SPY", "US.SnP500",
  "QQQ", "US.Nasdaq100"
  )

# Get daily stock prices from Yahoo Finance.
getSymbols(ticker_map$ticker, src = "yahoo")

# Merge stock prices by dates and set column names
prices <- do.call(cbind,
                 lapply(ticker_map$ticker, function(x) Ad(get(x)))) %>%
  setNames(ticker_map$name)

# Calculate daily returns and drop NAs.
rets <- Return.calculate(prices) %>% na.omit()

# Draw a cumulative return chart.
chart.CumReturns(rets, legend.loc = "topleft")

 

결과