序列长度==1的Highcharter堆叠列：类别名称不正确

我正在尝试绘制序列长度==1的叠层柱形图。

---

类别名称不正确（this.Category.name）。这不仅仅是关于标签，我使用这个.category.name作为回报。请帮忙

chart <- highchart() %>%
  hc_chart(type = "column") %>%
  hc_xAxis(categories = c("Apples")) %>%
  hc_add_series(c(5), name = "John") %>%
  hc_add_series(c(3), name = "Jane") %>%
  hc_add_series(c(2), name = "Joe") %>%
  hc_plotOptions(column = list(stacking = "normal"))
chart

图表%
hc_图表（type=“column”）%>%
hc_xAxis（类别=c（“苹果”））%>%
hc_添加_系列（c（5），name=“John”）%>%
hc_添加_系列（c（3），name=“Jane”）%>%
hc_添加_系列（c（2），name=“Joe”）%>%
hc\U绘图选项（列=列表（堆叠=“正常”））
图表

---

问题在于定义x轴标签，在

highcharter

中称为

categories

。我对发布的代码做了其他更改

• 主要的变化是将

  类别

  作为

  列表

• 只包含一个元素的向量，

  c（“苹果”）

  或

  c（5）

  ，被简化

代码变成：

library(highcharter)

chart <- highchart() %>%
  hc_chart(type = "column") %>%
  hc_xAxis(categories = list("Apples")) %>%
  hc_add_series(5, name = "John") %>%
  hc_add_series(3, name = "Jane") %>%
  hc_add_series(2, name = "Joe") %>%
  hc_plotOptions(column = list(stacking = "normal"))
chart

库（highcharter）
图表%
hc_图表（type=“column”）%>%
hc_xAxis（类别=列表（“苹果”））%>%
hc_添加_系列（5，name=“John”）%%>%
hc_添加_系列（3，name=“Jane”）%%>%
hc_添加_系列（2，name=“Joe”）%>%
hc\U绘图选项（列=列表（堆叠=“正常”））
图表

---

问题在于定义x轴标签，在

highcharter

中称为

categories

。我对发布的代码做了其他更改

• 主要的变化是将

  类别

  作为

  列表

• 只包含一个元素的向量，

  c（“苹果”）

  或

  c（5）

  ，被简化

代码变成：

library(highcharter)

chart <- highchart() %>%
  hc_chart(type = "column") %>%
  hc_xAxis(categories = list("Apples")) %>%
  hc_add_series(5, name = "John") %>%
  hc_add_series(3, name = "Jane") %>%
  hc_add_series(2, name = "Joe") %>%
  hc_plotOptions(column = list(stacking = "normal"))
chart

库（highcharter）
图表%
hc_图表（type=“column”）%>%
hc_xAxis（类别=列表（“苹果”））%>%
hc_添加_系列（5，name=“John”）%%>%
hc_添加_系列（3，name=“Jane”）%%>%
hc_添加_系列（2，name=“Joe”）%>%
hc\U绘图选项（列=列表（堆叠=“正常”））
图表

---

对于hcXaxis，您需要在类别中传递列表而不是向量：

library(dplyr)
library(highcharter)

chart <- highchart() %>%
  hc_chart(type = "column") %>%
  hc_xAxis(categories = list("Apples")) %>%
  hc_add_series(c(5), name = "John") %>%
  hc_add_series(c(3), name = "Jane") %>%
  hc_add_series(c(2), name = "Joe") %>%
  hc_plotOptions(column = list(stacking = "normal"))
chart

库（dplyr）
图书馆（高级特许）
图表%
hc_图表（type=“column”）%>%
hc_xAxis（类别=列表（“苹果”））%>%
hc_添加_系列（c（5），name=“John”）%>%
hc_添加_系列（c（3），name=“Jane”）%>%
hc_添加_系列（c（2），name=“Joe”）%>%
hc\U绘图选项（列=列表（堆叠=“正常”））
图表

对于hcXaxis，您需要在类别中传递列表而不是向量：

library(dplyr)
library(highcharter)

chart <- highchart() %>%
  hc_chart(type = "column") %>%
  hc_xAxis(categories = list("Apples")) %>%
  hc_add_series(c(5), name = "John") %>%
  hc_add_series(c(3), name = "Jane") %>%
  hc_add_series(c(2), name = "Joe") %>%
  hc_plotOptions(column = list(stacking = "normal"))
chart

库（dplyr）
图书馆（高级特许）
图表%
hc_图表（type=“column”）%>%
hc_xAxis（类别=列表（“苹果”））%>%
hc_添加_系列（c（5），name=“John”）%>%
hc_添加_系列（c（3），name=“Jane”）%>%
hc_添加_系列（c（2），name=“Joe”）%>%
hc\U绘图选项（列=列表（堆叠=“正常”））
图表

这不仅仅是关于标签，我使用this.category.name作为回报。这不仅仅是关于标签，我使用this.category.name作为回报。