Discussion :

[marou1991]

Bonjour,

Ci-joint mon code:

Code :

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

1
2
3
4
5
6
7
8
9
 
df = data.frame(  y = rep("fffffffffffffffffffffffffffffffffffffffffffffffffffffff" , 10) ,x = rep(1,10))
plot( gvisPieChart( df ,
                    options=list(
                      title='Répartion des ventes produits',
                      legend='out', 
                      pieSliceText='label' , width=500, height=500, 
                      pieHole=0.2)
))

j'aimerai afficher toute la totalité de mes noms du champ y svp. ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff au lieu de ffffffffffffffffffffff....

[Alpacky]

salut,

plusieurs méthodes possibles, tu peux jouer sur la taille du graphique, la taille du camembert, la taille du texte... https://developers.google.com/chart/...llery/piechart ca se passe ici pour les options!
le plus simple est d’augmenter la largeur du plot je dirai: rajoute width=1000 par exemple

a+

[marou1991]

Bonjour,

Déjà essayé ! Ca marche quand je veux juste le png. Mais quand je mets dans un dashboard shiny si j'augmente le width ca va pas rentrer dans ma page.

[Alpacky]

ok, difficile de deviner que le code devait être fonctionnel dans une app shiny à partir de la question... peux-tu détailler ton problème?
Le problème vient peut être du fait que le graphique ne s'adapte pas à ta fenêtre https://stackoverflow.com/questions/...-window-resize.
Difficile d'en dire plus sans information complémentaire...
Cependant pour réactualiser ton graphique quand la fenêtre est redimensionnée, tu peux ajouter une dépendance à un autre plot (ici j'ai fait une box vide). J'ai aussi redimensionné le texte de la légende.

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
 
library(shiny)
library(shinydashboard)
library(googleVis)
 
df <- data.frame(
  y = rep("fffffffffffffffffffffffffffffffffffffffffffffffffffffff", 10),
  x = rep(1,10)
)
 
ui <- dashboardPage(
  dashboardHeader(title = "google vis"),
  dashboardSidebar(disable = TRUE),
  dashboardBody(
    fluidRow(
      box(
        status = "primary",
        width = 11, height = 500,
        htmlOutput("gvis")
      ),
      # fake plot to rescale
      box(
        status = "warning",
        width = 1,
        plotOutput("toto")
      )
    )
  )
)
 
server <- function(input, output, session) { 
    output$gvis <- renderGvis({
      # to rescale the plot
      session$clientData$output_toto_width
      # draw the plot
      gvisPieChart(chartid = "test", df, 
        options = list(
          title  = 'Répartion des ventes produits',
          legend = "{position: 'left', textStyle: {color: 'blue', fontSize: 12}}", 
          pieSliceText = 'label', 
          pieHole = 0.2, width = "100%", height = "500"
        )
      )
    })
}