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)