如何恢复到旧的highcharter界面？

在R中将我的highcharter软件包更新为0.5.0（即highcharts也更新为v5）后，我的highcharts现在包括四个新按钮（用于在图形上绘制圆圈等）。我如何回到原来的布局

要提供一个JUNST示例

library(dplyr)  
library(highcharter)  
data(stars)

colors <- c("#FB1108","#FD150B","#FA7806","#FBE426","#FCFB8F",
            "#F3F5E7", "#C7E4EA","#ABD6E6","#9AD2E1")

stars$color <- colorize(log(stars$temp), colors)

x <- c("Luminosity", "Temperature", "Distance")  
y <- sprintf("{point.%s:.2f}", c("lum", "temp", "distance"))  
tltip <- tooltip_table(x, y)

hchart(stars, "scatter", hcaes(temp, lum, size = radiussun, color =
color)) %>%  
hc_chart(backgroundColor = "black") %>%  
hc_xAxis(type = "logarithmic", reversed = TRUE) %>%  
hc_yAxis(type = "logarithmic", gridLineWidth = 0) %>%  
hc_title(text = "Our nearest Stars") %>%  
hc_subtitle(text = "In a Hertzsprung-Russell diagram") %>%  
hc_tooltip(useHTML = TRUE, headerFormat = "", pointFormat = tltip) %>%  
hc_size(height = 600)

库（dplyr）
图书馆（高级特许）
数据（星）
颜色%
hc_副标题（text=“在赫兹普朗-罗素图中”）%>%
hc_工具提示（useHTML=TRUE，headerFormat=“”，pointFormat=tltip）%>%
hc_尺寸（高度=600）

导致

鉴于其应类似于第二个示例：

---

我可以通过

hc\u export（enabled=FALSE）

删除导出按钮，但我不知道如何删除这四个按钮。

我也没有默认的新按钮，但根据

hc\u注释选项

控制新按钮的行为：

hc_annotationsOptions(stars, enabledButtons = F)

---

应该足够了。

谢谢您的回复

错误是由该行引起的

选项（highcharter.chart=list（credits=list（enabled=FALSE））

这是在高图表之前运行的

两点：
-可以删除行（默认情况下，信用似乎被禁用）
-在新版本中更改一个选项似乎会与其他默认选项发生冲突。最好的新方法是：

  hcopts <- getOption("highcharter.chart")
  hcopts$credits$enabled <- FALSE
  options(highcharter.chart = hcopts)

---

hcopts我在R3.3.1中使用highcharter包到0.5.0。但是没有四个新按钮。不确定highcharts的版本。奇怪。确保你有highcharter版本。如果问题仍然存在，请尝试使用development/github版本，或者让我们通过github问题进行讨论。@jbkunst感谢您抽出时间。我有最新的版本。错误是由默认选项的更改引起的；下面是我的答案，我需要创建一些（优雅/聪明的）方法来更改默认值而不覆盖其他值（如
knitr:：chunk_opt$set（……）
）。对不起！；）。不要忘记，您可以通过
hc\u credits
启用信用。