r - R Highcharter - X 轴名称在图中变为索引
问题描述
我在 Highcharter 中有几个允许向下钻取的柱形图。我注意到,根据列向下钻取的大小,highcharter 从显示正确的 x 轴名称切换到索引。有没有办法确保它始终显示 x 轴名称?
下面是一个示例代码,它显示了正确显示和不正确显示的场景。唯一的变化是数据集的大小(从 400 到 50)。
library (highcharter)
rm(list=ls())
#### CASE 1 - X AXIS NAMES NOT SHOWING IN DRILLDOWN ####
h <- 0
Case1Num <- c()
for(i in 1:400){
h <- h + .02
Case1Num[i] <- h
}
Case1Name <- c()
for(i in 1:400){
Case1Name[i] <- paste0("test",i)
}
Case1Group <- c()
for(i in 1:400){
Case1Group[i] <- paste0("group1")
}
Case1 <- data.frame(Case1Name,Case1Num,Case1Group)
Lvl1 <- aggregate(Case1$Case1Num, by = list(Case1$Case1Group),FUN=sum)
Lvl1df <- data_frame(name = Lvl1$Group.1, y = Lvl1$x, drilldown = tolower((paste(name))))
dfLvl2 <- arrange(data_frame(name = Case1$Case1Name,value = Case1$Case1Num),desc(value))
hc <- highchart() %>%
hc_chart(type = "column", zoomType = "x") %>%
hc_xAxis(type = "category", labels = list(style = list(fontSize = "1.1vh"))) %>%
hc_yAxis(gridLineWidth = 0, labels = list(style = list(fontSize = "1.1vh"))) %>%
hc_add_series(data=Lvl1df, color = "#D20000") %>%
hc_legend(enabled = TRUE) %>%
hc_plotOptions(column = list(stacking = "normal")) %>%
hc_drilldown(
allowPointDrilldown = TRUE,
series = list(
list(id = "group1", data = list_parse2(dfLvl2))
)
)
hc
#### CASE 2 - X AXIS NAMES SHOWING CORRECTLY IN DRILLDOWN ####
h <- 0
Case2Num <- c()
for(i in 1:50){
h <- h + .02
Case2Num[i] <- h
}
Case2Name <- c()
for(i in 1:50){
Case2Name[i] <- paste0("test",i)
}
Case2Group <- c()
for(i in 1:50){
Case2Group[i] <- paste0("group1")
}
Case2 <- data.frame(Case2Name,Case2Num,Case2Group)
Lvl1 <- aggregate(Case2$Case2Num, by = list(Case2$Case2Group),FUN=sum)
Lvl1df <- data_frame(name = Lvl1$Group.1, y = Lvl1$x, drilldown = tolower((paste(name))))
dfLvl2 <- arrange(data_frame(name = Case2$Case2Name,value = Case2$Case2Num),desc(value))
hc2 <- highchart() %>%
hc_chart(type = "column", zoomType = "x") %>%
hc_xAxis(type = "category", labels = list(style = list(fontSize = "1.1vh"))) %>%
hc_yAxis(gridLineWidth = 0, labels = list(style = list(fontSize = "1.1vh"))) %>%
hc_add_series(data=Lvl1df, color = "#D20000") %>%
hc_legend(enabled = TRUE) %>%
hc_plotOptions(column = list(stacking = "normal")) %>%
hc_drilldown(
allowPointDrilldown = TRUE,
series = list(
list(id = "group1", data = list_parse2(dfLvl2))
)
)
hc2
解决方案
这是 Highcharts 的一个未解决问题。不仅在 R 中,在 javascript 中也是如此。此处报告了此问题:
推荐阅读
- css - 在 React 的 Dev env 中,应用程序运行良好,但是当我将它部署到 Heroku 时,它看起来很小,而且 css 单元似乎不像在 Dev env 中那样工作
- python - 让 Python 接受 POST / GET 请求
- shopify - Shopify Multipass 是否会更新客户记录?
- html - 为每个 ul 分配不同的设计
- assembly - 如何在 NASM 中仅包含从一个文件到另一个文件的指定标签?
- xml - 如何用 doxygen 提取私有类成员?
- node.js - 解析错误:无法读取文件'.../tsconfig.json'.eslint
- python - 如何在 Python 中重新定义实例方法?
- c# - .NET Core DI 和子类
- kotlin - Kotlin 协程 runBlocking async