У нас вы можете посмотреть бесплатно Principal components analysis in R| PCA in R| Advance R Language Learning или скачать в максимальном доступном качестве, которое было загружено на ютуб. Для скачивания выберите вариант из формы ниже:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса savevideohd.ru
setwd("F:/R") library(ggbiplot) d1=read.csv("PCA11.csv") pca = prcomp(d1[,c(2:13)], center = TRUE,scale. = TRUE) summary(pca) str(pca) d1 pca$x d2 = cbind(d1, pca$x) ggplot(d2, aes(PC1, PC2, col = Treatments, fill = Treatments)) + stat_ellipse(geom = "polygon", col = "black", alpha = 0.5) +scale_colour_manual(name="Treatments", values= c("forest green", "red3", "dark blue"))+ geom_point(shape = 21, col = "black")+theme_minimal() mtcars mtcars.pca = prcomp(mtcars[,c(1:7,10,11)], center = TRUE,scale. = TRUE) mtcars.country = c(rep("Japan", 3), rep("US",4), rep("Europe", 7),rep("US",3), "Europe", rep("Japan", 3), rep("US",4), rep("Europe", 3), "US", rep("Europe", 3)) ggbiplot::ggbiplot(mtcars.pca,ellipse=TRUE,obs.scale = 1, var.scale = 1, labels=rownames(mtcars), groups=mtcars.country) + scale_colour_manual(name="Origin", values= c("forest green", "red3", "dark blue"))+ ggtitle("PCA of mtcars dataset")+ theme_minimal()+ theme(legend.position = "bottom")