La coloration des points de dans une des paires de la parcelle

Je voudrais la couleur des points de dans une des paires de la parcelle en fonction de certaines ligne index. Voici le code que j'ai utilisé pour le traçage 1 variable par rapport à une autre. 

cases<-which(rownames(data_no_na) %in% colnames(tumor_data))
controls<-which(rownames(data_no_na) %in% colnames(control_data))

plot(y=range(pca[,1]),x=range(pca[,2]),type='n',xlab="Principle Component 2",ylab="Principle Component 1", main="Iterative Thresholding Sparse PCA")

points(y=pca[cases,1], x=pca[cases,2], col = 'red' )
points(y=pca[controls,1], x=pca[controls,2], col = 'blue' );

Un simple paires intrigue est quelque chose comme:

pairs(pca[,1:3])

EDIT: EXEMPLE:

cases<-1:10
controls<-11:20

pca<-matrix(c(rnorm(3*10,0,1),rnorm(3*10,5,1)),nrow=20,ncol=3)
  • Vous devez donner un exemple reproductible.
  • Ce qui signifie que nous avons besoin de voir la sortie de vos données réelles ou certaines données factices qui peuvent illustrer le graphique ci-dessus. Essayez de coller à la sortie de dput( head( cases ) ) & dput( head( controls ) ) si vos données ne contiennent pas beaucoup de beaucoup de colonnes.
  • Salut à tous! Veuillez faire votre post reproductible par avoir un coup d'oeil à Comment faire un grand reproductible exemple pour nous de vous aider. Je vous remercie.
  • Merci les gars, je vais mettre un exemple reproductible.
InformationsquelleAutor bdeonovic | 2013-03-24
  1. 21

    Quelque chose comme cela?

    cols <- character(nrow(iris))
cols[] <- "black"

cols[iris$Species %in% c("setosa","versicolor")] <- "blue"
cols[iris$Species == "virginica"] <- "red"
pairs(iris,col=cols)
    • Oui, vous pouvez faire de même pour les formes.
    InformationsquelleAutor Roland
  2. 2

    Je ne sais pas si @Roland 's réponse travaille dans une version, mais au moins dans mon Windows R 3.4.2, il ne le fait pas.

    La fonction paires prend de nombreux arguments. Certains sont utilisés pour indiquer que la fonction de carte de la diagonale, le haut et le bas des panneaux. Par défaut, il utilise la parcelle (points) de la fonction.

    Cette fonction a un paramètre bg utilisé pour spécifier la couleur de fond de marqueurs qui, comme pch = 21.

    Aussi, le mappage des couleurs peut être fait de manière beaucoup plus efficace avec sans classification. Par exemple, avec deux niveaux de facteur variable:

    colors <- c('black', 'red')[unclass(factor_variable)]

    Puis, cela fait la magie:

    pairs(data, bg=colors)
    InformationsquelleAutor Mr. Duhart