如何將這些圖形繪製到同一個和不同顏色的圖形上？

Question

我只需要將這些圖表放在同一個圖上，並且第一個點的點需要與第二個點的顏色不同。我認爲這很容易，但我找不到它，請幫助。謝謝

library(ggfortify) 
myPCA <- prcomp(iris[-5]) 
# drawing PC1 and PC2 
autoplot(myPCA) 
# drawing PC3 and PC4 
myPCAtrunc <- myPCA 
myPCAtrunc[[1]] <- myPCAtrunc[[1]][c(3,4,1,2)] 
myPCAtrunc[[2]] <- myPCAtrunc[[2]][,c(3,4,1,2)] 
colnames(myPCAtrunc[[2]]) <- c("PC1","PC2","PC3","PC4") # fake names 
myPCAtrunc[[5]] <- myPCAtrunc[[5]][,c(3,4,1,2)] 
colnames(myPCAtrunc[[5]]) <- c("PC1","PC2","PC3","PC4") # fake names 
autoplot(myPCAtrunc, xlab = "PC3", ylab="PC4") 

Answer 1

歡迎來到SO！

p1 <- autoplot(myPCA, colour = "red") 
p2 <- autoplot(myPCAtrunc, xlab = "PC3", ylab="PC4", colour = "blue") 
library(gridExtra) 
grid.arrange(p1, p2, ncol = 2)