আমি বুঝতে চাই যে কীভাবে আমি পিসিএ দ্বারা সরবরাহিত স্থানাঙ্ক স্থানে নয়, (ঘোরানো) ভেক্টরগুলির সামান্য পৃথক গোষ্ঠীর বিপরীতে কোনও ডেটা সেটের বৈকল্পিকতার শতাংশ পেতে পারি।
set.seed(1234)
xx <- rnorm(1000)
yy <- xx * 0.5 + rnorm(1000, sd = 0.6)
vecs <- cbind(xx, yy)
plot(vecs, xlim = c(-4, 4), ylim = c(-4, 4))
vv <- eigen(cov(vecs))$vectors
ee <- eigen(cov(vecs))$values
a1 <- vv[, 1]
a2 <- vv[, 2]
theta = pi/10
rotmat <- matrix(c(cos(theta), sin(theta), -sin(theta), cos(theta)), 2, 2)
a1r <- a1 %*% rotmat
a2r <- a2 %*% rotmat
arrows(0, 0, a1[1], a1[2], lwd = 2, col = "red")
arrows(0, 0, a2[1], a2[2], lwd = 2, col = "red")
arrows(0, 0, a1r[1], a1r[2], lwd = 2, col = "green3")
arrows(0, 0, a2r[1], a2r[2], lwd = 2, col = "green3")
legend("topleft", legend = c("eigenvectors", "rotated"), fill = c("red", "green3"))
সুতরাং মূলত আমি জানি যে, পিসিএ দ্বারা প্রদত্ত প্রতিটি লাল অক্ষের সাথে ডেটাসেটের বৈচিত্রটি ইউজভ্যালুগুলি দ্বারা প্রতিনিধিত্ব করে। তবে একই পরিমাণে মোট সমতুল্য রূপগুলি কীভাবে পাব, তবে দুটি ভিন্ন অক্ষকে সবুজ বর্ণের জন্য প্রক্ষেপণ করলাম , যা মূল উপাদানগুলির অক্ষ / পি / 10 দ্বারা আবর্তন। আইই উত্স থেকে দুটি অরথোগোনাল ইউনিট ভেক্টরকে দিয়েছিল, আমি এই প্রতিটি স্বেচ্ছাচারী (তবে অরথগোনাল) অক্ষের সাথে একটি ডেটাসেটের তারতম্যটি কীভাবে পেতে পারি, যেমন সমস্ত বৈকল্পিক হিসাবে (যেমন "ইগেনভ্যালু" যোগফলের সমান হয়) পিসিএ)।