R 将点与分组的条对齐

我正在尝试使用两种不同的图表类型，一个条形图和一个点来制作一个临时棒棒糖图表。问题是，当对条进行分组时，点不对齐，如下所示：

期望：

甚至可以让它们对齐吗

library(highcharter)
library(tidyverse)

hc <- highchart()

hc <- hc %>%
  hc_xAxis(type = "category") %>%
  hc_plotOptions(series = list(pointWidth = 2)) 

hc <- hc_colors(hc, colors = c("#ffb078", "#ffc600"))

# example data
d <- tibble(x = rep("Apple", 2), y = c(87, 94), g = c("a", "b"))

# add line
hc <- hc %>% hc_add_series(data = d, "bar", hcaes(x = "x", y = "y", group = "g"), dataLabels = list(x = 5, enabled = TRUE))

# add point
hc <- hc %>% hc_add_series(data = d, "point", hcaes(x = "x", y = "y", group = "g"), marker = list(enabled = TRUE, symbol = "circle", radius = 4), showInLegend = FALSE)


hc

库（highcharter）
图书馆（tidyverse）
hc%
hc\U绘图选项（系列=列表（点宽度=2））
hc是的，棒棒糖系列已经添加到v8.0.0的Highcharter中，但是Highcharter使用的是v7.2.0。您可以要求Highcharter的作者使用dumbbell.js和lollipop.js模块创建一个分支，以便在当前Highcharter版本中使用它们。我在这里也是这样做的：
这是现在让它在R中工作的最好方法
 是的，棒棒糖系列已添加到v8.0.0的Highcharter中，但Highcharter使用的是v7.2.0。您可以要求Highcharter的作者使用dumbbell.js和lollipop.js模块创建一个分支，以便在当前Highcharter版本中使用它们。我在这里也是这样做的：
这是现在让它在R中工作的最好方法
 我设法使用点的
hcaes（x=c（-0.15.15））
对齐它们。我设法使用点的
hcaes（x=c（-0.15.15））
对齐它们。