在 highcharter 中为 hc_add_series_list 定义 x 值

Question

我想为 highcharter 线图定义 x 值，因为我有分类 x 值，有时还有引用相同类别的值。 无论如何，在 highcharter 上，这是可能的，如 12 月 15 日的这个例子所示： https ://whatukthinks.org/eu/questions/should-the-united-kingdom-remain-a-member-of-the-eu-or- 离开欧盟/？删除。 使用 hc_add_series 函数，我可以定义 x 值，如下例所示：

library(highcharter)
df = data_frame(x = c(1,1,3,3,5:7),y = c(100,105,110,120,80,90,98),name = 
c("A","A","A","A","B","B","B"))

hc2 <- highchart() %>%
    hc_add_series(df)

hc2

就我而言，我不知道开头会有多少系列，所以我想使用 hc_add_series_list 因为我可以预先定义列表。 但是我无法定义 x 值，因为数据总是被解释为 y 值。 在我阅读https://dantonnoriega.github.io/ultinomics.org/post/2017-04-05-highcharter-explainer.html 之后，我认为使用子列表应该是可能的，但直到现在我还不是很成功。 我是这样试的：

ds_new <- lapply((1:1), function(x){
  list(name = paste(trips_of_choice[x]),
       data = list(x = c(1:2),
                   y = c(1:2),
                   name =c("5.TA.26-3-j19-1.5.R")
       ))
})

所以要有一个带有子列表的列表，它被命名为 data 并包含 x 和 y 数据。 但它根本不起作用。

我希望有人能在这里帮助我

Answer 1

假设您的系列存储在一个列表中：

df1 <- data.frame(x = c(1,2,3,4),
                  y = c(100,105,110,120),
                  name = c("A","A","A","A"))
df2 <- data.frame(x = c(3:6),
                  y = c(80,90,98,105),
                  name = c("B","B","B","B"))
series_list <- list(df1, df2)

您可以使用此解决方案绘制所有系列：

hc2 <- highchart()
for (k in 1:length(series_list)) {
   hc2 <- hc2 %>%
          hc_add_series(series_list[[k]])
}
hc2