在 ggplot 中绘制的数据到 highcharter
data plotted in ggplot to highcharter
我有这个数据框
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)
看起来像这样
我想使用 R highcharter 包制作相同的情节,但我一直无法弄清楚。谢谢您的帮助。
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")
我有这个数据框
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)
看起来像这样
我想使用 R highcharter 包制作相同的情节,但我一直无法弄清楚。谢谢您的帮助。
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")