Barre de couleur de la coutume colorRampPalette

J'ai défini un colorRampPalette:

my.colors = colorRampPalette(c("light green", "yellow", "orange", "red"))

Comment puis-je tracer une barre de couleur "légende" objet pour cela, de préférence en utilisant uniquement les paquets de base? Je suis après un rectangle rempli avec ce dégradé de couleurs.

Ce que je suis vraiment après est une façon de produire le même type de légende (barre de couleur) qui est représentée par un "raster" raster:

require(raster)
plot(raster("myfile.tif"), legend=T)

J'ai besoin d'être en mesure de placer cela sur une autre parcelle.

C'est drôle comment cela est difficile à faire dans la base de R. Habituellement R a tellement de magie, mais apparemment pas pour colorbars. Je suppose que les statisticiens ne pensez en noir et blanc? haha

OriginalL'auteur Benjamin | 2012-02-16

  1. 24

    J'ai fait une belle flexible en fonction y a quelques temps pour ce faire.

    # Function to plot color bar
color.bar <- function(lut, min, max=-min, nticks=11, ticks=seq(min, max, len=nticks), title='') {
    scale = (length(lut)-1)/(max-min)

    dev.new(width=1.75, height=5)
    plot(c(0,10), c(min,max), type='n', bty='n', xaxt='n', xlab='', yaxt='n', ylab='', main=title)
    axis(2, ticks, las=1)
    for (i in 1:(length(lut)-1)) {
     y = (i-1)/scale + min
     rect(0,y,10,y+1/scale, col=lut[i], border=NA)
    }
}

    Ensuite, vous pouvez faire quelque chose comme:

    > color.bar(colorRampPalette(c("light green", "yellow", "orange", "red"))(100), -1)

    Barre de couleur de la coutume colorRampPalette

    Plus d'exemples au: http://www.colbyimaging.com/wiki/statistics/color-bars

    Votre axe est plus agréable que la mienne. +1.
    Si vous sortez de la dev.nouveau, vous pouvez utiliser l'intrigue secondaire de l'emballage:Hmisc à la superposition de ce sur les parcelles existantes.

    OriginalL'auteur John Colby

  2. 9

    Faire une matrice, utilisation de l'image avec certains axes paramètres...

    my.colors = colorRampPalette(c("light green", "yellow", "orange", "red"))
z=matrix(1:100,nrow=1)
x=1
y=seq(3,2345,len=100) # supposing 3 and 2345 are the range of your data
image(x,y,z,col=my.colors(100),axes=FALSE,xlab="",ylab="")
axis(2)

    Barre de couleur de la coutume colorRampPalette

    OriginalL'auteur Spacedman

  3. 4

    barre de couleur.plot() dans les champs du paquet est une solution standard. Beaucoup de gens seront à la recherche ici pour des solutions qui place la légende en dehors de la norme, surface de terrain ou l'original de x/y de la gamme. Cette limitation de la barre de couleur.plot() est facilement vaincu par:

    1. traçage de votre image(),
    2. l'expansion de la taille de la parcelle de l'appareil nominale(pin = c(largeur, longueur))
    3. l'appel de barre de couleur.plot() à l'aide de x et y les valeurs

    Parce que la zone de la parcelle de l'appareil est maintenant élargi, la légende apparaît à l'extérieur de l'image d'origine() de la parcelle. Expérimenter avec des valeurs x et y des terres de la légende où vous le souhaitez. Le gradient de la légende peut être horizontale ou à la verticale en utilisant la norme argument options.

    Oui, mais vous devez aussi le "strip" argument et jusqu'à présent, il n'est pas aussi simple que cela devrait être à comprendre. Un travail exemple de code est habituellement une partie d'une bonne réponse.

    OriginalL'auteur Brad Horn

  4. 0

    Je sais que c'est une très vieille question, et les réponses sont tous des grands. Je voulais juste faire remarquer que vous pourriez tout simplement lisser la couleur de la barre de levelplot.

    Des faux de données et un dégradé de couleur

    mat = matrix(rnorm(400,1,1), ncol=20)
grad = rev(rainbow(1000, start=rgb2hsv(col2rgb('green'))[1], 
       end=rgb2hsv(col2rgb('blue'))[1]))

    Faire de la parcelle et de spécifier les pauses dans la barre de couleur

    levelplot(mat, col.regions=grad, colorkey = list(at=seq(0,max(mat),length.out=400)))

    Cette fonctionnalité pour levelplot peuvent avoir été ajoutés longtemps après que tous les gens sont venus avec sweet solutions de rechange.

    OriginalL'auteur Tad Dallas