グラフを同じ色と異なる色でグラフに描画するにはどうすればよいですか？

Question

私は同じグラフにそれらのグラフを置くだけで、最初の点は2番目の点と異なる色にする必要があります。私はそれは非常に簡単だと思うが、私は助けてくださいそれを見つけることができません。ありがとうございます

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

ようこそ！

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