먼저 Rstudio를 깐다.
이런 화면이 나온다.
자. 엑셀로 저장한 파일을 열어보자. 주의할 점은 디렉토리 경로에 한글이 있으면 열리지 않는다.
먼저 자료를 엑셀로 만들어보자.
수업시간에는 FRED에서 Consumer Price Index for All Urban Consumers: All Items (CPIAUCSL)자료를 가져왔다.
에서 5년치 자료를 엑셀파일로 다운받는다.
엑셀 열어서 쓸데없는 내용들 다 지우고
이런 내용만 남긴다음에 인플레이션을 구한다.
요렇게 구한다음에 복사해서 숫자만 붙이기로 한다.(왜냐? R로 읽을때 결과값을 읽어야지 함수를 읽으면 곤란하다)
자. 엑셀로 저장한 파일을 열어보자. 주의할 점은 디렉토리 경로에 한글이 있으면 열리지 않는다.
(안열리면 경로를 바꾸거나 경로의 이름을 바꾸면 된다.)
이렇게 클릭하면 다음의 화면이 뜬다.
Browse 버튼을 눌러서
파일을 선택하면 불러와진다.
이런 화면이 뜨고우측 하단의 import를 누르면
로 화면이 바뀐다.
좌측 하단의 콘솔 화면에서 명령어를 쳐본다.
어떤 데이터인지 보기 위해서 head () 명령어를 작성한다.
이제 그래프를 그려본다.
우리는 인플레이션의 그래프를 그리고자 하므로
> plot(파일명$인플레이션)으로 만든다.
근데 점점점 모양으로 안이쁘다.
> plot(CPIAUCSL$inflation,main="US inflation",type="l") 으로 바꿔본다
이쁘다.
다시 도트로도 바꿔본다.
>plot(CPIAUCSL$inflation,main="US inflation",type="o")
요래 나온다.
첫번째 실습 끝
두번째 실습을 하기 위해서는 패키지를 인스톨 해야한다.
' > install.packages(xts) 이라고 치면 에러뜬다.
' > install.packages("xts")로 해야 실행된다.
quantmod도 인스톨한다.
여기에서 설치한 패키지를 메모리로 불러와야 하지 않는가.
library 나 require로 불러온다.
oanda에서 goldprice를 몇가지 조건으로 그려보자.
먼저 데이터를 불러온다.
oanda의 glodprice가 어떻게 표기되는지 모르니 일단 검색한다.
구글에서 oanda gold price
이런 화면이 나온다.
gold price가 XAU/USD로 표기됨을 알 수 있다.
자 이제 다시 R_Studio로 와서(우리 지금까지 계속 R_studio로 작업중이었다.)
> getSymbols("XAU/USD",src="oanda")
> head(XAUUSD)
요래뜬다.
> plot(XAUUSD, main="goldprice")
하나씩 조건을 추가해 본다.
> plot(XAUUSD, main="goldprice",subset="2018-01-01/")
> plot(XAUUSD, main="goldprice",subset="2018-01-01/",type="o")
> plot(XAUUSD, main="goldprice",subset="2018-01-01/",type="o",col="red")
> plot(XAUUSD, main="goldprice",subset="2018-01-01/",type="o",col="red",major.ticks="twoweeks")
이렇게 조건을 추가하면서 다양한 그래프로 표현할 수 있게 된다.
실습2 끝
이번에는 애플주가로 실습해보자. AAPL이다.
먼저 애플의 주가를 불러온다.
>getSymbols("AAPL")
[참고로 AAPL 애플주가를 불러오는 출처는 야후파이낸스이다.
퀀트모드의 함수에서 기본으로 불러오는 곳이 야후파이낸스라서 getSymbols출처를 별도로 적지 않으면 야후파이낸스에서 불러왔다고 생각하면 된다.]
이제 애플주가의 차트를 그려본다
> chartSeries(AAPL)
> chartSeries(AAPL,subset="2018/")
> chartSeries(AAPL,subset="2018/",theme=chartTheme("white"))
근데 우리나라의 캔들 표현방식은 색깔이 좀 다르다
그래서 캔들 색도 조정해본다.
> chartSeries(AAPL,subset="2018/",theme=chartTheme("white"),up.col="blue",dn.vol="red",color.vol = F)
(눈치챘는지 모르지만 코드에서 틀린게 있다. dn.vol 로적혀있다. dn.col이 맞다. )
여기에 이동평균선들을 추가해보자.
> addSMA(n=20)
> addEMA(n=20)
2015년부터의 주가를 보자
> chartSeries(AAPL,subset="2015/",theme=chartTheme("white"),up.col="blue",dn.vol="red",color.vol = F)
> addSMA(n=200)
마지막으로 테슬라 주가를 그려보자
> getSymbols("TSLA")
[1] "TSLA"
> chartSeries(TSLA,type="line",name="Tesla Stock",subset="2012/2017",theme=chartTheme("white"),up.col="black")> getSymbols("TSLA")
> addSMA(n=200,col="red")
> addSMA(n=100,col="blue")
이렇게 된다. 오늘 수업 끝