在R语言Highcharter中创建可变宽度条形图（Variwide Charts）

嘿，我之前刚好折腾过类似的需求！你说的pointWidth参数没法动态绑定数据的问题确实挺常见，其实只要换个思路——先把事件的持续天数算出来，再把这个数值映射到条形的宽度上就能搞定，下面给你两种方案，看哪种更贴合你的需求：

方案1：类别轴+可变宽度条形图 #

这种适合你只需要展示事件名称和对应时长的宽度对比，步骤如下：

首先补全并处理你的数据集（我假设你有结束日期，要是只有开始日期和时长的话直接用时长就行）：

library(highcharter)
library(dplyr)

# 补全示例数据集，添加结束日期
df <- data.frame(
  event = c("wedding", "party", "concert"),
  start_date = as.Date(c("2017-10-01", "2017-11-01", "2017-11-20")),
  end_date = as.Date(c("2017-10-05", "2017-11-03", "2017-11-25"))
)

# 计算持续天数（如果要包含首尾日期就加1，不加的话就是间隔天数）
df$duration <- as.numeric(df$end_date - df$start_date) + 1

然后绘图的关键是，在hc_add_series里把pointWidth设置为天数的缩放值（因为直接用天数的话条形可能太宽或太窄，我这里乘以5，你可以根据自己的可视化需求调整比例）：

highchart() %>%
  hc_chart(type = "bar") %>%
  # x轴用事件名称作为类别
  hc_xAxis(categories = df$event, title = list(text = "Event Name")) %>%
  hc_yAxis(title = list(text = "Duration (Days)")) %>%
  hc_add_series(
    data = df$duration,
    name = "Event Duration",
    # 动态绑定每个条形的宽度，天数越多条形越宽
    pointWidth = df$duration * 5,
    # 开启数据标签，直接显示天数
    dataLabels = list(enabled = TRUE, format = "{y} days")
  ) %>%
  hc_title(text = "Events with Duration-Based Bar Widths") %>%
  hc_tooltip(pointFormat = "<b>{point.category}</b><br>Total Duration: {point.y} days")

方案2：时间轴甘特图（更直观展示时间跨度） #

如果你想同时展示事件的时间区间和持续时长，那用Highcharter的甘特图功能会更合适，相当于把条形的宽度直接对应时间跨度：

# 转换为甘特图需要的数据格式（Highcharts要求时间戳是毫秒级）
gantt_data <- df %>%
  mutate(
    start = as.numeric(start_date) * 1000,
    end = as.numeric(end_date) * 1000,
    name = event # 甘特图需要name字段对应事件名称
  ) %>%
  select(name, start, end)

highchart() %>%
  hc_chart(type = "gantt") %>%
  hc_xAxis(type = "datetime", title = list(text = "Date")) %>%
  hc_add_series(
    name = "Events",
    # 把数据转换成Highcharts能识别的列表格式
    data = list_parse(gantt_data)
  ) %>%
  hc_title(text = "Event Timeline & Duration") %>%
  hc_tooltip(
    pointFormat = "<b>{point.name}</b><br>
    Start: {point.start:%Y-%m-%d}<br>
    End: {point.end:%Y-%m-%d}<br>
    Duration: {point.end - point.start:%a} days"
  )

为啥之前用pointWidth不行？其实是因为你没把天数数据和这个参数绑定起来——普通的pointWidth如果只传一个固定值，所有条形宽度都一样，但如果传一个和数据长度一致的向量，就能实现每个条形的宽度动态变化啦。

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