堆积条形图不正确的类别标签

Stacked barplot incorrect category labels

悬停标签正确显示标签,但我无法在栏下获得正确的类别标签。

这是工作示例:

library(highcharter)
A <- data.frame(x=c(1,2,3,1,2,3),
                y=c(0.7,0.8,0.7,0.3,0.2,0.3),
                group=factor(c("A","A","A","B","B","B")),
                cluster=c("C1","C1","C2","C1","C1","C2"),
                name=c("John","Sally","Ed","John","Sally","Ed"),
                stringsAsFactors=F)

A %>%
hchart(.,"column",hcaes(x="x",y="y",group="group")) %>%
hc_xAxis(title=list(text=NULL),allowDecimals=FALSE,categories=A$name[1:3]) %>%
hc_plotOptions(column=list(animation=FALSE,stacking="normal"))

我曾尝试设置 categories=A$name 以防它需要六个值,但这不起作用。我已经尝试更改一些 x 轴选项(startonTickminPaddingminmax),但似乎无法正常工作。

我在 x 轴上使用变量 'x' 而不是变量 'names' 来保留特定顺序,否则它会按字母顺序排序。

此问题与 x 轴为数字有关。两种方式让你得到你想要的。

首先,我将 x 分配给 name

A %>%
  hchart(.,"column",hcaes(x="name",y="y",group="group")) %>%
  hc_plotOptions(column=list(animation=FALSE,stacking="normal"))

其他方法是声明A$x一个因子

A %>%
  dplyr::mutate(x = as.factor(x)) %>%
  hchart(.,"column",hcaes(x="x",y="y",group="group")) %>%
  hc_xAxis(title=list(text=NULL),allowDecimals=FALSE,categories=A$name[1:3]) %>%
  hc_plotOptions(column=list(animation=FALSE,stacking="normal"))