r-在highchart中自动添加y轴

我在R中使用highcharter包。当我创建highchart对象时，似乎我必须在hc_yAxis函数中添加y轴。比如说

library(highcharter)
library(PerformanceAnalytics)
data(edhec)
R = edhec[, 1:3]
height = 650
columns = ncol(R)
top = 1.1/2.9 * height/(2 + columns)
hc <- highchart(type = "stock")
hc <- hc_yAxis(hc, 
               list(height = height/(2 + columns)), 
               list(height = height/(2 + columns), top = top + height/(1 + columns)), 
               list(height = height/(2 + columns), top = top + 2*height/(1 + columns)))
for(i in 1:columns) {
  hc <- hc_add_series_xts(hc, R[, i], yAxis = i - 1)
}
hc <- hc_scrollbar(hc, enabled = TRUE) %>%
  hc_add_theme(hc_theme_538())

hc

库（highcharter）
库（性能分析）
数据（edhec）
R=edhec[，1:3]
高度=650
列=ncol（R）
顶部=1.1/2.9*高度/（2+柱）
hc现在有一个函数可以创建任意数量的
yAxis
。它名为
create\u yaxis
（您需要下载开发版本）：

库（highcharter）
库（性能分析）
数据（edhec）
R嗨@eric hung。谢谢你指出这一点。我正在开发一个函数，可以自动添加任意数量的
yAxis
。如果我有简单的问题，我会回答的。您好@jbkunst，我如何设置yaxis标题？例如，在
create_yaxis
函数中插入
title=list（text=names（R））
作为参数，不会生成错误，但也不会显示文本。现在不可能，但如果您执行下一步：
axis Hi@jbkunst，则很容易。我试图在上面的评论中执行您的示例，当我导航到Google Dev Tools时收到Highcharts错误18：请求的轴不存在。将序列的xAxis或yAxis属性设置为指向不存在的轴时，会发生此错误。这仍然是有效的解决方法吗？非常感谢。
library(highcharter)
library(PerformanceAnalytics)

data(edhec)
R <- edhec[, 1:3]

hc <- highchart(type = "stock")
hc <- hc_yAxis_multiples(hc, create_yaxis(naxis = 3, heights = c(2,1,1)))

for(i in 1:ncol(R)) {
  hc <- hc_add_series_xts(hc, R[, i], yAxis = i - 1, name = names(R)[i])
}

hc <- hc_scrollbar(hc, enabled = TRUE) %>%
  hc_add_theme(hc_theme_flat())

hc