dégradé de rouges au lieu de gris

[Elsa Bussière]

Bonjour,
Voici le code de mon graphique :

p_192<-matrix(p[c(12097:12672)],byrow=T,ncol=24)
image(x, y, p_192, col = gray(seq(1,0.9,0.8,0.7,0.6,0.5,0.4,0.3,0.2,0.1,0)), axes = FALSE)
box()

Mon graphique est une grille dont chaque carré est coloré d'une teinte de gris différente selon la valeur associée.

J'aimerais la même chose mais avec des teintes de rouge et non pas de gris!

Merci beaucoup

[Aline Deschamps]

Bonjour,

Il est peut-être possible de faire plus simplement, mais sinon, voir du côté de la fonction " colorRampPalette " par exemple, pour créer un dégradé dans des couleurs chosies.


Cordialement,

A.D.

[Elsa Bussière]

Merci,
j'y ai pensé, mais je ne vois pas comment je pourrais insérer la fonction ColorRampPalette avec la fonction image.

J'ai essayé :

p_703<-matrix(p[c(40321:40896)],byrow=T,ncol=24)
image(x, y, p_703, col = colorRampPalette("red"), axes = FALSE)
box()
title(main = "Cape Longclaw - Low reporting rate and smooth", font.main = 4)

mais R me dit que "col" doit être un nombre ou un chaîne de caractère.

[Aline Deschamps]

Voir l'aide :

Code : Tout sélectionner

?colorRampPalette

En effet, un objet créé à l'aide de "colorRampPalette" sera une fonction.
Pour votre cas, procéder par exemple avec quelque chose de la sorte :

Code : Tout sélectionner

mycol<-colorRampPalette(c("red","darkred"))
image(x,y,z,col=mycol(200),axes=FALSE)


Cordialement,

A.D.


PS: Merci de mettre votre code entre balises "codes" pour plus de lisibilité.

[Elsa Bussière]

Merci beaucoup, ca marche très bien comme ça.
Et oui, je ferai attention de baliser mes codes à l'avenir.
Merci

[Serge Rapenne]

Bonjour,

Il semble que je ne sois pas le seul à bosser aujourd'hui, ça me met un peu de baume au cœur ;-)

Pour compléter la réponse d'Aline. Un document avec le nom des couleurs disponibles sous R est téléchargeable ici : http://research.stowers-institute.org/efg/R/Color/Chart/ColorChart.pdf

ce qui permet d’écrire par exemple

Code : Tout sélectionner

colorRampPalette(c("lightpink","indianred4")

ce qui est difficile à coder au hasard :-)

Serge

[Elsa Bussière]

Oui merci,
ce sont des couleurs plus douces, c'est bien mieux!
Merci pour le lien.

[Alexis Thieullen]

Bonjour,

Juste pour apporter une autre possibilité (et accessoirement pour signaler que je bosse également aujourd'hui...) :

Code : Tout sélectionner

hist(rnorm(100), col = rgb((0:15)/15, green=0, blue=0))

te permets de créer ton propre dégradé.

Alexis