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

【问题标题】：plotting PCA using ggbiplot and changing legend markers使用 ggbiplot 绘制 PCA 并更改图例标记
【发布时间】：2014-08-26 15:46:30
【问题描述】：

在以下代码行中，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))))

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

【问题讨论】：

标签： legend shapes ggbiplot

【解决方案1】：

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

【讨论】：

是的，它有效！非常感谢泰森！我还尝试添加：+ aes (shape=factor (em$VALENCE))，它只在数据表的行数和列数相等时才有效。