Comment changer la couleur de la valeur de clé dans heatmap.2?

Comment changer la couleur de la valeur de clé dans heatmap.2?

Comme la capture ci-dessus a montré, j'ai utilisé la fonction heatmap.2() ici.

comment puis-je changer "Valeur " dans le codage couleur de la barre de tout autre nom?

Il est possible d'utiliser les données de gplots package:

 library(gplots)

 data(mtcars)

 x  <- as.matrix(mtcars)

 rc <- rainbow(nrow(x), start=0, end=.3)

 cc <- rainbow(ncol(x), start=0, end=.3)

 heatmap.2(x, key=TRUE)

Merci beaucoup 🙂

heatmap2() ou heatmap.2(), je veux juste être clair.
merci, c'est heatmap.2()
Pire des cas, vous pouvez l'enregistrer en tant que pdf, ouvrir dans un éditeur de graphiques vectoriels comme Inkscape ou Illustrator, et de modifier le texte "à la main".

OriginalL'auteur Matt | 2012-10-24

  1. 2

    C'est codé en dur. Vous aurez besoin de le changer dans le code. Il apparaît, à mi-chemin en bas de la section qui attire la clé et la ligne est:

    else mtext(side = 1, "Value", line = 2)

    C'est la section de la heatmap.2 du code qui crée la clé (au moins jusqu'au point où le mot "Valeur" s'affiche) :

     if (key) {
par(mar = c(5, 4, 2, 1), cex = 0.75)
tmpbreaks <- breaks
if (symkey) {
max.raw <- max(abs(c(x, breaks)), na.rm = TRUE)
min.raw <- -max.raw
tmpbreaks[1] <- -max(abs(x), na.rm = TRUE)
tmpbreaks[length(tmpbreaks)] <- max(abs(x), na.rm = TRUE)
}
else {
min.raw <- min(x, na.rm = TRUE)
max.raw <- max(x, na.rm = TRUE)
}
z <- seq(min.raw, max.raw, length = length(col))
image(z = matrix(z, ncol = 1), col = col, breaks = tmpbreaks, 
xaxt = "n", yaxt = "n")
par(usr = c(0, 1, 0, 1))
lv <- pretty(breaks)
xv <- scale01(as.numeric(lv), min.raw, max.raw)
axis(1, at = xv, labels = lv)
if (scale == "row") 
mtext(side = 1, "Row Z-Score", line = 2)
else if (scale == "column") 
mtext(side = 1, "Column Z-Score", line = 2)
else mtext(side = 1, "Value", line = 2)
.... lots more code below

    Vous devez taper heatmap.2 , puis copier le code source d'un éditeur, puis utiliser la fonction de recherche pour trouver la "Valeur". Changez la "Valeur" à quelque chose d'autre (entre guillemets), puis tapez heatmap.2 <- et le coller dans le code et appuyez sur return. (Sauf si vous enregistrez ce qu'il va seulement durer aussi longtemps que la session se poursuit.)

    Non,merci DWin..
    Oh, Vous avez juste pris une capture d'écran de la couleur-clé plutôt que de montrer la totalité de la parcelle. Je vais modifier.
    J'ai juste essayé de trouver la ligne dans le code source, mais je ne pouvais pas. Pouvez-vous accéder au fichier source?
    Il suffit de taper: heatmap.2 ... le code source n'est pas caché. Je vais poster une grande quantité de contexte.
    OK, merci. heatmap.3 dans gist.github.com/3853004 peut aussi fonctionner avec un grand nombre de codes.

    OriginalL'auteur 42-

  2. 8

    La fonction heatmap.2 peuvent avoir changé depuis @BondedDust répondu, mais son maintenant possible de changer facilement la heatmap.2 étiquettes de touches via:

    key.xlab="New value"

    Tout d'abord, votre code ci-dessus (en utilisant les couleurs standard):

    library(gplots)
data(mtcars)
x  <- as.matrix(mtcars)
heatmap.2(x,key=TRUE)

    Comment changer la couleur de la valeur de clé dans heatmap.2?

    Maintenant, remplacez le x et le y des étiquettes:

    library(gplots)
data(mtcars)
x  <- as.matrix(mtcars)
heatmap.2(x, key=TRUE , key.xlab="New value", key.ylab="New count")

    Comment changer la couleur de la valeur de clé dans heatmap.2?

    OriginalL'auteur milo