данные выводятся в ggplot на highcharter - PullRequest
0 голосов
/ 28 сентября 2018

У меня есть этот фрейм данных

df <- data.frame(x = 1:8,
                 y1 = c(1:2, NA, NA,3:4, NA, NA),
                 y2 = c(NA, NA,3:4, NA, NA, 5:6), 
                 type = c("A", "A","A","A","B","B","B","B"))

#df
x y1 y2 type
1  1 NA    A
2  2 NA    A
3 NA  3    A
4 NA  4    A
5  3 NA    B
6  4 NA    B
7 NA  5    B
8 NA  6    B

Я могу нарисовать его так, как я хочу, используя ggplot2:

ggplot(df, aes(x = x, y = y1, col = type))+ 
      geom_line()+
      geom_line(aes(y=y2), linetype=3)

И это выглядит так

ggplot

Я хотел бы сделать тот же график, используя пакет R Highcharter, но я не смог понять это.Спасибо за помощь.

1 Ответ

0 голосов
/ 28 сентября 2018
library(tidyverse)
library(highcharter)

highchart() %>%
  hc_xAxis(categories = df$x) %>%
  hc_xAxis(title = list(text = "x",
                        style = list(
                          fontSize = "16px", 
                          fontWeight = "bold",
                          color = "black"))) %>% 
  hc_yAxis(title = list(text = "y",
                        style = list(
                          fontSize = "16px", 
                          fontWeight = "bold",
                          color = "black"))) %>% 
  hc_add_series(df, "line", hcaes(x, y1, color = type),
                name = "y1") %>%
  hc_add_series(df, "line", hcaes(x, y2, color = type),
                dashStyle = "DashDot",
                name = "y2") 

Есть несколько хороших примеров здесь и здесь

...