L'ajout de la clé de la légende de multi-histogramme de l'intrigue dans les R

Comment puis-je ajouter une touche de légende au-dessous de la parcelle

L'ajout de la clé de la légende de multi-histogramme de l'intrigue dans les R

Je désire avoir une clé de la légende, quelque part dans le coin supérieur droit avec deux courts de couleur horizontale bars, où le rouge, devrait-on dire "la chirurgie Plastique est mal passé" et le bleu on devrait dire "l'Allemagne".

J'ai utilisé le code suivant pour produire de la parcelle:

bar2 <- read.table("div/ana-mut[...]/barriers-set-2.dat", sep=" ")
bar2val <- c(bar2$V1, bar2$V2)
bar3 <- read.table("div/ana-mut[...]/barriers-set-3.dat", sep=" ")
bar3val <- c(bar3$V1, bar3$V2)
p1 <- hist(subset(bar2val, bar2val < 30), breaks=30)
p2 <- hist(subset(bar3val, bar3val < 30), breaks=30)
plot(p1, col=rgb(1,0,0,8/9), main="Barrier distribution", xlab="Barrier [kcal/mol]", ylab="Mutant count")
plot(p2, col=rgb(0,0,1,8/9), add=T)

Tous les conseils seraient grandement appréciés.

  • Un couple de points. D'abord merci de formuler votre question reproducible. Aussi, montrez-nous ce que vous avez essayé.
InformationsquelleAutor TMOTTM | 2013-02-04
  1. 17

    La légende de commande fera l'affaire:

    legend("topright", c("Germany", "Plastic"), col=c("blue", "red"), lwd=10)

    Pour obtenir les deux manches horizontale, barres de couleur suffit d'utiliser l'un de ligne standard, mais augmentation de l'épaisseur de la ligne. Comme Roland souligné, vous pouvez également utiliser le fill argument:

    legend("topright", c("Germany", "Plastic"), fill=c("blue", "red"))

    Voir ?legend pour plus de détails.

    L'ajout de la clé de la légende de multi-histogramme de l'intrigue dans les R

    • Pour un histogramme je voudrais utiliser le fill paramètre pour dessiner des boîtes plutôt que de lignes dans la légende.
    • Bon point, merci.
    • Grâce csgillespie. Cela devrait être suffisant pour mes besoins.
    InformationsquelleAutor csgillespie
  2. 2

    ici est une solution alternative (voir ci-dessous pour le code)

    L'ajout de la clé de la légende de multi-histogramme de l'intrigue dans les R

    # some semi-random data …
df <- structure(list(Germany = c(1L, 3L, 6L, 1L, 2L), Plastic = c(2L, 
5L, 4L, 2L, 3L)), .Names = c("Germany", "Plastic"), class = "data.frame", row.names = c(NA, 
-5L))

# Expand right side of clipping rect to make room for the legend
par(xpd=T, mar=par()$mar+c(0,0,0,4))

# Graph data (transposing the matrix) using heat colors,  
# put 10% of the space between each bar, and make labels  
# smaller with horizontal y-axis labels
barplot(t(df), main="Barrier distribution", xlab="Barrier [kcal/mol]", ylab="Mutant count", 
   col=c("blue", "red"), space=0.1, cex.axis=0.8, las=1,
   names.arg=c("Mon","Tue","Wed","Thu","Fri"), cex=0.8) 

# Place the legend at (4,9) using blue and red
legend(4, 9, names(df), lwd=4, col=c("blue", "red"))

# Restore default clipping rect
par(mar=c(5, 4, 4, 2) + 0.1)
    • A cette réponse utile d'une quelconque façon?
    InformationsquelleAutor Eric Fail