ggbiplot - 改变点的大小答案

【问题标题】：ggbiplot - change the point sizeggbiplot - 改变点的大小
【发布时间】：2014-06-07 20:27:26
【问题描述】：

有人知道如何更改点大小并仍然保持下面代码中的组颜色吗？

只需添加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)

【问题讨论】：

标签： r ggplot2 ggbiplot

【解决方案1】：

在geom_point 中添加颜色美学将保持按组着色的点。另外，我将opts 更改为theme，因为opts 已被弃用。

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')

【讨论】：

非常感谢您的快速响应和帮助
@eipi10，你知道如何加粗箭头和日食大小以及如何在 ggbiplot PCA 中添加排斥吗？

【解决方案2】：

我在尝试使我的点更小时遇到了这个问题。 eipi10 的答案确实很好地解决了这个问题，通过简单地绘制默认值来使点更大点。虽然这是一个可行的简单解决方案，但我可以提出以下建议，通过设置alpha=0 并在上述geom_point 行中绘制点，使默认点不可见：

ggbiplot(wine.pca, obs.scale = 1, var.scale = 1, group=wine.class,
     varname.size = 8, labels.size=10, 
     ellipse = TRUE, circle = TRUE,
     alpha=0 #here's the change
) + 
scale_color_discrete(name = '') +  
geom_point(aes(colour=wine.class), size = 0.5) +  #set size of smaller points here
theme(legend.direction ='horizontal', 
    legend.position = 'top')

【讨论】：