如何控制geom_text中字母的颜色？

Question

我想打印一行字母，每个字母的颜色和字母形状都有不同的颜色，例如：

如何使用R？

中的ggplot包执行此操作

我希望能够做到这样的事情：

library(ggplot2)
s <- sample(x = c("g", "c", "t", "a"), size = 100, replace = TRUE)

ggplot() + geom_text(aes(seq(s), 1, color = s), label = s)

但是我收到了错误

  

错误：设置美学的长度不兼容：标签

有办法做到这一点吗？

Answer 1

通过试验，错误，一点点搜索我意识到标签可以用作美学：

s <- s[1:20] ## make shorter for example
ggplot() + geom_text(aes(seq(s), 1, color = s, label = s))

这是一件名为“星球大战DNA”的艺术作品。 （source）