条件付きで表示/非表示Highcharterのツールチップ

Question

下のシリーズの値に基づいて条件付きでツールヒントを表示/非表示にする単純なHighchart Areaプロットを描画しています（下のケースではz

library(highcharter) 
highchart() %>% 
hc_chart(type = "area", plotBorderWidth = 0.5, plotBorderColor = '#4572A7') %>% # https://gist.github.com/mulhoon/63b5d5a98ef0ab8c2b89 
hc_xAxis(categories = as.character(c(1.00, 2.00, 3.00)), lineWidth = 1, gridLineWidth = 0, minorGridLineWidth = 0) %>% 
hc_xAxis(lineWidth = 1, gridLineWidth = 0, minorGridLineWidth = 0, labels = list(format = '{value}%')) %>% # https://stackoverflow.com/questions/17246187/displaying-percentage-in-y-axis-of-highcharts-column-chart 
hc_add_series(name = 'foo', data = list(list(y = 3, z = 1), list(y = 4, z = 0), list(y = 5, z = 1))) %>% 
hc_tooltip(formatter = "function(){ 

       if (this.point.z == 1) { 
        return 'ON'; 
       } 
      }") %>% 
hc_plotOptions(series = list(marker = list(enabled = 'false', radius = 1, states = list(hover = list(enabled = 'false', radius = .1, color = '#4572A7'))))) 

は基本的に、私がしたいことは次のとおりです：z = 1の値はその後、そうでない場合は表示されません、ツールチップを表示する場合）

以下は私のRコードです。しかし、上記のコードはツールヒントをまったく表示していないため、失敗しています。

上記のツールチップの条件付き表示を実装する方法についてのアイデアはありますか？

ありがとうございます。

Answer 1

私はあなたのニーズに合わせてフォーマッタ引数の後にコードを変更しました。

library(highcharter) 
highchart() %>% 
    hc_chart(type = "area", plotBorderWidth = 0.5, plotBorderColor = '#4572A7') %>% # https://gist.github.com/mulhoon/63b5d5a98ef0ab8c2b89 
    hc_xAxis(categories = as.character(c(1.00, 2.00, 3.00)), lineWidth = 1, gridLineWidth = 0, minorGridLineWidth = 0) %>% 
    hc_xAxis(lineWidth = 1, gridLineWidth = 0, minorGridLineWidth = 0, labels = list(format = '{value}%')) %>% # https://stackoverflow.com/questions/17246187/displaying-percentage-in-y-axis-of-highcharts-column-chart 
    hc_add_series(name = 'foo', data = list(list(y = 3, z = 1), list(y = 4, z = 0), list(y = 5, z = 1))) %>% 
    hc_tooltip(formatter = JS("function(){ 

      if (this.point.z == 1) { 
      return 'ON'; 
      } else { 
       return false; 
      } 
      }")) %>% 
hc_plotOptions(series = list(marker = list(enabled = 'false', radius = 1, states = list(hover = list(enabled = 'false', radius = .1, color = '#4572A7')))))