R显示条形图标签

您好，有可能在这里显示标签吗

这是条形图

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

---

output$bar以下是一个使用
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)

库（闪亮）
图书馆（高级特许）
图书馆（GG2）
ui以下是一个使用
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)

库（闪亮）
图书馆（高级特许）
图书馆（GG2）
你能添加样本数据吗？你能添加样本数据吗？