在 amCharts 的堆叠条形图中添加自定义文本标签

Question

我试图使用 amCharts 的 R 实现来调整堆叠水平条形图的文本标签。下面是我的代码：

library(RAmCharts) Dat = data.frame('Type' = c('a', 'b'), 'Value1' = c(97.68648, 97.68648), 'Value2' = c(2.31351, 2.31351), 'z' = NA) Fn = htmlwidgets::JS( 'function(value) {', 'return value+\'%\';', '}') P = amSerialChart(theme = 'light', categoryField = "Type", precision = 2, rotate = TRUE, hideCredits = TRUE, addClassNames = TRUE, plotAreaBorderAlpha = 1, plotAreaBorderColor = '#000') %>% setDataProvider(dataProvider = Dat, keepNA = TRUE) %>% addGraph(valueField = c("Value1"), fillAlphas = 0.8, bullet = "round", lineThickness = 0, type = 'column', fixedColumnWidth = 50) %>% addGraph(valueField = c("Value2"), fillAlphas = 0.8, bullet = "round", lineThickness = 0, type = 'column', fixedColumnWidth = 50) %>% setBalloon(cornerRadius = 12, textAlign = "left", maxWidth = 1300) P@valueAxes = list(list(stackType = 'regular', minimum = 0, maximum = 100)) P

我想让文本标签显示为 https://www.amcharts.com/demos/stacked-bar-chart/，但要与“%”连接（就像我在此处自定义定义的函数 Fn 一样）。

我希望有一个像labelTextFunction这样的功能可以实现上面的计划，但是没有成功。

任何人都可以指导我如何使用 amCharts 的 R 实现实现相同的效果。

谢谢，

Answer 1

详细说明我的评论，这是对所有图形元素执行此操作的方法：

P@graphs <- lapply(P@graphs, FUN = function(x) {
  c(x, "labelText" = "[[value]]%")
})

在 amCharts 的堆叠条形图中添加自定义文本标签

Adding custom text label in Stacked Bar chart of amCharts

r

amcharts