将模块加载到r-wrapper中

我在试着重现这个。我对右下角的标签“东京”和“伦敦”感兴趣。显然，我需要像html中所示的那样为series-label.js提供源代码：

如果从html中删除该行，则标签将消失。 如何使用r包装器实现这一点？我不在乎太阳、雪和颜色。就在右边的标签上。 示例代码：

data(citytemp)

hc <- highchart() %>% 
  hc_xAxis(categories = citytemp$month) %>% 
  hc_add_series(name = "Tokyo", data = citytemp$tokyo) %>% 
  hc_add_series(name = "London", data = citytemp$london)

hc

数据（citytemp）
hc%
hc_xAxis（类别=citytemp$月）%>%
hc_添加_系列（name=“Tokyo”，data=citytemp$Tokyo）%>%
hc\U add\u系列（name=“London”，data=citytemp$London）
hc

检查此代码：

library(highcharter)
data(citytemp)
hc <- highchart() %>% 
  hc_xAxis(categories = citytemp$month) %>% 
  hc_add_series(name = "Tokyo", data = citytemp$tokyo) %>% 
  hc_add_series(name = "London", data = citytemp$london) %>% 
  hc_legend(align = "right", verticalAlign = "bottom",
            layout = "horizental",  y = -5) 

hc

库（highcharter）
数据（citytemp）
hc%
hc_xAxis（类别=citytemp$月）%>%
hc_添加_系列（name=“Tokyo”，data=citytemp$Tokyo）%>%
hc\U add\u系列（name=“London”，data=citytemp$London）%>%
hc_图例（align=“right”，verticalAlign=“bottom”，
布局=“水平”，y=-5）
hc

感谢您的帮助。但这只是增加了一个传奇。我需要它，就像图中的例子一样。