Discussion :

[bellasassou]

Bonjour,
J'ai un problème concernant l'usage du package Shiny sous R et je souhaite votre aide.
Je souhaite afficher les valeurs de différentes variables (var1, var2...) en variant à chaque fois les années:

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
ui.R
library(shiny)
library(datasets)
 
# Use a fluid Bootstrap layout
fluidPage(    
 
  # Give the page a title
  titlePanel("Commerce Tunisien"),
 
  # Generate a row with a sidebar
  sidebarLayout(      
 
    # Define the sidebar with one input
    sidebarPanel(
      selectInput("annee", "Annee:",choices = c("1997","1998","1999","2000","2001","2002","2003","2004","2005","2006","2007","2008","2009","2010","2011","2012","2013","2014")),
      br(),
      radioButtons("color","Choisir un couleur",choices = c("lightcoral","lightseagreen","springgreen3"),selected ="lightcoral" )
    ),
 
    # Create a spot for the barplot
    mainPanel(
      plotOutput("myplot")  
    )
 
  )
)
 
 
Server
library(shiny)
library(datasets)
 
# Define a server for the Shiny app
function(input, output) {
 
  # Fill in the spot we created for a plot
  output$myplot <- renderPlot({
 
  plot(
       datanv[,input$annee]*1000, 
       main=input$annee,
       ylab="Valeur",
       xlab="Variable", col =input$color)
 
 
   })
}

Mais le résultat n'est pas claire.

Merci infiniment

[Alpacky]

bonjour,

j'ai fait tourner votre code en lisant les données et je n'obtiens pas le même graphique,
voici comment j'ai traité les données (datanv), j'ai copié votre xls,

Code :

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

1
2
3
4
5
6
 
datanv <- cbind(c(42012.8, 36328.2, 546.9, 109.4),	
                c(39505.5, 35292.6, 364.1,  91.1),	
                c(38178.0, 14154.4, 364.0,  61.0))
rownames(datanv) <- c("Importation", "Exportation", "Formation brute de capital", "Impots sur production")
colnames(datanv) <- c(2014, 2013, 2012)

pour moi le graphique est clair même s'il manque des labels et si les points sont trop petits
quelle est votre question finalement ?

[bellasassou]

Merci pour votre réponse et désolé pour le retard.
Ce que je veux c'est de représenter un barplot pour chaque année (sur l'axe x:les noms des variable et sur l'axe des y : la valeur de chaque variable) mais j'ai pas réussi.
J'espère que vous pouvez m'aider.

[Alpacky]

Bonjour,

pour faire un barplot vous pouvez juste remplacer la fonction plot dans server par la fonction barplot et vous devriez obtenir ce que vous souhaitez,

cdt,
vincent