3

以下のコードでポイント サイズを変更し、グループの色を維持する方法を誰かが知っていますか?

を追加するだけgeom_point(size = 8)で、すべてのポイントの色が黒に変わります。

コード：

library(ggbiplot)
data(wine)
wine.pca <- prcomp(wine, scale. = TRUE)
g <- ggbiplot(wine.pca, obs.scale = 1, var.scale = 1, 
              groups = wine.class, varname.size = 8, labels.size=10  , ellipse = TRUE, circle = TRUE)
g <- g + scale_color_discrete(name = '') #+  geom_point(size = 8)
g <- g + opts(legend.direction = 'horizontal', 
              legend.position = 'top')
print(g)
4

2 に答える 2

7

内部に色の美学を追加するgeom_pointと、グループごとに色分けされたポイントが維持されます。また、廃止されたため、に変更optsしました。themeopts

ggbiplot(wine.pca, obs.scale = 1, var.scale = 1, group=wine.class,
              varname.size = 8, labels.size=10, 
              ellipse = TRUE, circle = TRUE) +
  scale_color_discrete(name = '') +  
  geom_point(aes(colour=wine.class), size = 8) +
  theme(legend.direction ='horizontal', 
        legend.position = 'top')
于 2014-06-07T23:38:00.050 に答える