例如，當有兩個組變數時，下面修改了iris資料集（添加了一個因子變數Site）：
SepalLengthCm SepalWidthCm PetalLengthCm PetalWidthCm Species Site
5.1 3.5 1.4 0.2 Iris-setosa A
4.9 3 1.4 0.2 Iris-setosa A
4.7 3.2 1.3 0.2 Iris-setosa A
4.6 3.1 1.5 0.2 Iris-setosa A
5 3.6 1.4 0.2 Iris-setosa A
5.4 3.9 1.7 0.4 Iris-setosa A
5.2 3.4 1.4 0.2 Iris-setosa A
4.7 3.2 1.6 0.2 Iris-setosa A
4.8 3.1 1.6 0.2 Iris-setosa A
7 3.2 4.7 1.4 Iris-versicolor A
6.4 3.2 4.5 1.5 Iris-versicolor A
6.9 3.1 4.9 1.5 Iris-versicolor A
5.5 2.3 4 1.3 Iris-versicolor A
6.5 2.8 4.6 1.5 Iris-versicolor A
5.7 2.8 4.5 1.3 Iris-versicolor B
6.3 3.3 4.7 1.6 Iris-versicolor B
4.9 2.4 3.3 1 Iris-versicolor B
6.6 2.9 4.6 1.3 Iris-versicolor B
5.2 2.7 3.9 1.4 Iris-versicolor B
6.3 3.3 6 2.5 Iris-virginica B
5.8 2.7 5.1 1.9 Iris-virginica B
7.1 3 5.9 2.1 Iris-virginica B
6.3 2.9 5.6 1.8 Iris-virginica B
6.5 3 5.8 2.2 Iris-virginica B
7.6 3 6.6 2.1 Iris-virginica B
4.9 2.5 4.5 1.7 Iris-virginica B
7.3 2.9 6.3 1.8 Iris-virginica B
6.7 2.5 5.8 1.8 Iris-virginica B
7.2 3.6 6.1 2.5 Iris-virginica B
我想：
1）將點顏色映射到 Iris$Species，并將點形狀映射到 Iris$site；
2）將圖例標題更改為“顏色”或“形狀”。
我正在使用的代碼：
library(factoextra)
data(Iris)
res.pca <- PCA(Iris[,1:4], graph = F)
fviz_pca_biplot(res.pca,
#individuals
geom.ind="point",
col.ind=Iris$Species,
pointshape=Iris$Site,
#variables
col.var="steelblue")
它在我使用時出現錯誤 pointshape=Iris$Site
錯誤：Aesthetics 必須是長度 1 或與資料 (3) 相同：形狀
1）我應該如何將各個點映射到多個不同的組？
2）如何編輯圖例標題？
uj5u.com熱心網友回復：
因為ggbiplot基于ggplot()物件，您可以使用geom_point手動添加點和形狀，
iris.pca <- PCA(iris[,1:4], graph = F)
fviz_pca_biplot(iris.pca,obs.scale = 1, var.scale = 1, alpha=0, col.var="steelblue")
geom_point(aes(shape = factor(iris$Site), colour = factor(iris$Species)))
guides(shape = guide_legend(title = "shape"),
colour = guide_legend(title = "color"))
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/346336.html
上一篇：如何將一周中每一天的平均每小時資料可視化為R中7天的facet_wrap？
下一篇：是否可以在R中繪制下圖？