R ggbiplot-更改标签的颜色

默认情况下，ggbiplot函数给出一个图形，其中载荷为红色箭头，单位标签为黑色：

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

库（ggbiplot）
数据（“USARests”）
美国
图书馆（ggbiplot）
图书馆（网格）
数据（“USARests”）
我想我要找的是“组”和“labels.size”选项。非常感谢。更新：最后，“组”似乎不是正确的参数，因为您需要，嗯，组才能工作。我想改变整个标签的颜色，而不是取决于一个因素或值。也许我的问题不够精确
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)