Graphique R shiny

Bonjour,
Je suis étudiante et j'ai un projet en R shiny mais j'ai quelques difficultés.
Je souhaite faire un graphique du nombre d'établissement par département en fonction de la catégorie d'établissement qui sera séléctionner dans une liste déroulante.

Mais je n'arrive pas vraiment à faire le graphique
J'ai pour le moment fais ce code qui me retourne un graphique vide.

cate --> est une liste des catégorie d'établissement

Server :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

# Define a server for the Shiny app function(input, output) {   # Fill in the spot we created for a plot output$phonePlot <- renderPlot({   # Render a barplot barplot(table(data$Dep[data$cate_etabllissement]), main = "titre", ylab =" Nombre d'établissement", xlab = "Département",xlim = c(0,100), ylim = c(0,100)) }) }

---

Ui :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

# Use a fluid Bootstrap layout fluidPage(   # Give the page a title titlePanel("Graphique"),   # Generate a row with a sidebar sidebarLayout(   # Define the sidebar with one input sidebarPanel( selectInput("dep", "Département:", choices=(cate)),   ),   # Create a spot for the barplot mainPanel( plotOutput("phonePlot") )   ) )

---

En espérant que c'est assez clair. N'hésitez pas si vous voulez plus de précisions.
Merci pour votre aide ;)

Solution :


server :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

function(input, output) {     output$phonePlot <- renderPlot({     barplot(table(data$nom_offi_dpt[input$dep==data$cat_etablissement]), main = " catégorie d'établissement", xlab = input$dep, xlim = c(0,8), ylim = c(0,200), col = cm.colors(8), legend.text = T )   }) }

---

iu :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

fluidPage(     titlePanel("Catégorie en fonction du département"),     sidebarLayout(     sidebarPanel( selectInput("dep", "Département:", choices=(data$cat_etablissement[-which(duplicated(data$cat_etablissement))] )), ),   # Create a spot for the barplot mainPanel( plotOutput("phonePlot") )   ) )

---