Me pregunto si es posible mostrar tanto la leyenda de la serie como una leyenda de colorAxis usando clases de datos en el mismo gráfico en gráficos altos.

Editar: anteriormente incluí una pregunta. Que ahora creo que es irrelevante para la mía. Pregunta pasada

Actualmente estoy creando un mapa de calor de gráficos altos utilizando clases de datos y una serie de líneas que se superpone en la parte superior. Inicialmente, tenía una serie de líneas, por lo que no era un problema que siempre se mostrara, ya que no está incluida en la leyenda. Pero me han encargado incluir más series de líneas y ahora necesito la funcionalidad anterior.

Me parece que habilitar dataClasses en colorAxis elimina la opción de mostrar una leyenda de serie. Dado que el gráfico muestra tanto el eje de color como la leyenda de la serie al eliminar las clases de datos.

A continuación se muestra un fragmento de mi código. He copiado la función de devolución de llamada de carga de eventos de la pregunta anterior.

Estoy usando el paquete R /versión highcharter_0.9.4 que se basa en HighchartsJS 9.3.1

 hchart(census, "heatmap", hcaes(x = "times", y = "bed_labels", value = "pat_state"), name="occupied") %>% hc_subtitle(text = paste0(display.name," <br> ", unique(daily.string))) %>% hc_tooltip(formatter = fn_tltp, shared=FALSE) %>% hc_colorAxis(dataClasses = color_axis) %>% hc_chart(marginRight = 80, events = list( load = htmlwidgets::JS("function() { console.log(this.colorAxis[0]) console.log(this.colorAxis[0].axisParent) # undefined var chart = this, colorAxis = chart.colorAxis[0].axisParent.element, mainSVG = chart.container.children[0], xPos = chart.plotLeft + chart.plotWidth + 10, yPos = chart.plotTop; mainSVG.appendChild(colorAxis); colorAxis.setAttribute( 'transform','translate(' + xPos + ', ' + yPos + ')' ) }"))) %>% hc_yAxis_multiples( list(title = list(text = "Bed"),categories=p$x$hc_opts$yAxis$categories, gridLineWidth = 0), list(title = list(text = "Waiting Room"), opposite = TRUE)) %>% hc_add_series(waiting_census_daily,hcaes(x=x,y=y),name="waiting",color="black",yAxis=1,type="line", marker = list(radius = 2, lineColor = "#000", fillColor = "#000"))

Puedo intentar crear un reprex, pero realmente solo quiero saber si axisParent todavía existe y, si no, qué objeto puedo usar en su lugar.