如何控制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"的艺术品(来源)