highcharter：修复只有一列的柱形图中的 x 轴标签

Question

我有以下代码来创建一个简单的柱状图并且工作正常：

library(highcharter)
d1 <- iris %>% group_by(Species) %>% 
  summarize(mean_sepal_width = mean(Sepal.Width))

highchart() %>% 
  hc_chart(type = 'column') %>% 
  hc_xAxis(categories = d1$Species) %>% 
  hc_add_series(data = d1$mean_sepal_width)

但是，当我对输入数据进行子集化以便仅存在一个 x 变量时，x 轴标签被破坏：

d2 <- d %>% filter(Species == 'virginica')
highchart() %>% 
  hc_chart(type = 'column') %>% 
  hc_xAxis(categories = d2$Species) %>% 
  hc_add_series(data = d2$mean_sepal_width)

此处提供了一个可能的解决方案 ()，但我不想使用 hchart() 函数，因为我的实际绘图要复杂得多。

有没有办法修复这些 x 轴标签？

Answer 1

将 d2$Species 放入列表中（或使用 as.list）。这是一个众所周知的 bug.

highchart() %>% 
  hc_chart(type = 'column') %>% 
  hc_xAxis(categories = as.list(d2$Species)) %>% 
  hc_add_series(data = d2$mean_sepal_width)

highcharter：修复只有一列的柱形图中的 x 轴标签

highcharter: Fixing x-axis labels in a column chart with only one column

r

highcharts

r-highcharter