Realizo la siguiente app pero en el gráfico de barras no consigo poner el nombre debajo de las barras.
library(shiny)
library(shinydashboard)
sidebar <- dashboardSidebar(
sidebarMenu(id="sbmenu",
menuItem("Apartado1",tabName = "DR" ,
menuSubItem('Resumen Apartado1', tabName = 'menu11'),
menuSubItem('Apartado 2', tabName = 'menu12'),
menuSubItem('Apartado 3', tabName = 'menu13')
),
menuItem("menu2_",tabName = "menu2" ,
menuSubItem('Sub Menu 1', tabName = 'menu21'),
menuSubItem('Sub Menu 2', tabName = 'menu22'),
menuSubItem('Sub Menu 3', tabName = 'menu23')
),
menuItem("menu3_",tabName = "menu3" ,
menuSubItem('Sub Menu 1', tabName = 'menu31'),
menuSubItem('Sub Menu 2', tabName = 'menu32'),
menuSubItem('Sub Menu 3', tabName = 'menu33')
),
menuItem("menu4_",tabName = "menu4" ,
menuSubItem('Sub Menu 1', tabName = 'menu41'),
menuSubItem('Sub Menu 2', tabName = 'menu42'),
menuSubItem('Sub Menu 3', tabName = 'menu43')
),
menuItem("menu5_",tabName = "menu5" ,
menuSubItem('Sub Menu 1', tabName = 'menu51'),
menuSubItem('Sub Menu 2', tabName = 'menu52'),
menuSubItem('Sub Menu 3', tabName = 'menu53')
),
menuItem("menu6_",tabName = "menu6",
menuSubItem('Sub Menu 1', tabName = 'menu61'),
menuSubItem('Sub Menu 2', tabName = 'menu62'),
menuSubItem('Sub Menu 3', tabName = 'menu63')
),
menuItem("menu7_",tabName = "menu7",
menuSubItem('Sub Menu 1', tabName = 'menu61'),
menuSubItem('Sub Menu 2', tabName = 'menu62'),
menuSubItem('Sub Menu 3', tabName = 'menu63')
),
menuItem("menu8_",tabName = "menu8",
menuSubItem('Sub Menu 1', tabName = 'menu61'),
menuSubItem('Sub Menu 2', tabName = 'menu62'),
menuSubItem('Sub Menu 3', tabName = 'menu63')
)
)
)
body <- dashboardBody(
tabItems(
tabItem("menu11",h1("Apartado 1"), tabsetPanel(type = "tabs",
tabPanel("Comidas",fluidRow(
checkboxGroupInput("Comidas_DR", "Comidas DR", inline = TRUE,
table(factor(c(rep("Peras", 1000), rep("Naranjas", 560),
rep("Platanos", 2100), rep("Uvas", 700), rep("Melon", 1500),
rep("Sandia", 750), rep("Melocoton", 2200), rep("Pomelo", 1050),
rep("Fresa", 1250)), levels = c("Peras","Naranjas","Platanos","Uvas","Melon","Sandia",
"Melocoton","Pomelo","Fresa")))
),
title = "Grafico",
plotOutput(outputId = "barplot1")
))
)),
tabItem("menu12",h1("Pagina 2 en construccion")),
tabItem("menu13",h1("Pagina 3 en construccion")),
tabItem("menu21",h1("Pagina 1 en construccion")),
tabItem("menu22",h1("Pagina 2 en construccion")),
tabItem("menu23",h1("Pagina 3 en construccion")),
tabItem("menu31",h1("Pagina 1 en construccion")),
tabItem("menu32",h1("Pagina 2 en construccion")),
tabItem("menu33",h1("Pagina 3 en construccion")),
tabItem("menu41",h1("Pagina 1 en construccion")),
tabItem("menu42",h1("Pagina 2 en construccion")),
tabItem("menu43",h1("Pagina 3 en construccion")),
tabItem("menu51",h1("Pagina 1 en construccion")),
tabItem("menu52",h1("Pagina 2 en construccion")),
tabItem("menu53",h1("Pagina 3 en construccion")),
tabItem("menu61",h1("Pagina 1 en construccion")),
tabItem("menu62",h1("Pagina 2 en construccion")),
tabItem("menu63",h1("Pagina 3 en construccion")),
tabItem("menu71",h1("Pagina 1 en construccion")),
tabItem("menu72",h1("Pagina 2 en construccion")),
tabItem("menu73",h1("Pagina 3 en construccion")),
tabItem("menu81",h1("Pagina 1 en construccion")),
tabItem("menu82",h1("Pagina 2 en construccion")),
tabItem("menu83",h1("Pagina 3 en construccion"))
)
)
ui <- dashboardPage(
dashboardHeader(title = 'Comidas', titleWidth = 290),
sidebar,
body
)
server <- function(input, output) {
observe(print(input$sbmenu))
output$barplot1 <- renderPlot({
barplot(as.numeric(input$Comidas_DR),
xlim = c(0, 10), ylim = c(0, 2500),col = rainbow(9),
names.arg = names(input$Comidas_DR))
grid()
})
}
shinyApp(ui,server)
La interfaz de este ejemplo sería:
Quisiera incorporar las etiquetas de cada selección debajo de cada barra, lo he intentado mediante names.arg = names(input$Comidas_DR)
pero sin éxito.