Хотел проверить, можем ли мы удалить только отрицательные символы (-) из диаграмм. Отрицательные значения отображаются в противоположном направлении, что нормально. Но только (-) должен быть удален. Возможно ли это?
library(shiny)
library(dplyr)
library(shinycssloaders)
library(DT)
library(rAmCharts)
ui <- fluidPage(
actionButton("plot","plot"),
dataTableOutput("Test"),
amChartsOutput("iris_data")
)
server <- function(input, output, session) {
observeEvent(input$plot, {
output$Test <- DT::renderDT(DT::datatable(head(iris),
rownames = FALSE, options = list(dom = 't',
ordering=FALSE)))
})
output$iris_data <- renderAmCharts({
pipeR::pipeline(
amBarplot(
x = "Species",
y = c("new", "Sepal.Width"),
data = head(iris),
stack_type = "regular",
labelRotation = 90,
groups_color = c( "#33A532","#f94c56")
),
setChartCursor()
)
})
}
shinyApp(ui = ui, server = server)