Highcharter无法移除Y轴标签，需将标签移至条形末端求助

核心修改点 #

• 移除Y轴标签：在hc_yAxis中使用小写的labels参数关闭刻度标签，而非你之前尝试的dataLabels或大写Labels
• 条形末端显示数值：在hc_add_series里开启dataLabels并设置对应对齐规则

修改后的完整代码 #

test <- tibble::tribble(
  ~year,    ~Type, ~total,
  2020,    "low",     45,
  2020, "medium",     52,
  2020,   "high",     98,
  2021,    "low",     60,
  2021, "medium",     83,
  2021,   "high",     80,
  2022,    "low",     64,
  2022, "medium",     34,
  2022,   "high",     20,
  2023,    "low",     62,
  2023, "medium",     47,
  2023,   "high",     58)

test <- dplyr::mutate(test, Type = forcats::fct(Type), year = as.character(year))

highchart() %>% 
  hc_plotOptions(series = list(pointWidth = 15)) %>% 
  hc_xAxis(categories = test$Type, labels = list(style = list(
    color = '#344a5e',fontFamily = "Segoe UI",fontWeight = 600))) %>% 
  # 彻底隐藏Y轴的标签和默认标题
  hc_yAxis(
    labels = list(enabled = FALSE),  # 关闭Y轴刻度标签
    title = list(enabled = FALSE)    # 关闭Y轴默认的"Values"标题
  ) %>%
  hc_add_series(
    dataSorting = list(enabled = TRUE),
    data = test, type = 'bar', hcaes(x = Type, y = total, group = year),
    # 开启条形末端的数据标签，设置位置和样式
    dataLabels = list(
      enabled = TRUE, 
      align = 'right',  # 对齐到条形右侧（bar图的末端位置）
      x = 3,            # 微调位置避免和条形边缘重叠
      style = list(
        color ='#344a5e',
        fontFamily = "Segoe UI",
        fontWeight = 400
      )
    )
  ) %>% 
  hc_title(text = "Year on Year Comparison") %>%
  hc_subtitle(text = "") %>%
  hc_caption(text = "ref data") %>%
  hc_tooltip(sort = TRUE, table = TRUE) %>% 
  hc_size(height = 600) %>% 
  hc_add_theme(thm_bar)

关键说明 #

1. 你之前的错误在于混淆了参数：dataLabels是控制数据点的数值标签，而Y轴本身的刻度标签由labels参数控制，且参数名必须是小写。
2. 针对横向条形图（bar类型），设置align = 'right'能让数值标签精准对齐到条形末端，微调x值可以优化视觉间距。
3. 加上title = list(enabled = FALSE)可以彻底清除Y轴的默认标题，让左侧区域完全简洁。

内容的提问来源于stack exchange，提问作者Magnetar