我有一个柱形图,我想修改列内的名称.问题是,我不想要静态名称,也不想要默认名称(系列1)

代码如下:

df <-
  structure(
    list(
      CCAA = c(
        "ANDALUCÍA",
        "CEUTA",
        "COMUNITAT VALENCIANA",
        "CASTILLA-LA MANCHA",
        "EXTREMADURA",
        "CASTILLA Y LEÓN"
      ),
      TOTAL = c(27,
                14, 4, 2, 2, 1),
      COLOR = c(
        "#E30613",
        "#E30614",
        "#E30615",
        "#E30616",
        "#E30617",
        "#E30618"
      ),
      BANDERAS = c(
        "FLAG 1",
        "FLAG 2",
        "FLAG 3",
        "FLAG 4",
        "FLAG 5",
        "FLAG 6"
      )
    ),
    class = c("tbl_df", "tbl", "data.frame"),
    row.names = c(NA,-6L)
  )

海查特地块的密码是:

grafico <- highchart() %>%
    hc_chart(type = 'column') %>%
    hc_tooltip(table=TRUE) %>%
    hc_xAxis(categories = df$BANDERAS) %>%
    hc_colors(color=df$COLOR) %>%
    hc_exporting(enabled = TRUE) %>%
    hc_legend(enabled=FALSE) %>%
    hc_plotOptions(series = list(animation = FALSE)) %>% 
    hc_add_series(df$TOTAL, dataLabels = list(enabled = TRUE, format='<span style="fontfamily: sans-serif">{point.y}</span>'), colorByPoint=TRUE)

我该如何在系列1中放置CCAA的名称,而不是默认的名称,并在x轴上放置不同的BANDERA名称?

推荐答案

您可以使用hc_tooltip和自定义JS格式化程序函数自定义工具提示:

library(highcharter)

highchart() %>%
  hc_chart(
    type = "column"
  ) %>%
  hc_tooltip(table = TRUE) %>%
  hc_xAxis(categories = df$BANDERAS) %>%
  hc_colors(color = df$COLOR) %>%
  hc_exporting(enabled = TRUE) %>%
  hc_legend(enabled = FALSE) %>%
  hc_plotOptions(
    series = list(
      animation = FALSE
    )
  ) %>%
  hc_add_series(
    data = df[c("TOTAL", "CCAA")] |> dplyr::rename(y = TOTAL),
    dataLabels = list(
      enabled = TRUE,
      format = '<span style="fontfamily: sans-serif">{point.y}</span>'
    ),
    colorByPoint = TRUE
  ) |>
  hc_tooltip(
    formatter = JS(
      "
      function () {
        return '<b>' + this.points[0].point.CCAA + '</b>:' + this.y;
      }
      "
    )
  )

enter image description here

R相关问答推荐

删除facet_wrap标签之间的水平线

在位置周围设定一个半径并识别该半径内的其他位置

从R导出全局环境中的所有sf(numrames)对象

lightgbm发动机在tidymmodels中的L1正则化""

传递ggplot2的变量作为函数参数—没有映射级别以正确填充美学

我正在努力用R计算数据集中的中值逐步距离

在使用bslb和bootstrap5时,有没有办法更改特定dt行的 colored颜色 ?

Select 季度月值

如何基于两个条件从一列中提取行

Geom_Hline将不会出现,而它以前出现了

在R中创建连续的期间

如何在使用箭头R包(箭头::OPEN_DATASSET)和dplyr谓词时编写具有整齐计算的函数?

警告消息";没有非缺失的参数到min;,正在返回数据中的inf";.表分组集

仅当后续值与特定值匹配时,才在列中回填Nas

根据r中另一个文本列中给定的范围对各列求和

使用列中的值来调用函数调用中应使用的其他列

数据集上的R循环和存储模型系数

在生成打印的自定义函数中,可以通过变量将线型或 colored颜色 设置为NULL吗?

使用ggplot2绘制具有边缘分布的坡度图

在具有条件的循环中添加行