Измените точечный ход на биплоте PCA, используя функцию автоплотинга

Question

Я использую autoplot функция, чтобы сделать биплот PCA. В моем случае я хотел бы увеличить точечный ход, чтобы улучшить читаемость графика. Как я могу это сделать?

Вот пример:

library(ggfortify)
df <- iris[c(1, 2, 3, 4)]
autoplot(prcomp(df), data = iris, colour="Species", fill="Species", shape="Species", geom="points", size=2) +
  scale_color_manual(values=c("#1B9E77","#D95F02","#7570B3")) +
  scale_fill_manual(values=c("#ffffff","#ffffff","#ffffff")) +
  scale_shape_manual(values=c(21:23))

Answer 1

Я нашел решение своей проблемы, добавив последнюю строку кода на график:

library(ggfortify)
df <- iris[c(1, 2, 3, 4)]
p <- autoplot(prcomp(df), data = iris, colour="Species", fill="Species", shape="Species", geom="points", size=2) +
  scale_color_manual(values=c("#1B9E77","#D95F02","#7570B3")) +
  scale_fill_manual(values=c("#ffffff","#ffffff","#ffffff")) +
  scale_shape_manual(values=c(21:23))
p$layers[[1]]$aes_params$stroke <- 2
p