Как добавить панель «isSum» в диаграмму Highchart Waterfall в R?

Question

Я следил за этим веб-сайтом, чтобы создать диаграмму водопада в R, используя Highcharts. Но я не могу добавить панель isSum в конце. О том, как это сделать. js легко доступен, но не для R.

Я также попытался добавить столбец в df в конце с именем "isSum" и вставил true / false (после добавления строка накопленной суммы в конце), но это не сработало. Попытка сделать "isSum = T" под опцией hc_series также, но не сработала.

Пример ниже:

df=data.frame(y=c(232,345,544,100),name=c("one","two","three","four"))    

highchart()%>%
  hc_chart(type="waterfall")%>%
  hc_add_series(df)

Вывод сверху:

Answer 1

Мой ответ не идеален, потому что я не программист на R - возможно, это можно сделать лучше. Я не знаю, как определить данные для включения свойства isSum в R, но я знаю, как это сделать в JavaScript.

Я использовал функцию JS () в R, которая позволяет нам вводить JavaScript код и я обновил последнюю точку следующим образом:

library(highcharter)

df=data.frame(y=c(232,345,544,100),name=c("one","two","three","four"))    

highchart()%>%
  hc_chart(type="waterfall", events = list(load = JS("function () {
          this.series[0].points[3].update({
            isSum: true
          });
  }")))%>%
  hc_add_series(df)

---

edit Я понял. Вы можете определить это в своих данных следующим образом:

df=data.frame(y=c(232,345,544,100),name=c("one","two","three","four"),isSum=c(FALSE, FALSE, FALSE, TRUE))