我已经看到了这个问题的一些变化，但我所看到的并没有解决我在这里遇到的独特问题。仍在学习R，但取得了一些进展。
简化数据集：
tenor ABBNVX CSL CAT
1 1.34 1.17
2 1.25 1.03
3 1.75 1.49
我做到了这一点：
> read_short <- read.csv("TestShort.csv")
>melt_1 <- melt(read_short, measure.vars = c("ABBNVX","CSL","CAT"))
产生这个：
new_plot3 <- ggplot(melt_1) + geom_point(aes(tenor, value), size = 2) + geom_label_repel(aes(tenor, value, label = variable), size = 2) + scale_y_continuous(breaks=seq(0, 6, .25)) + scale_x_continuous(breaks=seq(0, 30, 1)) + xlab("Tenor") + ylab("YTM")
[散点图] [1] [1]：http://i.stack.imgur.com/uN3lP.png [1]
我想介绍第三个变量“Rating”，它会根据每个评级更改标签的颜色。它不需要像下面所示那样列出，但它需要特定于ABBNVX，CSL，CAT等。
tenor ABBNVX CSL CAT
1 1.34 1.17
2 1.25 1.03
3 1.75 1.49
Rating A BBB BBB+
示例：[1]：http://docs.ggplot2.org/current/geom_text-20.png
给定的例子不使用时间序列esque数据，只是一个特定的填充颜色列，由于我使用的是熔化函数，因此在我的情况下没有用。
任何解决方案/想法都非常感谢！
