Discussion :

[Wallentyne]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Wallentyne]

Solution :


server :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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")  
    )
 
  )
)