आर डेटा रंग में प्रिंसिपल घटक विश्लेषण

Question

हाय सब मेरे पास एक साधारण सवाल है लेकिन जिसके लिए मैं किसी भी ट्यूटोरियल में उत्तर प्राप्त करने में सक्षम हूं। मैंने डेटा के एक सेट पर एक साधारण प्रिंसिपल घटक विश्लेषण किया और फिर मेरे डेटा को बायप्लॉट के साथ प्लॉट किया।

CP <- prcomp(dat, scale. = T) 
summary(CP) 

biplot(CP) 

इस के साथ मैं पहले और दूसरे घटक के मामले में अपने डेटा की एक बिखराव साजिश मिलता है। मैं अपने डेटा को रंग से अलग करना चाहता हूं, आर को लाल रंग में अपना पहला 20 डेटा पेंट करने और नीले रंग में अगले 20 डेटा पेंट करने का संकेत देता हूं। मुझे नहीं पता कि डेटा के उन दो सेटों को रंग देने के लिए आर को कैसे बताना है। किसी भी मदद की बहुत सराहना की जाएगी। thks! (आईएम बहुत आर के लिए नया)

Answer 1

plot() का उपयोग करके आप और अधिक लचीलापन प्रदान करेगा - आप belows के रूप में पाठ लेबल (उपयोगी टिप्पणी के लिए धन्यवाद @flodel) के लिए अकेले या text() के साथ उपयोग कर सकते हैं:

col = rep(c("red","blue"),each=20) 
plot(CP$x[,1], CP$x[,2], pch="", main = "Your Plot Title", xlab = "PC 1", ylab = "PC 2") 
text(CP$x[,1], CP$x[,2], labels=rownames(CP$x), col = col) 

हालांकि

biplot(CP$x[1:20,], CP$x[21:40,], col=c("red","blue")) 

Answer 2

अस्वीकरण:: यह एक सीधा जवाब नहीं है, लेकिन इच्छा प्राप्त करने के लिए tweak किया जा सकता है आप biplot() उपयोग करने के लिए इस कोड की कोशिश करना चाहते हैं डी आउटपुट।

library(ggbiplot) 
data(wine) 
wine.pca <- prcomp(wine, scale. = TRUE) 
print(ggbiplot(wine.pca, obs.scale = 1, var.scale = 1, groups = wine.class, ellipse = TRUE, circle = TRUE))