您在开发人员控制台中有一个error 18,表示您将系列连接到不存在的轴。确实如此 - 您将系列连接到具有索引 1 的轴 yAxis: 1 但您尚未创建该轴。
通常,您不需要创建另一个轴。你可以删除这个yAxis: 1,两个系列都会显示:
library(highcharter)
library(dplyr)
Data = data.frame(date = seq(Sys.Date(), Sys.Date()-20, by = '-1 day'), value1 = 10:30, variable = "A") %>% mutate(value2 = cumsum(value1))
hchart(Data,
"column",
hcaes(x = date, y = value1, group = variable)) %>%
hc_add_series(data = Data, hcaes(x = date, y = value2), type = 'area')
但是,如果这是有意的,并且您确实想为每个系列创建单独的轴并单独显示它们,那么请告诉我,我会为您提供帮助。
编辑:这里我使用hc_yAxis_multiple创建了第二个轴,我将区域系列连接到它并隐藏了这个轴:
library(highcharter)
library(dplyr)
Data = data.frame(date = seq(Sys.Date(), Sys.Date()-20, by = '-1 day'), value1 = 10:30, variable = "A") %>% mutate(value2 = cumsum(value1))
hchart(Data,
"column",
hcaes(x = date, y = value1, group = variable)) %>%
hc_yAxis_multiples(
list(), # first yAxis
list(visible = FALSE) # second yAxis
) %>%
hc_add_series(data = Data, hcaes(x = date, y = value2), type = 'area', yAxis = 1)
编辑 2: 这是根据您的新要求调整的更新代码。我设置了tooltip.shared: true (hc_tooltip(shared = TRUE) %>%) 并为一个系列设置了 zIndex:
library(highcharter)
library(dplyr)
Data = data.frame(date = seq(Sys.Date(), Sys.Date()-20, by = '-1 day'), value1 = 10:30, variable = "Column") %>% mutate(value2 = cumsum(value1))
hchart(Data,
"column",
hcaes(x = date, y = value1, group = variable), zIndex = 1, opacity = 0.9) %>%
hc_tooltip(shared = TRUE) %>%
hc_yAxis_multiples(
list(), # first yAxis
list(visible = FALSE) # second yAxis
) %>%
hc_add_series(data = Data, hcaes(x = date, y = value2), type = 'area', name = 'Area', yAxis = 1, zIndex = 0)
我还在列系列上设置了不透明度 0.9,但您可以将其移除。