ggbiplot - デフォルトで標識

Question

の色を変更する、ggbiplot関数は黒で赤い矢印と単位ラベルとして負荷を有するグラフを与える：

library(ggbiplot) 
data("USArrests") 
us <- princomp(USArrests) 
ggbiplot(us, labels = rownames(us$scores)) 

そのコード

どのようにした結果であります私はこれらのラベルの色を変え、それに付随してサイズやフォントを変えますか？

Answer 1

library(ggbiplot) 
library(grid) 
data("USArrests") 
us <- princomp(USArrests) 

# Cut the third score into 4 intervals using quantiles 
cols <- cut(us$scores[,3], quantile(us$scores[,3], probs=seq(0,1,0.25)), include.lowest=T) 

# Change label colors using the "group" option 
# Change label font size using the "label.size" option 
p <- ggbiplot(us, labels = rownames(us$scores), groups=cols, labels.size=4) 

# Change label font family 
g <- ggplotGrob(p) 
g$grobs[[6]]$children[[4]]$gp$fontfamily <- "mono" 
grid.draw(g) 

全体としてラベルの色を変更するには：

p <- ggbiplot(us, labels = rownames(us$scores), groups=1, labels.size=4) + 
    theme(legend.position = "none") 

# Change label colors 
g <- ggplotGrob(p) 
g$grobs[[6]]$children[[4]]$gp$col <- "#FF9900" 
grid.draw(g)