配对图中的着色点 [英] Coloring points in a pairs plot

问题描述

我想根据某些行索引对成对图中的点进行着色.这是我用来绘制 1 个变量与另一个变量的代码.

I would like to color points in a pairs plot based of certain row indexes. Here is the code I used for plotting 1 variable against another.

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' );

一个简单的配对图是这样的:

A simple pairs plot is something like:

pairs(pca[,1:3])

示例:

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

pca<-matrix(c(rnorm(3*10,0,1),rnorm(3*10,5,1)),nrow=20,ncol=3)

推荐答案

类似的事情?

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

cols[iris$Species %in% c("setosa","versicolor")] <- "blue"
cols[iris$Species == "virginica"] <- "red"
pairs(iris,col=cols)

这篇关于配对图中的着色点的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！