Gestire simboli di strumenti in conflitto o non validi in R

Importare e gestire dati finanziari in R

Joshua Ulrich

Quantitative Analyst & quantmod Co-Author and Maintainer

Nomi sintatticamente validi

Nomi validi: lettere, numeri, . e _
Devono iniziare con una lettera o con . seguito da non-numero
Non possono essere parole riservate
Non validi:
- .4times, _one, for

Accedere a oggetti con nomi non sintattici (1)

getSymbols() rende alcuni nomi validi
- Indice S&P 500: "^GSPC"

getSymbols("^GSPC")

"GSPC"

head(GSPC, 3)

           GSPC.Open GSPC.High GSPC.Low GSPC.Close GSPC.Volume GSPC.Adjusted
2007-01-03   1418.03   1429.42  1407.86    1416.60  3429160000       1416.60
2007-01-04   1416.60   1421.84  1408.43    1418.34  3004460000       1418.34
2007-01-05   1418.34   1418.34  1405.75    1409.71  2919400000       1409.71

Accedere a oggetti con nomi non sintattici (2)

Alcuni ticker non sono nomi validi
- Shanghai Stock Exchange Composite Index: "000001.SS"

getSymbols("000001.SS", auto.assign = TRUE)

"000001.SS"

str(000001.SS)

Error: unexpected symbol in "str(000001.SS)"

head(`000001.SS`, n = 3)

            000001.SS.Open   000001.SS.High     000001.SS.Low
2007-01-04         2715.72          2715.72           2715.72
2007-01-05         2641.33          2641.33           2641.33
2007-01-08         2707.20          2707.20           2707.20
           000001.SS.Close 000001.SS.Volume 000001.SS.Adjusted
2007-01-04         2715.72                0            2715.72
2007-01-05         2641.33                0            2641.33
2007-01-08         2707.20                0            2707.20

head(get("000001.SS"), n = 3)

            000001.SS.Open   000001.SS.High     000001.SS.Low
2007-01-04         2715.72          2715.72           2715.72
2007-01-05         2641.33          2641.33           2641.33
2007-01-08         2707.20          2707.20           2707.20
           000001.SS.Close 000001.SS.Volume 000001.SS.Adjusted
2007-01-04         2715.72                0            2715.72
2007-01-05         2641.33                0            2641.33
2007-01-08         2707.20                0            2707.20

Nome valido per un solo strumento

Assegna l’output di getSymbols() a un nome valido
Converti i nomi delle colonne in nomi validi

sse <- getSymbols("000001.SS", auto.assign = FALSE)

colnames(sse) <- paste("SSE", 
                         c("Open", "High", "Low", "Close",    
                           "Volume", "Adjusted"), sep = ".")
head(sse, n = 2)

            SSE.Open    SSE.High     SSE.Low
2007-01-04   2715.72     2715.72     2715.72
2007-01-05   2641.33     2641.33     2641.33
           SSE.Close  SSE.Volume  SSE.Adjusted
2007-01-04   2715.72           0       2715.72
2007-01-05   2641.33           0       2641.33

Crea una mappa simbolo→oggetto R con setSymbolLookup()

setSymbolLookup(SSE = list(name = "000001.SS"),
                  FORD = list(name = "F"))

getSymbols(c("SSE", "FORD"))

"SSE"  "FORD"

head(SSE, n = 2)

               SSE.Open  SSE.High  SSE.Low  SSE.Close  SSE.Volume  SSE.Adjusted
2007-01-04      2715.72   2715.72  2715.72    2715.72           0       2715.72
2007-01-05      2641.33   2641.33  2641.33    2641.33           0       2641.33

head(FORD, n = 2)

           FORD.Open  FORD.High FORD.Low  FORD.Close  FORD.Volume  FORD.Adjusted
2007-01-03      7.56     7.67       7.44       7.51      78652200       6.150263
2007-01-04      7.56     7.72       7.43       7.70      63454900       6.305862

¡Vamos a practicar!

Importare e gestire dati finanziari in R