R显示barPlot标签

Question

美好的一天可以在这里显示标签吗？

是barPlot。

output$bar<-{(renderPlot(barplot(data_percent,names.arg =tableData$Country,col=rainbow(length(tableData$Country)))) )}

Answer 1

以下是highcharter包的示例：

library(shiny)
library(highcharter)
library(ggplot2)

ui <- list(highchartOutput("hcontainer",height = "400px",width = "500px"))

server <- function(input, output) {
  output$hcontainer <- renderHighchart({
    hchart(diamonds$cut, type = "column",dataLabels = list(enabled=TRUE))
  })
}

shinyApp(ui, server)