R 如何访问getSymbols返回的LSE数据

我想从伦敦证券交易所的谷歌金融获取OHLC数据。我试过使用：

> require(quantmod)
> getSymbols("LON:DRTY", src="google")
[1] "LON:DRTY"
> head(LON:DRTY)
Error in head(LON:DRTY) : object 'LON' not found

getSymbols

似乎已返回数据，但我无法访问它。如何从返回的对象中实际获取数据

实际上，我想从日本下载数据。例如：“TYO:2501” (). 但是，getSymbols无法在“TYO:2501”、“2501”、“TYO%3A2501”等标记下找到它。我收到“404未找到”或“400错误请求”

> getSymbols("TYO:2502", from="2014-01-01", to="2014-05-03", src="google")

---

在这种情况下，

getSymbols

不会返回语法上有效的名称<代码>：是R中的二进制运算符，用于创建数字序列。因此，当您键入

head（LON:DRTY）

R将查找名为

LON

的对象和名为

DRTY

的对象以创建序列。例如：

> LON <- 1
> DRTY <- 10
> head(LON:DRTY)
[1] 1 2 3 4 5 6

>LON-DRTY头（LON:DRTY）
[1] 1 2 3 4 5 6

我将在将来的版本中修复此问题，但您可以同时使用以下解决方法之一：

> require(quantmod)
> getSymbols("LON:DRTY",src="google")
[1] "LON:DRTY"
> # use backticks to reference the object
> head(`LON:DRTY`)
           LON:DRTY.Open LON:DRTY.High LON:DRTY.Low LON:DRTY.Close LON:DRTY.Volume
2012-08-01          0.43          0.45         0.41           0.44          410093
2012-08-02         41.25         42.75        40.00          41.50          751816
2012-08-03         41.00         44.00        41.00          42.75          582187
2012-08-06         42.00         44.41        42.00          42.50          370042
2012-08-07         42.00         44.00        40.75          42.00         1366845
2012-08-08         42.00         42.50        42.00          42.25          437467
> # manually assign the object to a "valid" name
> LON.DRTY <- getSymbols("LON:DRTY",src="google",auto.assign=FALSE)
> head(LON.DRTY)
           LON:DRTY.Open LON:DRTY.High LON:DRTY.Low LON:DRTY.Close LON:DRTY.Volume
2012-08-01          0.43          0.45         0.41           0.44          410093
2012-08-02         41.25         42.75        40.00          41.50          751816
2012-08-03         41.00         44.00        41.00          42.75          582187
2012-08-06         42.00         44.41        42.00          42.50          370042
2012-08-07         42.00         44.00        40.75          42.00         1366845
2012-08-08         42.00         42.50        42.00          42.25          437467
> # use setSymbolLookup to specify the name
> setSymbolLookup(LON.DRTY=list(name="LON:DRTY",src="google"))
> getSymbols("LON.DRTY")
[1] "LON.DRTY"
> head(LON.DRTY)
           LON:DRTY.Open LON:DRTY.High LON:DRTY.Low LON:DRTY.Close LON:DRTY.Volume
2012-08-01          0.43          0.45         0.41           0.44          410093
2012-08-02         41.25         42.75        40.00          41.50          751816
2012-08-03         41.00         44.00        41.00          42.75          582187
2012-08-06         42.00         44.41        42.00          42.50          370042
2012-08-07         42.00         44.00        40.75          42.00         1366845
2012-08-08         42.00         42.50        42.00          42.25          437467

>需要（quantmod）
>getSymbols（“LON:DRTY”，src=“谷歌”）
[1] “LON:DRTY”
>#使用反勾号引用对象
>头（`LON:DRTY`）
LON:DRTY.打开LON:DRTY.高LON:DRTY.低LON:DRTY.关闭LON:DRTY.音量
2012-08-01          0.43          0.45         0.41           0.44          410093
2012-08-02         41.25         42.75        40.00          41.50          751816
2012-08-03         41.00         44.00        41.00          42.75          582187
2012-08-06         42.00         44.41        42.00          42.50          370042
2012-08-07         42.00         44.00        40.75          42.00         1366845
2012-08-08         42.00         42.50        42.00          42.25          437467
>#手动将对象指定为“有效”名称
>LON.DRTY头（LON.DRTY）
LON:DRTY.打开LON:DRTY.高LON:DRTY.低LON:DRTY.关闭LON:DRTY.音量
2012-08-01          0.43          0.45         0.41           0.44          410093
2012-08-02         41.25         42.75        40.00          41.50          751816
2012-08-03         41.00         44.00        41.00          42.75          582187
2012-08-06         42.00         44.41        42.00          42.50          370042
2012-08-07         42.00         44.00        40.75          42.00         1366845
2012-08-08         42.00         42.50        42.00          42.25          437467
>#使用setSymbolLookup指定名称
>setSymbolLookup（LON.DRTY=list（name=“LON:DRTY”，src=“google”））
>getSymbols（“LON.DRTY”）
[1] “龙·德蒂”
>头部（纵向）
LON:DRTY.打开LON:DRTY.高LON:DRTY.低LON:DRTY.关闭LON:DRTY.音量
2012-08-01          0.43          0.45         0.41           0.44          410093
2012-08-02         41.25         42.75        40.00          41.50          751816
2012-08-03         41.00         44.00        41.00          42.75          582187
2012-08-06         42.00         44.41        42.00          42.50          370042
2012-08-07         42.00         44.00        40.75          42.00         1366845
2012-08-08         42.00         42.50        42.00          42.25          437467

对投票人说：如果你运行代码，你会看到数据实际上是返回的。问题是如何访问这个名字奇怪的对象。关于你的编辑，谷歌不会以提供其他数据的方式提供你正在寻找的数据。看看请参阅页面右侧的链接以下载到电子表格？在屏幕的右侧没有这样的链接