ggbiplot - изменить размер точки

У кого-нибудь есть идея, как изменить размер точки и при этом сохранить цвета группы в приведенном ниже коде?

Простое добавление 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
person lroca    schedule 07.06.2014    source источник

Ответы (2)


arrow_upward
7
arrow_downward

Добавление цветовой эстетики внутри 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')
person eipi10    schedule 07.06.2014
comment
Большое спасибо за быстрый ответ и помощь - person lroca; 08.06.2014

arrow_upward
1
arrow_downward

Я столкнулся с этим вопросом, пытаясь сделать свои точки меньше. Ответ 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')
person Donal O'Leary    schedule 29.04.2017