R에서 yahoo finance data를 다운 받는 새로운 방법

[sl100104]

최근 인공지능에 대한 관심이 많다 보니 열심히 python 만을 활용했었는데, 막상 R코드를 제공하는 논문을 읽으면서 R 코드를 조금 변경하려다 보니 yahoo data가 잘 load가 되질 않았다. 그사이 내가 구식이 되었나 보다.

해서 구글을 뒤지니  yfR이라는 패키지가 있다는 걸 알았다.

https://www.r-bloggers.com/2022/03/new-r-package-yfr/

다음 코드 처럼 SNP500 data를 구해보고 그래프도 그려보자. 

install.packages('yfR')

library(yfR)
library(ggplot2)

# fetch data
df<- yf_get("^GSPC", 
           first_date = as.Date('1995-01-01'),
           last_date = as.Date('2022-01-01'),
           freq_data = 'monthly')
head(df)

SNP_D= df$ref_date
head(SNP_D)

SNP_P=df$price_adjusted
head(SNP_P)

plot(SNP_D, SNP_P, type='l',lwd=1)

ggplot(data=df, aes(x=ref_date, y=price_adjusted, group=1)) + geom_line()+ geom_point()