Diagramme à barre horizontale comme support visuel de couches de neige

Postez ici vos questions, réponses, commentaires ou suggestions - Les sujets seront ultérieurement répartis dans les archives par les modérateurs

Modérateur : Groupe des modérateurs

mathieu bernier
Messages : 8
Enregistré le : 24 Fév 2019, 22:26

Diagramme à barre horizontale comme support visuel de couches de neige

Messagepar mathieu bernier » 25 Fév 2019, 16:19

Bonjour,

Je suis nouveau sur le forum, donc n'hésitez pas à me dire s'il manque des informations dans ma question.

Donc, j'ai ici des données selon différentes couches de neige (couche, épaisseur (cm), densité de la neige, lieu et la capacité d'isolation (IC)). J'aimerais faire un diagramme à barre horizontale comme support visuel. J'aimerais que les barres horizontales couvrent toute la largeur du graphique. J'aimerais que la largeur varie selon l'épaisseur de celles-ci. Si possible, mais pas nécessairement obligé, j'aimerais aussi avoir la capacité d'isolation (CI) à droit qui suit l'épaisseur des couches de neiges.

J'ai cherché sur le web et j'ai essayé quelques trucs, mais sans succès. Y aurait-il quelqu'un d'entre vous qui aurait une idée de comment faire ce genre de graphique?

J'ai mit une photo du graphique, fait à la main, que j'aimerais réussir à créer en bas de la page.

INFORMATION

profillage.mixte
couche epaisseur densité lieu CI
1 /1 / 2 / 0.2375 /mixte / 8.421053
2 /2 /17 /0.1500 /mixte /113.333333
3 /3 /10 /0.2375 /mixte /42.105263
4 /4 /5 /0.1125 /mixte /44.444444
5 /5 / 10 /0.0750 /mixte /133.333333

MON ESSAIE

tiff("graphique1.tiff", res=300, width=2000, height=2000)

par(mar=c(5, 5, 1, 1))

graphique1 <- barplot(profillage.mixte$epaisseur, horiz=T, ylab="Épaisseur (cm)", xlab="Mixte", main="", type="l", cex.axis=1.5, cex.lab=1.5)

dev.off()

CE QUE J'AIMERAIS

https://www.cjoint.com/c/IBzqjQHfXa1

Gabriel Terraz
Messages : 591
Enregistré le : 26 Sep 2011, 15:11

Re: Diagramme à barre horizontale comme support visuel de couches de neige

Messagepar Gabriel Terraz » 25 Fév 2019, 19:25

Salut,

Pour commencer :

Code : Tout sélectionner

par(mar = c(5,4,4,4))
barplot(matrix(tab$epaisseur), yaxt = "n")
axis(2, at = cumsum(tab$epaisseur))
axis(4, at = cumsum(tab$epaisseur), label = round(cumsum(tab$CI)))

mathieu bernier
Messages : 8
Enregistré le : 24 Fév 2019, 22:26

Re: Diagramme à barre horizontale comme support visuel de couches de neige

Messagepar mathieu bernier » 25 Fév 2019, 19:59

Salut merci beaucoup de m'aidé :)

par(mar = c(5,4,4,4)) > par(mar = c(5,4,4,4))
barplot (matrix(profillage.mixte$epaisseur), yaxt = "n") > barplot (matrix(profillage.mixte$epaisseur), yaxt = "n")

Jusqu'ici ca va bien, j'ai les barres horizontales selon les valeurs des mes épaisseurs...

axis(2, at=cumsum(profillage.mixte$epaisseur) )> axis(2, at=cumsum(profillage.mixte$epaisseur)) Error in axis(2, at = cumsum(profillage.mixte$epaisseur)) : plot.new has not been called yet

mathieu bernier
Messages : 8
Enregistré le : 24 Fév 2019, 22:26

Re: Diagramme à barre horizontale comme support visuel de couches de neige

Messagepar mathieu bernier » 25 Fév 2019, 20:03

C'est parce que je n'avais pas encore créé d'objet pour mon graphique! Ça fonctionne bien merci beaucoup!

mathieu bernier
Messages : 8
Enregistré le : 24 Fév 2019, 22:26

Re: Diagramme à barre horizontale comme support visuel de couches de neige

Messagepar mathieu bernier » 25 Fév 2019, 20:23

En fait, il y a quelque chose que j'essaye de faire mais que je ne suis pas capable. Je voudrais que les axes débutent à 0 au lieu du premier chiffre.

Image

Gabriel Terraz
Messages : 591
Enregistré le : 26 Sep 2011, 15:11

Re: Diagramme à barre horizontale comme support visuel de couches de neige

Messagepar Gabriel Terraz » 26 Fév 2019, 19:02

Salut,

Avec une simple modif :

J'ai ajouté les titres des axes aussi

Code : Tout sélectionner

par(mar = c(5,5,4,5))
barplot(matrix(tab$epaisseur), yaxt = "n")
axis(2, at = c(0,cumsum(tab$epaisseur)))
axis(4, at = c(0,cumsum(tab$epaisseur)), label = round(c(0,cumsum(tab$CI))))
mtext(side = 4, las = 3, "Titre axe droit", line = 3, cex= 1.5)
mtext(side = 2, las = 3, "Titre axe gauche", line = 3, cex= 1.5)


Retourner vers « Questions en cours »

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité