如何更改 PCA ggplot 的点符号？
How to change symbols of points for PCA ggplot?
biplot<-ggbiplot(pcobj = PCA,choices= c(1,2),scale = 1,groups = Fdata$Tissue,ellipse = TRUE)+
geom_vline(xintercept = 0, linetype = 3)+geom_hline(yintercept = 0, linetype = 3)
尝试添加 geom_point(aes(shape=factor(something)))。例如iris数据，
library(ggbiplot)
ir.pca <- prcomp(iris[,1:4], center = TRUE,scale. = TRUE)
ggbiplot(ir.pca, obs.scale = 1, var.scale = 1,groups = iris$Species, ellipse = TRUE)+geom_point(aes(shape=factor(iris$Species)))
ggbiplot(ir.pca, obs.scale = 1, var.scale = 1,groups = iris$Species, ellipse = TRUE, labels = )+
geom_point(aes(shape=factor(iris$Species))) +
guides(color = "none", shape = guide_legend(title = "New")) +
scale_shape_discrete(labels = c("a", "b", "c"))
biplot<-ggbiplot(pcobj = PCA,choices= c(1,2),scale = 1,groups = Fdata$Tissue,ellipse = TRUE)+
geom_vline(xintercept = 0, linetype = 3)+geom_hline(yintercept = 0, linetype = 3)
尝试添加 geom_point(aes(shape=factor(something)))。例如iris数据，
library(ggbiplot)
ir.pca <- prcomp(iris[,1:4], center = TRUE,scale. = TRUE)
ggbiplot(ir.pca, obs.scale = 1, var.scale = 1,groups = iris$Species, ellipse = TRUE)+geom_point(aes(shape=factor(iris$Species)))
ggbiplot(ir.pca, obs.scale = 1, var.scale = 1,groups = iris$Species, ellipse = TRUE, labels = )+
geom_point(aes(shape=factor(iris$Species))) +
guides(color = "none", shape = guide_legend(title = "New")) +
scale_shape_discrete(labels = c("a", "b", "c"))