R highcharter - 同一個 plot 中的兩個條形圖具有不同的 X 軸

Question

我正在嘗試執行以下操作：

我有兩個關於我公司的數據集。 例如，第一個有前 20 名成長中的賣家。 第二個有倒數 20 個虧損的賣家。 所以，它是這樣的：

growing_seller <- c("a","b","c","d","e","f","g","h","i","h")
sales_yoy_growing <- c(100000,90000,75000,50000,37500,21000,15000,12000,10000,8000)
top_growing <- data.frame(growing_seller,sales_yoy_growing)


losing_seller <- c("i","j","k","l","m","n","o","p","q","r")
sales_yoy_losing <- c(-90000,-75000,-50000,-37500,-21000,-15000,-12000,-10000,-8000,-5000)
bottom_losing <- data.frame(losing_seller,sales_yoy_losing)

我正在嘗試使用不同類別的 plot 兩個圖表在同一個 plot 中，對應於賣家的名稱。 所以我到目前為止是這樣的：

library(highcharter)

growing_seller <- c("a","b","c","d","e","f","g","h","i","h")
sales_yoy_growing <- c(100000,90000,75000,50000,37500,21000,15000,12000,10000,8000)
top_growing <- data.frame(growing_seller,sales_yoy_growing)

losing_seller <- c("i","j","k","l","m","n","o","p","q","r")
sales_yoy_losing <- c(-90000,-75000,-50000,-37500,-21000,-15000,-12000,-10000,-8000,-5000)
bottom_losing <- data.frame(losing_seller,sales_yoy_losing)

highchart() %>%
  hc_add_series(
    data = top_growing$sales_yoy_growing,
    type = "column",
    grouping = FALSE
  ) %>%

  hc_add_series(
    data = bottom_losing$sales_yoy_losing,
    type = "column"
  )

這就是我想要以圖形方式實現的目標：圖表示例
現在，我希望每個獨立的 x 軸都有一個不同的類別數組：類似於擁有“兩個 hc_xAxis”控件的可能性，我可以在其中為每個繪制的系列指定其自己的類別。
然后，我的最終目標是在我解析每個不同的列時獲得賣家的姓名。

希望我足夠清楚:)
謝謝

Answer 1

Highcharts 默認在工具提示中顯示點的名稱。 您只需要在數據中指出name值。 你可以這樣做： top_growing <- data.frame(name = growing_seller, y = sales_yoy_growing)

這是整個代碼：

library(highcharter)

growing_seller <- c("a","b","c","d","e","f","g","h","i","h")
sales_yoy_growing <- c(100000,90000,75000,50000,37500,21000,15000,12000,10000,8000)
top_growing <- data.frame(name = growing_seller, y = sales_yoy_growing)

losing_seller <- c("i","j","k","l","m","n","o","p","q","r")
sales_yoy_losing <- c(-90000,-75000,-50000,-37500,-21000,-15000,-12000,-10000,-8000,-5000)
bottom_losing <- data.frame(name = losing_seller, y = sales_yoy_losing)

highchart() %>%
  hc_add_series(
    data = top_growing,
    type = "column",
    grouping = FALSE
  ) %>%

  hc_add_series(
    data = bottom_losing,
    type = "column"
  )