title: R Highcharter: tooltip customization
body: <p>I created a chart using highcharter in a shiny dashboard and I am trying to customize the tooltip. The chart is combined line and scatter plot. I would like it to do the following:</p>
  
  <p>1) Have a single box for hover information (it currently has one for the line and one for scatter)</p>
  
  <p>2) Be able to use different column of information that is not used in the series x or y values</p>
  
  <p>I would like the tooltip to display the following information (whether I hover over the scatter point or line) for each particular x-axis value.</p>
  
  <p><strong>Overall</strong></p>
  
  <p>Mean: 2 <em>[Mean: data$avghours]</em></p>
  
  <p>Dog: 1 <em>[data$animal: data$hours]</em></p>
  
  <p>Below is the example code I've written that demonstrates my problem:</p>
  
  <pre><code>library (shiny)
  library (shinydashboard)
  library (highcharter)
  
  
  header &lt;- dashboardHeader(title = "Example")
  
  body &lt;- dashboardBody(
  
    fluidRow(
      box(title = "example", status = "primary", solidHeader = TRUE, 
          highchartOutput("chart")
      )
     )
  )
  
  sidebar &lt;- dashboardSidebar()
  
  ui &lt;- dashboardPage(header, sidebar, body)
  
  server &lt;- function(input, output) {
  
    date &lt;- c(1,2,3,4,5,6,7,8,9,10)
    hours &lt;- c(1,5,4,1,6,5,7,5,4,3)
    avghours &lt;- c(2,2,2,3,3,3,2,2,2,2)
    animal &lt;- c("dog","cat","cat","cat","cat","cat","cat","cat","dog","dog")
    data &lt;- data.frame(date,hours,avghours,animal)
  
    output$chart &lt;- renderHighchart({
  
      highchart() %&gt;%
        hc_add_series(name = "Shipments", data=data$hours, type = "scatter", color = "#2670FF", marker = list(radius = 2), alpha = 0.5) %&gt;%
        hc_add_series(name = "Rolling Mean", data=data$avghours, color = "#FF7900") %&gt;%
        hc_yAxis(min = 0, title = list(text = "Hours")) %&gt;%
        hc_tooltip(crosshairs = TRUE)
  
    })
  
  }
  
  shinyApp(ui, server)
  </code></pre>