Добавление пользовательской текстовой метки в гистограмму с накоплением в amCharts

Я пытался настроить текстовую метку моей горизонтальной гистограммы с накоплением, используя R реализация amCharts. Ниже мой код:

 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, где я мог бы реализовать вышеуказанный план, но безуспешно.

Может ли кто-нибудь посоветовать мне, как добиться того же с помощью R-реализации amCharts.

Спасибо,