r - R: ggbiplot の凡例に異なる色と形が表示されない

Question

この質問はすでに少なくとも 2 回行われていることは認めますが、提供された回答はどれも役に立ちませんでした。

wine私のデータは ggbiplot の例と非常に似ているので、これを使用して問題を説明します。

データポイントを異なる色と形にしたいので、カラーで印刷するときれいに見えますが、白黒で印刷しても識別できます。これは実際には問題なく機能しますが、凡例はうまく機能しません。

require(scales)
library(devtools)
install_github("vqv/ggbiplot")
library(ggbiplot)
data(wine)
wine.pca <- prcomp(wine, scale. = TRUE)
ggbiplot(wine.pca, obs.scale = 1, var.scale = 1,
  groups = wine.class, ellipse = TRUE, circle = TRUE, var.axes=FALSE) +
  scale_color_discrete(name = '') +
  geom_point(aes(colour=wine.class,shape=wine.class),size=2) +
  theme(legend.direction = 'horizontal', legend.position = 'top')

これを生成します：

伝説は明らかに私が望むものではありません。形状と色は同じ凡例にある必要があります。

（おまけとして、ポイントから小さな線を削除したいのですが、それが簡単にできない場合は、それらと一緒に暮らすことができます. ）

こことここで提案されていることはすでに試しました。

最初の提案

data(wine)
wine.pca <- prcomp(wine, scale. = TRUE)
ggbiplot(wine.pca, obs.scale = 1, var.scale = 1,
  groups = wine.class, ellipse = TRUE, circle = TRUE, var.axes=FALSE) +
  scale_color_discrete(name = '') +
  geom_point(aes(colour = wine.class), size = "2") +
  scale_color_manual(values=c(16,17,18)) +

  theme(legend.direction = 'horizontal', legend.position = 'top')

このエラーメッセージが生成されます（プロットはまったくありません）

Scale for 'colour' is already present. Adding another scale for 'colour',
which will replace the existing scale.
Fehler in coords$size * .pt : 
  nicht-numerisches Argument für binären Operator

(最後の 2 行は、「coords$size * .pt のエラー: 二項演算子の数値以外の引数」に変換されます)

2つ目の提案

  data(wine)
  wine.pca <- prcomp(wine, scale. = TRUE)
  ggbiplot(wine.pca, obs.scale = 1, var.scale = 1,
    groups = wine.class, ellipse = TRUE, circle = TRUE, var.axes=FALSE) +
    scale_color_discrete(name = '') +
    geom_point(size = 2) +
    scale_colour_manual(name = "Wines",
                        labels = c("barolo","grignolino","barbera"),
                        values = c("blue", "red", "green")) +   
    scale_shape_manual(name = "Wines",
                       labels = c("barolo","grignolino","barbera"),
                       values = c(17,18,19))

このエラーメッセージが表示されます

Scale for 'colour' is already present. Adding another scale for 'colour',
which will replace the existing scale.

色付きの楕円、色付きの点を持つ凡例、黒のデータポイントを持つ面白いプロット。

残念ながら、R プロットに関する私の知識は、これを理解するには不十分です。誰かが私を正しい方法で指摘できますか?