x轴字符的颜色部分

Question

编辑:此问题解决了如何仅为x轴标签的子集着色.这不是一个重复的问题.

我已经制作了x轴标签来代表核苷酸序列,我想在核苷酸的不同部分添加颜色.怎么样？谢谢.

ggplot(data = miRNA3) + 
  geom_line(mapping = aes(x = Position, y = Count_combined)) +
  scale_y_continuous(breaks = seq(0, 120, 10)) +
  ylab("Count") +
  scale_x_continuous(breaks=1:150, labels=c("T", "G", "A", "T", "G", "T", "C", "C", "G", "T", "G", "T", "C", "C", "A", "C", "T", "C", "G", "T", "T", "G", "T", "T", "T", "T", "C", "A", "A", "C", "T", "T", "C", "T", "T", "C", "C", "C", "G", "C", "A", "A", "T", "T", "T", "A", "C", "C", "T", "T", "C", "A", "T", "G", "G", "T", "T", "A", "A", "A", "C", "A", "A", "T", "A", "A", "A", "T", "C", "A", "G", "C", "T", "A", "A", "G", "G", "T", "A", "T", "G", "G", "A", "C", "A", "C", "T", "G", "T", "A", "A", "C", "T", "A", "C", "T", "C", "T", "G", "A", "A", "G", "G", "T", "A", "A", "G", "T", "T", "G", "C", "G", "A", "G", "A", "G", "G", "A", "A", "G", "T", "T", "T", "C", "A", "A", "G", "T", "A", "G", "C", "A", "T", "T", "G", "G", "A", "T", "T", "C", "G", "G", "A", "C", "G", "T", "T", "A", "T", "G"), expand = c(0, 0)) +
xlab("Supercontig_1.4289:xxx-xxx") +
theme(panel.grid.minor.x=element_blank(),
      panel.grid.major.x=element_blank(),
      panel.grid.minor.y=element_blank())

编辑:我想做这样的事情(见x轴上的字母):

Answer 1

df = data.frame(x = 1:4, y = 1:4)
my_labs = c("G", "A", "A", "T")
my_cols = c("red", "blue", "blue", "chartreuse")

ggplot(df, aes(x, y)) + geom_point() +
  scale_x_continuous(breaks = 1:4, labels = my_labs) +
  theme(axis.text.x = element_text(color = my_cols))

在我看到@ UnivStudent的评论之前,我不知道这是可能的.太酷了!