एक जोड़े प्लॉट में रंग अंक

Question

मैं कुछ पंक्ति इंडेक्स के आधार पर जोड़े जोड़े में रंगों को रंगना चाहता हूं। यहां कोड है जिसका उपयोग मैंने 1 वैरिएबल को दूसरे के खिलाफ प्लॉट करने के लिए किया था।

pairs(pca[,1:3]) 

संपादित करें:

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

एक साधारण जोड़े साजिश कुछ की तरह है उदाहरण:

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

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

Answer 1

कुछ इस तरह?

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

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

Answer 2

मुझे यकीन है कि अगर @Roland के जवाब कुछ संस्करण में काम करता है, लेकिन कम से कम मेरे Windows आर 3.4.2 में, यह नहीं है नहीं कर रहा हूँ।

फ़ंक्शन जोड़े many arguments लेते हैं। इनमें से कुछ का उपयोग यह इंगित करने के लिए किया जाता है कि विकर्ण, ऊपरी और निचले पैनलों को मानचित्र पर कौन सा फ़ंक्शन मैप करना है। डिफ़ॉल्ट रूप से, यह साजिश (अंक) फ़ंक्शन का उपयोग करता है।

इस फ़ंक्शन में पैरामीटर bg है जो pch = 21 जैसे मार्करों के भरने वाले रंग को निर्दिष्ट करने के लिए उपयोग किया जाता है।

इसके अलावा, रंग मैपिंग को बिना किसी कुशलता से अधिक कुशलता से किया जा सकता है। उदाहरण के लिए, एक दो स्तर के साथ चर कारक:

pairs(data, bg=colors)