Highcharter - 添加多個文本註釋

我有一個堆積列圖，我需要每列下方的文本註釋。我只找到了添加一個註釋的方法。添加第二個註釋會產生錯誤All arguments must be named list。可悲的是，我知道如何使用hc_annotations函數。Highcharter - 添加多個文本註釋

這裏是一個小工作示例和代碼位我想：

hc <- highchart() %>% 
    hc_chart(type = "column") %>% 
    hc_plotOptions(column = list(stacking = "normal")) %>% 
    hc_title(text = "Plot with Annotations", useHTML = TRUE) %>% 
    hc_yAxis(title = "") %>% 
    hc_xAxis(title = "") %>% 
    hc_xAxis(categories = c("A", "B", "C", "D", "E")) 

hc <- hc %>% 
    hc_add_series(name = "S1", data = c(5, 1, 2, 4, 5), 
      dataLabels = list(format='{point.y:,.1f}', align = "center", enabled = TRUE)) 

hc <- hc %>% 
    hc_add_series(name = "S2", data = c(-1, -4, 3, -2, -4), 
      dataLabels = list(format='{point.y:,.1f}', align = "center", enabled = TRUE)) 


##try to add annotations 

#1 
hc <- hc %>% 
    hc_annotations(list(xValue = 0, yValue = -2, title = list(text = '-6 pp'))) 
hc <- hc %>% 
    hc_annotations(list(xValue = 1, yValue = -8, title = list(text = '-5 pp'))) 

#2 - basically the same as #1 
hc <- hc %>% 
    hc_annotations(list(xValue = 0, yValue = -2, title = list(text = '-6 pp'))) %>% 
    hc_annotations(list(xValue = 1, yValue = -8, title = list(text = '-5 pp'))) 

#3 
hc <- hc %>% 
    hc_annotations(list(list(xValue = 0, yValue = -2, title = list(text = '-6 pp')), 
         list(xValue = 0, yValue = -8, title = list(text = '-5 pp'))) 
        ) 

    hc

我只是在這裏用了兩個註解展示。在我最後的代碼中需要每列下面的註釋。

來源

2017-07-19 Martin G.

這是一個已知的問題，它的解決與下一個功能：使用

hc_add_annotation
hc_add_annotations

例子：

hc %>% 
    hc_add_annotation(xValue = 0, yValue = -2, title = list(text = '-6 pp')) %>% 
    hc_add_annotation(xValue = 1, yValue = -4.5, title = list(text = '-5 pp')) 

hc %>% 
    hc_add_annotations(
    list(
     list(xValue = 0, yValue = -2, title = list(text = '-6 pp')), 
     list(xValue = 1, yValue = -4.5, title = list(text = '-5 pp')) 
    ) 
    )

甚至更好：

df <- data_frame(
    xValue = c(0, 1), 
    yValue = c(-2, -4.5), 
    title = c("-6pp", "-5pp") 
) 

df <- df %>% 
    mutate(title = map(title, function(x) list(text = x))) 

df 

#> # A tibble: 2 x 3 
#> xValue yValue  title 
#> <dbl> <dbl>  <list> 
#> 1  0 -2.0 <list [1]> 
#> 2  1 -4.5 <list [1]> 

hc %>% 
    hc_add_annotations(df)

參考：https://github.com/jbkunst/highcharter/issues/171

來源

2017-07-20 04:51:19 jbkunst

太謝謝你了！ –

Highcharter - 添加多個文本註釋

回答

相關問題