Créer la légende dans R avec les mêmes valeurs de couleur RVB comme intrigue?

J'ai créé un simple nuage de points dans R spécifiques avec des valeurs de couleur RVB comme ceci:

plot(shuffled, p_val, pch=19, col="black", xlim=c(0,100), ylim=c(0,1))
points(ri, p_val, pch=19, col=rgb(96,123,139, 50, maxColorValue=255), 
       xlim=c(0,100), ylim=c(0,1))
points(somo, p_val, pch=19, col=rgb(225,64,5, 50, maxColorValue=255), 
       xlim=c(0,100), ylim=c(0,1))

Je voudrais utiliser les mêmes valeurs de couleur dans le code ci-dessus pour générer une figure de légende. Le code, je suis en utilisant ressemble à ça, mais je n'arrive pas à comprendre comment assortir les couleurs du graphique des points.

legend("topright", c("Shuffled", "Riffled", "Somosome"), cex=1.0, bty="n", 
       c("black",col=rgb(96,123,139, 50, maxColorValue=255),col=rgb(225,64,5, 50, maxColorValue=255))

Quelqu'un peut-il aider? Quel est le problème avec ma légende? Merci!

Pas un exemple reproductible puisque nous n'avons pas votre mélangées, ri, somo, et p_val éléments de données. Rendre la vie plus facile pour les aides en donnant le code on peut les couper et les coller directement dans.
Pouvez-vous dire ce qui ne va pas avec la sortie? Aussi, je pense que votre legend appel a quelques fautes de frappe: manque un ) peut-être et vous souhaitez probablement étiquette que tout dernier argument col = .

OriginalL'auteur drbunsen | 2011-10-30

  1. 7

    Cela fonctionne pour moi:

    plot(1:3,
    col=c("black",rgb(96,123,139, 50, maxColorValue=255),
               rgb(225,64,5, 50,maxColorValue=255)),pch=19)

legend("topright", c("Shuffled", "Riffled", "Somosome"), cex=1.0, bty="n",
   col=c("black",rgb(96,123,139, 50, maxColorValue=255),
      rgb(225,64,5, 50, maxColorValue=255)),pch=19)

    Remarque: vous devez spécifier un vecteur de col=, la taille de vos étiquettes, et vous devez également avoir un pch= là aussi. Sinon, vous pouvez faire fill=[vecteur de couleurs] pour dessiner des boîtes remplies.

    Merci!!!! J'ai laissé de côté le pch=19 argument de la fin, c'est ce que je pense que le problème a été.

    OriginalL'auteur Spacedman

  2. 1

    Le problème, c'est que vous êtes la concaténation d'une de la R de couleur mot-clé, "noir", avec le code hexadécimal de la couleur des touches. Quelque chose comme ceci devrait fonctionner:

    colvec <- rgb(rbind(t(col2rgb("black")), ## this is obviously just 0, 0, 0
                    c(96,123,139),
                    c(225,64,5)),
              alpha=50,max=255)

plot(shuffled, p_val, pch=19, col=colvec[1], xlim=c(0,100), ylim=c(0,1))
points(ri, p_val, pch=19, col=colvec[2], 
       xlim=c(0,100), ylim=c(0,1))
points(somo, p_val, pch=19, col=colvec[3], 
       xlim=c(0,100), ylim=c(0,1))
legend("topright", c("Shuffled", "Riffled", "Somosome"), cex=1.0, bty="n",
       col=colvec)

    OriginalL'auteur hatmatrix