在echarts4r中居中轴标签

library(echarts4r)

# 创建一个柱状图
data <- data.frame(
  category = c('A', 'B', 'C', 'D', 'E'),
  value = c(10, 20, 30, 40, 50)
)
bar <- data %>%
  e_charts(category) %>%
  e_bar(value)

# 设置x轴标签居中
bar <- bar %>%
  e_x_axis(axis_label = axis_label(
    align = "center"
  ))

# 设置y轴标签居中
bar <- bar %>%
  e_y_axis(axis_label = axis_label(
    align = "center"
  ))

# 显示图表
bar %>% e_visual_map(value) %>% e_render()