지금 상품시장에 투자할 만한가?

RICI History

Sumeun Publishing x zeroone.ai

2018년 7월 6일

최근에 중고서점에서 `짐 로저스의 상품시장에 투자하라’ ¹를 사서 읽고 있다. 첫 번째 장을 읽고 있는 현시점에서, 그리고 미중 무역 전쟁의 여파로 추락하고 있는 주식시장에서, 상품시장에 대안이 될 수 있을까라는 의문이 들었다. 가장 우선 가격을 보자!

로저스가 만들었다는 RICI(Rogers International Commodity Index)을 인터넷에서 검색하니, http://www.rogersrawmaterials.com 에서 지수 자료를 얻을 수 있었다. ²

1998년부터의 자료를 읽어서 그래프를 그려보자!

먼저 필요한 패키지를 불어들이고,

library(dplyr)
library(lubridate)
library(rvest)
library(ggplot2)

1998년부터 올해까지 RICI를 그래프로 그린다.

yrNow <- year(now())
yrs <- 1998:yrNow
tb <- vector("list", length(yrs))
for (i in seq_along(yrs)) {
  yr = yrs[i]
  if (yr == yrNow) {
    src <- read_html(paste0('http://www.rogersrawmaterials.com/monthly-RICI.asp'))
  } else {
    src <- read_html(paste0('http://www.rogersrawmaterials.com/monthly-RICI-', yr, '.asp'))
  }
  
  src %>% html_table(fill=T, header=T) %>% .[[5]] -> datYr
  colnames(datYr)[1] = 'month'
  datYr %>% mutate(year = yr) %>% select(year, month, Index) -> tb[[i]]
}
#str(tb)  
dat <- do.call(rbind, tb)

mm <- unlist(strsplit('January,February,March,April,May,June,July,August,September,October,November,December', split=','))
datMonth <- match(dat$month, mm)
datMonth2 <- as.numeric(ifelse(is.na(datMonth), gsub('/', '', substr(dat$month, 1, 2)), datMonth))
dat$month <- datMonth2
dat$date <- ymd(paste(dat$year, dat$month, "15", sep='-'))
dat$Index <- as.numeric(gsub(',', '', dat$Index))

#dat %>% filter(!is.na(dat$Index)) -> dat

ggplot(dat, aes(x=date, y=Index)) + geom_point() + geom_line() + 
  scale_x_date(date_breaks = '1 years',
               date_labels = '%Y') +
  labs(title='RICI(Rogers International Commodity Index)') +
  theme(axis.text.x=element_text(angle=45,hjust=1))

## Warning: Removed 6 rows containing missing values (geom_point).

## Warning: Removed 6 rows containing missing values (geom_path).

일단 현재 가격이 저점에서 천천히 올라오고 있다. 어쨋든 매우 고평가된 지점은 아닌 것 같다!

그렇다면 로저스가 책을 썼던 2007년 7월은 어떤 지점이었을까? 한 20% 정도 오른 후 꼬꾸라졌구나!!

근데 이 지수를 활용한 펀드에 투자하려면 어떻게 해야 하는거야?

---

1. Rogers(2007). Hot Commodities: How Anyone Can Invest Profitably in the World’s Best Market.↩

2. 다른 사이트(http://markets.businessinsider.com/index/rici , https://www.bloomberg.com/quote/RICIGLTR:IND )에서 자료를 찾을 수 있지만 1998년 자료부터 제공하지는 않는다.↩