如何在highcharter中为树映射添加数据标签？

我想为我创建的树映射添加数据标签。我将此树状图用于图像，因此为每个框设置

pts

和

fgpct

会很有帮助。我希望工具提示和图例中列出的内容显示在每个框中

我的代码：

library(highcharter)

gamelogs %>%
  filter(slugTeam == "MEM") %>%
  group_by(namePlayer) %>%
  summarise(pts = sum(pts), fgpct = sum(fgm) / sum(fga)) %>%
  hchart("treemap", hcaes(name = namePlayer, value = pts, color = fgpct)) %>%
  hc_title(text = "Grizzlies Scoring") %>%
  hc_subtitle(text = "Shaded by Field Goal %") %>%
  hc_chart(
    backgroundColor = '#FFFFFF' # Chart Background Color
  ) %>%
  hc_exporting(enabled = TRUE,
               filename = "Grizzlies Scoring")

我的输出：

我想要的输出：

该输出将包含方框中的点1041以及图例中显示的49%的fgpct。是否仍要使用highcharter树状图添加数据标签？

请尝试以下操作

gamelogs %>%
  filter(slugTeam == "MEM") %>%
  group_by(namePlayer) %>%
  summarise(pts = sum(pts), fgpct = round(sum(fgm) / sum(fga),digits=2)) %>% 
  hchart("treemap", hcaes(name = namePlayer, value = pts, color = fgpct),
         dataLabels = list(enabled = TRUE, format='{point.namePlayer}<br/>{point.pts} pts<br/>{point.fgpct} fgpct'),
         tooltip = list(pointFormat = "{point.namePlayer}: {point.pts}, {point.fgpct}%")) %>%
  hc_title(text = "Grizzlies Scoring") %>%
  hc_subtitle(text = "Shaded by Field Goal %") %>%
  hc_chart(
    backgroundColor = '#FFFFFF' # Chart Background Color
  ) %>%
  hc_exporting(enabled = TRUE,
               filename = "Grizzlies Scoring") %>% 
  hc_tooltip(crosshairs = TRUE)

gamelogs%>%
过滤器（slugTeam==“MEM”）%>%
组员（姓名玩家）%>%
总结（分数=总和（分数），fgpct=四舍五入（总和（fgm）/总和（fga），位数=2））%>%
hchart（“树地图”，hcaes（名称=namePlayer，值=pts，颜色=fgpct），
dataLabels=list（enabled=TRUE，格式={point.namePlayer}
{point.pts}pts
{point.fgpct}fgpct'），
工具提示=列表（pointFormat=“{point.namePlayer}:{point.pts}，{point.fgpct}%”）%>%
hc_标题（text=“灰熊评分”）%>%
hc\U副标题（text=“按场目标%着色”）%>%
hc_图(
backgroundColor='#FFFFFF'#图表背景色
) %>%
hc_导出（启用=真，
filename=“灰熊得分”）%>%
hc_工具提示（十字光标=真）

您将获得此输出

---

此代码不会改变任何内容。我希望工具提示和图例中列出的内容出现在每个框中。嘿，我想我可能没有正确解释它。我希望工具提示和图例中列出的内容出现在每个框中。所以，如果我拍下树形图的截图，所有的信息都会在那里。例如，您显示的3个框中没有显示每个框中的分数和场上目标百分比的信息。这太棒了！有没有办法将fgpct更改为实际的%？例如，马克·加索尔的投篮命中率是42%，而不是.42（这是同一回事）。同样，减小pts和fgpct的大小也会有帮助。应该做两个更改：一个：

fgpct=100*round（sum（fgm）/sum（fga），digits=2）

，两个：

dataLabels=list（enabled=TRUE，
{point.fgpct}%'）

再次感谢您的帮助。我试图使用

dataLabels=list（enabled=TRUE，fontSize='8pt'

使每个框中的pts和fgpct更小。基本上，您希望在每个dataLabel上方显示此附加信息？我想知道您是否需要为此编辑工具提示（它会对用户的交互做出动态反应）。相反，如果只是调整dataLabelka包含此信息的适当格式不是更好吗？嘿，我想我可能没有正确解释。我希望工具提示和图例中列出的内容都包含在每个框中。因此，如果我拍摄树状图的屏幕截图，所有信息都会出现。