【发布时间】：2018-09-27 06:16:50
【问题描述】：
我正在 R 中创建一个向下钻取图，并希望其中一个图层成为具有多个组的折线图。
我已经弄清楚了如何创建折线图，但我似乎无法从单个系列向下钻取到多个系列。 如果我在同一个 id 上链接两个系列（从我在 javascript 上读到的想法），只会出现第二个系列。
知道如何进行吗？
编辑 * 更新代码
df <- data_frame(
name = c("Animals", "Fruits", "Cars"),
y = c(5, 2, 4),
drilldown = tolower(name)
)
df
dfan <- data_frame(
name = c("Cats", "Dogs", "Cows", "Sheep", "Pigs"),
value = c(4, 3, 1, 2, 1)
)
dfru <- data_frame(
name = c("Apple", "Pear", "Orange"),
value = c(4, 3, 1)
)
dfcar <- data_frame(
name = c("Toyota", "Opel", "Volkswagen"),
value = c(4, 2, 2)
)
dfcar2 <- data_frame(
name = c("Toyota", "Opel", "Volkswagen"),
value = c(6, 7, 2)
)
car_series = merge(dfcar, dfcar2, by = "name")
hc <- highchart() %>%
hc_chart(type = "column",
events = list(
click = JS(fn))) %>%
hc_title(text = "Basic drilldown") %>%
hc_xAxis(type = "category") %>%
hc_legend(enabled = FALSE) %>%
hc_plotOptions(
series = list(
boderWidth = 0,
dataLabels = list(enabled = TRUE)
)
) %>%
hc_add_series(
data = df,
name = "Things",
colorByPoint = TRUE
)
hc <- hc %>%
hc_drilldown(
allowPointDrilldown = TRUE,
series = list(
list(
id = "animals",
data = list_parse2(dfan)
),
list(
id = "fruits",
data = list_parse2(dfru)
),
list(
id = "cars",
type = "line",
data = list_parse2(car_series)
)
)
)
hc
fn <-"function () {
var chart = Highcharts.charts[0];
var drilldown = this.drilldown;
var len = chart.series.length;
var name = null,
categories = drilldown.categories,
data = drilldown,
type = drilldown.type;
chart.xAxis[0].setCategories(categories);
for(var i = 0; i < len; i++){
chart.series[0].remove();
}
if(data.series){
for( i = 0; i < data.series.length; i ++ ){
chart.addSeries({
name: data.series[i].name,
data: data.series[i].data,
type: data.series[i].type,
});
}
} else {
chart.addSeries({
name: name,
data: data,
type: type,
});
}
}
"
【问题讨论】：
-
当我单击第一个图表中的三个矩形中的每一个时，我得到两个箱线图和一个折线图（来自绿色汽车矩形）。这有什么不正确的？
-
嗨，我希望折线图有两条线，而不是一条 - 我希望它是一个多系列。
-
示例已编辑。谢谢
-
我基本上想在 R 中执行此操作：jsfiddle.net/49q18Lp3
标签： r highcharts drilldown