处理与 R 名称冲突或无效的交易代码

在 R 中导入与管理金融数据

Joshua Ulrich

Quantitative Analyst & quantmod Co-Author and Maintainer

语法有效的名称

有效名称含字母、数字、. 与 _
必须以字母开头，或以 . 开头且下一个不是数字
不能是保留字
无效示例：
- .4times、_one、for

访问非语法名称的对象 (1)

getSymbols() 会使部分名称有效
- 标普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

访问非语法名称的对象 (2)

有些交易代码不是有效名称
- 上证综合指数："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

单个标的的有效名称

将 getSymbols() 输出赋给有效名称
将列名转换为有效名称

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

用 setSymbolLookup() 建立代码到 R 对象的映射

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

Passons à la pratique !

在 R 中导入与管理金融数据