使用 R 在 Highcharter 中添加標志

Question

我正在嘗試使用 R 中的 highcharter 庫復制上圖。 我將其用作 API - 參考 [https://codepen.io/pen/]

這是我的數據的 dput()

dput(country_totals2)
structure(list(country_name = c("Norway", 
"United States", "Germany", "Canada", "Austria"), level = c("Total", 
"Total", "Total", "Total", "Total"), `Total net production` = c(69212.347, 
81967.627, 571799.713, 551685.823, 280234), Imports = c(21635.908, 
11573.411, 31701.359, 12826.095, 47179), Exports = c(4308.347, 
25480.503, 80187.327, 76094.985, 3270), `Energy absorbed by pumping` = c(1347.901, 
1372.884, 8347.706, 7331.317, 2233), `Energy supplied` = c(85192.007, 
66687.651, 514966.039, 481085.616, 321910)), row.names = c(NA, 
-5L), class = c("tbl_df", "tbl", "data.frame"))

下面是我的 R 代碼 -

highchart() %>% 
  hc_chart(type = "column",
           inverted = TRUE,
           polar = TRUE) %>% 
  hc_plotOptions(column = list(stacking = "normal")) %>% 
  hc_xAxis(categories= list('Norway <span class="f16"><span id="flag" class="flag no">' ,
           'United States <span class="f16"><span id="flag" class="flag us">' ,
           'Germany <span class="f16"><span id="flag" class="flag de">' ,
           'Canada <span class="f16"><span id="flag" class="flag ca">' ,
           'Austria <span class="f16"><span id="flag" class="flag at">' ,
             '</span></span>')) %>% 
  hc_yAxis( tickLength = 0,
            gridLineColor = 'transparent'
  ) %>% 
  hc_xAxis( tickLength = 0,
            gridLineColor = 'transparent'
  )%>% 
  hc_add_series( data = country_totals2$Imports) %>% 
  hc_add_series( data = country_totals2$Exports) %>% 
  hc_add_series(data = country_totals2$`Energy absorbed by pumping`) %>% 
  hc_add_theme(hc_theme_ffx())

該代碼工作正常，但未出現“ hc_xAxis ”命令中指示的國家/地區標志。

我應該如何修改hc_xAxis命令中的 JS/HTML 代碼以使標志出現在 R 中？

Answer 1

原始極坐標圖可在此處獲得。
深入研究代碼，可以找到有關標志服務的以下幾行：

<!-- Flag sprites service provided by Martijn Lafeber,
    https://github.com/lafeber/world-flags-sprite/blob/master/LICENSE -->
<link rel="stylesheet" href="https://github.com/downloads/lafeber/world-flags-sprite/flags16.css" />

需要使用htmlwidgets::prependContent將其添加到 highchart plot 前面。

library(highcharter)
library(purrr)
library(htmlwidgets)
library(htmltools)

country_totals2 <- structure(list(country_name = c("Norway", 
"United States", "Germany", "Canada", "Austria"), level = c("Total", 
"Total", "Total", "Total", "Total"), `Total net production` = c(69212.347, 
81967.627, 571799.713, 551685.823, 280234), Imports = c(21635.908, 
11573.411, 31701.359, 12826.095, 47179), Exports = c(4308.347, 
25480.503, 80187.327, 76094.985, 3270), `Energy absorbed by pumping` = c(1347.901, 
1372.884, 8347.706, 7331.317, 2233), `Energy supplied` = c(85192.007, 
66687.651, 514966.039, 481085.616, 321910)), row.names = c(NA, 
-5L), class = c("tbl_df", "tbl", "data.frame"))

p <- highchart() %>% 
  hc_chart(type = "column",
           inverted = TRUE,
           polar = TRUE) %>% 
  hc_plotOptions(column = list(stacking = "normal")) %>% 
  hc_xAxis(categories= c("Norway","United States","Germany","Canada","Austria"),
           labels=list(useHTML=TRUE,
           formatter = JS("function() { 
           return {
                'Norway': 'Normay &nbsp;<span class=\x22 f16\x22><span class=\x22 flag no \x22></span></span>&nbsp;&nbsp;',
                'United States': 'United States &nbsp;<span class=\x22 f16\x22><span  class=\x22 flag us \x22></span ></span>&nbsp;&nbsp;&nbsp;',
                'Germany': 'Germany &nbsp;<span class=\x22 f16\x22><span  class=\x22 flag de \x22></span ></span>&nbsp;&nbsp;',
                'Canada': 'Canada &nbsp;<span class=\x22 f16\x22><span  class=\x22 flag ca \x22></span ></span>&nbsp;&nbsp;',
                'Austria': 'Austria<span class=\x22 f16\x22><span  class=\x22 flag at\x22></span ></span>&nbsp;&nbsp;'
            }[this.value]; 
           }")

           )
           ) %>% 
  hc_yAxis( tickLength = 0,
            gridLineColor = 'transparent'
  ) %>% 
  hc_xAxis( tickLength = 0,
            gridLineColor = 'transparent'
  )%>% 
  hc_add_series( data = country_totals2$Imports) %>% 
  hc_add_series( data = country_totals2$Exports) %>% 
  hc_add_series(data = country_totals2$`Energy absorbed by pumping`) %>% 
  hc_add_theme(hc_theme_ffx())

prependContent(p, HTML('<link rel="stylesheet" href="https://github.com/downloads/lafeber/world-flags-sprite/flags16.css" />'))