【发布时间】:2017-09-15 15:19:26
【问题描述】:
您好,可以在这里显示标签吗?
是条形图。
output$bar<-{(renderPlot(barplot(data_percent,names.arg =tableData$Country,col=rainbow(length(tableData$Country)))) )}
【问题讨论】:
-
可以添加示例数据吗?
您好,可以在这里显示标签吗?
是条形图。
output$bar<-{(renderPlot(barplot(data_percent,names.arg =tableData$Country,col=rainbow(length(tableData$Country)))) )}
【问题讨论】:
这是一个带有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)
【讨论】: