Смешивание твердомера и колонки на графике с высоким чартером

Question

У меня есть эти два кадра данных

1) t1 (Var1 (числовой), Var2 (строковый), Freq (числовой))

2) pref.media (pref.media (числовой))

У меня есть эти отдельные графики, но я хочу напечатать как две серии на одном графике

1) Столбчатая диаграмма, хорошо

column1 <- highchart() %>%
 hc_add_series(t1$Freq, type = "column") %>%
 hc_xAxis(categories = t1$Var1) %>%
 hc_plotOptions(series = list(showInLegend = FALSE,dataLabels = list(enabled = TRUE, color = t1$Var1)))

2) Сплошная шкалаchart (ok)

gauge1 <- highchart(width = 800, height = 600) %>%
 hc_chart(type = "solidgauge",backgroundColor = "#F0F0F0",marginTop = 50) %>%
 hc_title(text = "Preferencia",style = list(fontSize = "24px")) %>%
 hc_tooltip(borderWidth = 0, backgroundColor = 'none',shadow = FALSE,style = list(fontSize = '16px')) %>%
 hc_pane(startAngle = -90,endAngle = 90) %>%
 hc_yAxis(min = 0,max = 11,lineWidth = 0,tickPositions = list(0,1,2,3,4,5,6,7,8,9,10,11)) %>%
 hc_plotOptions(solidgauge = list(borderWidth = '34px',dataLabels = list(enabled = TRUE, style = list(borderWidth = 3,backgroundColor = 'none',shadow = FALSE, fontSize = '16px',color="#888800")),linecap = 'round',stickyTracking = FALSE)) %>%
 hc_add_series(name = "Preferencia",borderColor = "#000000",data = list(list(color = "#888800"),radius = "100%",innerRadius = "100%",y =  round(pref.media[[1,1]],2)))

3) Смешивание диаграмм (не в порядке, с ошибками)

highchart() %>%
 hc_add_series(t1, "column", hcaes(x = Var1, y = Freq), name = "Preferencia") %>%
 hc_add_series(pref.media, "solidgauge", hcaes(name = "Gauge", y = round(pref.media[[1,1]],2)), name = "Indicador") %>%
 hc_plotOptions(
      series = list(showInLegend = FALSE,pointFormat = "{point.y}%"),
      column = list(colorByPoint = TRUE),
      solidgauge = list(borderWidth = '34px',dataLabels = list(enabled = TRUE),linecap = 'round',stickyTracking = FALSE)) %>% 
 hc_pane(startAngle = -90,endAngle = 90) %>%
 hc_yAxis(title = list(text = "Porcentaje de preferencia"),labels = list(format = "{value}%"), max = 100) %>% 
 hc_xAxis(categories = t1$Var1) %>%
 hc_title(text = "Título") %>%
 hc_subtitle(text = "Subtítulo") 

Я не понимаю последовательность смешивания двух серий.Я попробовал это на примере Дж. Кунста в http://jkunst.com/highcharter/highcharts.html

Спасибо