ggbiplot - 포인트 크기 변경

Question

누군가 포인트 크기를 변경하고 아래 코드에서 그룹 색상을 유지하는 방법을 알고 있습니까?

그냥 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) 

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

Answer 2

내 포인트를 만들려고 노력하면서이 질문을 만났습니다. . eipi10의 답은 간단하게 기본 지점을 그려서 포인트 을으로 만들 때이 문제를 해결합니다. 빠른 응답 및 도움을

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