如何更改axislabels中的字体颜色

Question

library(data.table)
library(ggplot2)
d <- data.table(setvalue = c("1.c , 1.d , 1.f , 2.b ", "1.b , 1.d , 1.f , 2.f ", "1.c , 1.d , 2.f , 2.h ", "1.b , 1.d , 1.f , 2.i ","1.c , 1.d , 2.f , 3.j "),
                    pct = c(0.06, 0.04, 0.028, 0.026, 0.017),
                    cumpct = c(0.06, 0.10, 0.128, 0.156, 0.173))

break_at_comma <- function(x) {gsub(",", "\n", x)}

ggplot(d, aes(x=reorder(setvalue, cumpct, sum), y=pct))+geom_bar(stat="identity")+
  theme_bw()+
  scale_y_continuous(labels=scales::percent, name="Procent of all combinations")+
  scale_x_discrete(name="chosen combinations", labels=break_at_comma)

制作此情节：

然而 - ＆＃39;组合＆＃39;在x轴上列出有意义。因此，我希望为以＆＃34; 1开头的文字着色。[a-z] {1}＆＃34;绿色，以＆＃34; 2. [a-z] {1}＆＃34;，黄色开头的文本，以＆＃34; 3开头的文本。[a-z] {1}＆＃34;红色。

我希望这是有道理的。最终结果看起来像这样（标签重复，所以只看颜色）：