How to get a plot with PCA3 and PC4

Question

I need some help to get PC3 and PC4 for my data.

library(ggbiplot)
iris<- read.csv("PCA2_umar.csv")
log.ir <- log(iris[, 1:8])
ir.species <- ir