¿Cómo Descargar Datos económicos en R?

👉🏻👉🏻 La descarga de datos económicos y financieros para creación de nuestros modelos estadísticos,estudios o creación de estrategias de trading es el primer paso que necesitamos,y muchas veces tenemos dudas de donde obtenerlos.

Hay varios sitios donde se pueden descargar datos, aunque si es cierto que en muchas páginas se tienen limitaciones,ya que por ejemplo no siempre tendrás los datos actulizados, y otras veces no tendrás quizá el número de datos que necesitas etc.

Igualmente puedes encontrar sitios donde sí hay datos de calidad y muy útiles tanto para descarga en archivos excel,csv etc cómo para uso directo en R studio.

😊 Aquí explico algunas de las páginas y paquetes que yo más uso. Entre ellos están:

1. OANDA

2.FRED(Reserva Federal)

3 Yahoo Finance

4. Quandl

En siguiente vídeo puedes ver ejemplos y las funciones para descargarlos. Y más abajo dejo el código por si quieres copiarlo 🙏👇👇

###### PAGINAS Y PAQUETES PARA DESCARGAR DATOS FINANCIEROS EN R


 # Quantmod --- Yahoo finance /Oanda/ GoogleFinance 
 # FRED
 # Quandl
 # fIMport

  #wbstats  --- Datos del Banco Mundial


#install.packages("quantmod")
library(quantmod)

#install.packages("tseries")
library(tseries)

#install.packages("fImport")
library(fImport)


#install.packages("Quandl")

library(Quandl)



### DATOS DE OANDA


getFX(c("EUR/USD","GBP/USD")) ## diarios 

plot(EURUSD,type="l") 


#### RESERVA FEDERAL FRED

#?getSymbols

getSymbols("UNRATE",src="FRED")   #tasa de desmepleo EEUU

getSymbols("EXUSEU",src="FRED")   #EURSUD mensual

getSymbols("INDPRO",src="FRED")  #Industrial Production Index

getSymbols("DEXUSEU",src="FRED")



desempleo=UNRATE["2010-01::2019-12"]

EUR=EXUSEU["2010-01::2019-12"]
plot(EUR,type="l")


#?get.hist.quote



### Datos de YAHOO FINANCE


IBEX=get.hist.quote("^IBEX",quote="Close",start = "2019-01-07",end="2020-01-07")

plot(IBEX,type="l")

CAC40=get.hist.quote("^FCHI",quote="Close",start = "2019-01-07",end="2020-01-07")

DAX=get.hist.quote("^GDAXI",quote="Close",start = "2019-01-07",end="2020-01-07")

FTSE=get.hist.quote("^FTSE",quote="Close",start = "2019-01-07",end="2020-01-07")

SWISS=get.hist.quote("^SSMI",quote="Close",start = "2019-01-07",end="2020-01-07")

BELG=get.hist.quote("^BFX",quote="Close",start = "2019-01-07",end="2020-01-07")
DOW=get.hist.quote("^DJI",quote="Close",start = "2019-01-07",end="2020-01-07")
NASDAQ=get.hist.quote("^NDX",quote="Close",start = "2019-01-07",end="2020-01-07")
NIKKEI=get.hist.quote("^N225",quote="Close",start = "2019-01-07",end="2020-01-07")
SINGAPUR=get.hist.quote("^STI",quote="Close",start = "2019-01-07",end="2020-01-07")
HONG=get.hist.quote("^HSI",quote="Close",start = "2019-01-07",end="2020-01-07")
SP500=get.hist.quote("^GSPC",quote="Close",start = "2019-01-07",end="2020-01-07")
STOXX50=get.hist.quote("^STOXX50E",quote="Close",start = "2019-01-07",end="2020-01-07")
HOLANDA<- get.hist.quote("^AEX",quote="Close",start = "2019-01-07",end="2020-01-07")


###

CAC40=getSymbols("^FCHI",quote="Close",from = "2018-01-13")
CAC40= FCHI[,4]

plot(CAC40)

getSymbols("^GDAXI",quote="Close",from = "2018-01-13")
DAX= GDAXI[,4]




getSymbols("^SSMI",quote="Close",from ="2018-01-13")
SWISS = SSMI[,4]


getSymbols("^IBEX",quote="Close",from = "2018-01-13")
IBEX= IBEX[,4]


getSymbols("^DJI",quote="Close",from ="2018-01-13")
DOW= DJI[,4]

getSymbols("^NDX",quote="Close",from = "2018-01-13")
NASDAQ=NDX[,4]

getSymbols("^N225",quote="Close",from ="2018-01-13")
NIKKEI=N225[,4]

getSymbols("^STI",quote="Close",from = "2018-01-13")
SINGAPUR=STI[,4]

getSymbols("^HSI",quote="Close",from = "2018-01-13")
HONG=HSI[,4]

plot(HONG,type="l")
HONG1=getSymbols("^HSI",quote="Close",from ="2018-01-13")

getSymbols("^AEX",quote="Close",from ="2018-01-13")
HOLANDA=AEX[,4]


#### DESCARGA CON QUANDL


Quandl("ODA/POLVOIL_USD")