определить значения x для hc_add_series_list в старшей таблице - PullRequest
1 голос
/ 14 апреля 2019

Я хочу определить значения x для линейного графика с высокими значениями, поскольку у меня есть категориальные значения x, а также иногда значения, относящиеся к одной и той же категории.В любом случае на старшей чарте это возможно, как в этом примере 15 декабря: https://whatukthinks.org/eu/questions/should-the-united-kingdom-remain-a-member-of-the-eu-or-leave-the-eu/?removed.С помощью функции 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")
       ))
})

Таким образом, чтобы получить список с подсписками, который называется данными и включает в себя данные x и y.Но это совсем не работает.

Я надеюсь, что кто-то может помочь мне здесь

1 Ответ

1 голос
/ 14 апреля 2019

Предположим, что ваши серии хранятся в списке:

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

enter image description here

...