#Load the dataset
data(iris)
iris_data <- iris[, 1:4]
# Perform PCA
pca_result <- prcomp(iris_data, scale. = TRUE)
# Create a biplot
biplot(pca_result)
I0xvYWQgdGhlIGRhdGFzZXQKCmRhdGEoaXJpcykKCmlyaXNfZGF0YSA8LSBpcmlzWywgMTo0XQoKIyBQZXJmb3JtIFBDQQoKcGNhX3Jlc3VsdCA8LSBwcmNvbXAoaXJpc19kYXRhLCBzY2FsZS4gPSBUUlVFKQoKIyBDcmVhdGUgYSBiaXBsb3QKCmJpcGxvdChwY2FfcmVzdWx0KQ==