R 绘制非美国股票的烛台图表

我一直在尝试R，因为它似乎很容易创建图表并进行快速数学分析，但我遇到了一个问题，问题是我想用绘图仪绘制数据，但我无法使它与我们以外的股票符号一起工作，问题是，我正在尝试本页的第一个示例，当我尝试添加符号BMV:BIMBOA而不是AAPL时，它将向我发送一个错误，因为“：”

这是我试过的

library(plotly)
library(quantmod)

Symbolname <- "BMV:BIMBOA"

getSymbols(Symbolname, src = "google")
df <- data.frame(Date=index(Symbolname),coredata(Symbolname))
df <- tail(df, 30)

p <- df %>%
  plot_ly(x = ~Date, type="candlestick",
          open = ~Symbolname.Open, close = ~Symbolname.Close,
          high = ~Symbolname.High, low = ~Symbolname.Low) %>%
  layout(title = "Basic Candlestick Chart")

# Create a shareable link to your chart
# Set up API credentials: https://plot.ly/r/getting-started
chart_link = api_create(p, filename="finance/candlestick-basic")
chart_link

这里有几个问题：

getSymbols

的默认模式是通过，通常（通常）是不受欢迎的。由于R通常不喜欢变量名中的冒号（尽管它可以很好地工作），这就复杂了

您使用的

index

和

coredata

（我假设这两个都在

zoo

包中）是不正确的。这两个函数需要一个对象，但您提供的是长度为1的

字符

向量（

“BMV:BIMBOA”

）

（我认为）结果数据中的列名特定于符号，因此未找到

Symbolname.Open

；用实际名称替换它们

让我们绕过副作用，希望能更接近你想要的

library(zoo)
library(plotly)
library(quantmod)
Symbolname <- "BMV:BIMBOA"
mydata <- getSymbols(Symbolname, src = "google", auto.assign = FALSE)
df <- data.frame(Date=index(mydata),coredata(mydata))
df <- tail(df, 30)
p <- df %>%
  plot_ly(x = ~Date, type="candlestick",
          open = ~BMV.BIMBOA.Open, close = ~BMV.BIMBOA.Close,
          high = ~BMV.BIMBOA.High, low = ~BMV.BIMBOA.Low) %>%
  layout(title = "Basic Candlestick Chart")

图书馆（动物园）
图书馆（绘本）
图书馆（quantmod）
Symbolname
`BMV:BIMBOA`
（它存在于您的全球环境中）。（这个问题不是关于
的，而是关于
quantmod
令人沮丧的坚持副作用。你总是可以做
BMVBIMBOA已经试过了问题是转义标志：就像问题中提到的那样，你真的在命令行上包含了反勾号吗？它对我有效。对不起，你能给我举个例子吗关于这个？我尝试了这个，但它不起作用。我得到错误BMVBIMBOA。未找到打开BMVBIMBOA
          open = ~BMVBIMBOA.Open, close = ~BMVBIMBOA.Close,
          high = ~BMVBIMBOA.High, low = ~BMVBIMBOA.Low) %>%
  layout(title = "Basic Candlestick Chart")

library(zoo)
library(plotly)
library(quantmod)
Symbolname <- "BMV:BIMBOA"
mydata <- getSymbols(Symbolname, src = "google", auto.assign = FALSE)
df <- data.frame(Date=index(mydata),coredata(mydata))
df <- tail(df, 30)
p <- df %>%
  plot_ly(x = ~Date, type="candlestick",
          open = ~BMV.BIMBOA.Open, close = ~BMV.BIMBOA.Close,
          high = ~BMV.BIMBOA.High, low = ~BMV.BIMBOA.Low) %>%
  layout(title = "Basic Candlestick Chart")