使用ggbiplot绘制PCA并更改图例标记

Question

在以下代码行中，voc.pca是一个princomp对象：

plot <- ggbiplot(voc.pca, pc.biplot=TRUE, obs.scale=1,var.scale=1, groups=em$VALENCE) + labs(color="Valence").

我需要以黑白显示plot。因此，我需要将3个颜色的图例键更改为3种不同的形状，以便plot中的黑色和白色可读。

我已经尝试过这段代码，但它只更改了图例标记的形状，但在图中，点数都是相同的。

   plot <- ggbiplot(voc.pca, pc.biplot=TRUE, obs.scale=1,var.scale=1, groups=em$VALENCE) + labs(color="Valence") + guides(colour = guide_legend(override.aes = list(shape=c(3,5,6))))

如果有人知道该怎么做，我会非常感激！非常感谢提前！

Answer 1

尝试添加+ geom_point(aes(shape=em$VALENCE)或您的形状列表