Измените ход точки на биграфике PCA с помощью функции автографика

Я использую функцию 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))

введите здесь описание изображения


r ggplot2 ggfortify biplot
person Drosof    schedule 20.10.2018    source источник
comment
Когда вы говорите «точечный штрих», вы имеете в виду общий размер символов или толщину границ?   -  person G5W    schedule 21.10.2018
comment
Я имею в виду толщину границ точек здесь   -  person Drosof    schedule 21.10.2018

Ответы (1)


arrow_upward
2
arrow_downward

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

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

введите здесь описание изображения

person Drosof    schedule 21.10.2018