gvisPieChart Option googleViz

Bonjour,

Ci-joint mon code:

Code:

---

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....

Pièce jointe 444162

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+

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.

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:

---

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

---