Activando BatchGetSymbols y DT

Para este ejemplo, utilizaremos los paquetes BatchGetSymbols y DT, los activaremos mediante la función library.

1. Importando la base de datos de la lista de stocks disponibles en Yahoo Finance

stocks <- read.csv("https://cghv94.github.io/yahoo-stock-list.csv")
head(stocks) #Se ven las primeras filas de stocks
##   ticker                                    name exchange
## 1   OEDV Osage Exploration and Development, Inc.      PNK
## 2   AAPL                              Apple Inc.      NMS
## 3    BAC             Bank of America Corporation      NYQ
## 4   AMZN                        Amazon.com, Inc.      NMS
## 5      T                               AT&T Inc.      NYQ
## 6   GOOG                           Alphabet Inc.      NMS
##                         category country
## 1                                    USA
## 2           Electronic Equipment     USA
## 3             Money Center Banks     USA
## 4    Catalog & Mail Order Houses     USA
## 5    Telecom Services - Domestic     USA
## 6 Internet Information Providers     USA

2. Frecuencias absolutas

frecuencias_absolutas<-data.frame(table(stocks$category))
datatable(frecuencias_absolutas)

3. Frecuencias absolutas acumuladas

absolutas_acumuladas<-transform(frecuencias_absolutas, FreqAc = cumsum(Freq))
datatable(absolutas_acumuladas)

4. Frecuencias relativas

relativas <- transform(frecuencias_absolutas, FreqAc = cumsum(Freq), FreqRel = prop.table(Freq))
datatable(relativas)

5. Frecuencias relativas acumuladas

relativas_acumuladas <- transform(frecuencias_absolutas, FreqAc = cumsum(Freq), FreqRel = prop.table(Freq), FreqRelAc = cumsum(prop.table(Freq)))
datatable(relativas_acumuladas)

6. Tabla de frecuencias en un sólo paso

tabla_frecuencias <- transform(frecuencias_absolutas, FreqAc = cumsum(Freq), FreqRel = prop.table(Freq), FreqRelAc = cumsum(prop.table(Freq)))
colnames(tabla_frecuencias) <- c("Categoría", "Absoluta", "Abs. Acumulada", "Relativa", "Rel. Acumulada")
datatable(tabla_frecuencias)

7. Obteniendo una base de datos de Yahoo Finance

datos <- BatchGetSymbols(tickers = "BTC-USD", first.date = "2014-09-15", last.date = Sys.Date(), freq.data = "daily", cache.folder = file.path(tempdir(), "BGS_Cache"))
## 
## Running BatchGetSymbols for:
##    tickers =BTC-USD
##    Downloading data for benchmark ticker
## ^GSPC | yahoo (1|1) | Not Cached | Saving cache
## BTC-USD | yahoo (1|1) | Not Cached | Saving cache - Got 100% of valid prices | Got it!
bitcoin<-data.frame(datos$df.tickers)
datatable(bitcoin)

8. Actividad propuesta

Ahora que conoces qué stocks están disponibles en Yahoo Finance, selecciona un ticker e importa los datos de Yahoo Finance con el método anterior.

Esta obra fue generada mediante R en March 17, 2021 y forma parte de las actividades realizadas en las materias de Estadística y Taller IV, Facultad de Economía, UNAM.
Esta obra está bajo una licencia de Creative Commons Reconocimiento-NoComercial-CompartirIgual 4.0 Internacional. Creative Commons (CC).Licencia de Creative Commons