基于条件的部分粗体ggplot2指南标签

Question

我想要绘制一些整洁的数据，将两列合并 分组。

在图例中，我想在其中一列中打印其中一个条目 大胆的面孔。

这是一个最小的工作示例：

library(ggplot2)

plot.data <- data.frame(x=1:10, y=1:10,
                        class1=rep(letters[1:2], 10),
                        class2=rep(LETTERS[1:2], each=5))

# This class should be displayed in bold
# Might be subject to change; consider it a function parameter
class2.bold <- "A"

# This is the default
# Note that the used classes are automagically determined from the data
ggplot(plot.data, aes(x, y)) +
  geom_point(aes(color=paste(class1, class2, sep="/"))) +
  scale_color_discrete("class")

# This is what I want
# Note that it only works because I know the data used in this example
ggplot(plot.data, aes(x, y)) +
  geom_point(aes(color=paste(class1, class2, sep=" / "))) +
  scale_color_discrete("class",
                       label=c(expression(a / bold(A)),
                               expression(a / B),
                               expression(b / bold(A)),
                               expression(b / B)))

如何利用class2.bold和plot.data获取第二张图 只是（即在编写代码时没有进一步了解其内容）？

例如，当我将class2.bold更改为"B"并添加更多数据行时 plot.data具有附加class1和class2值/组合，{I} 仍然希望绘图命令能够在不需要手动调整的情况下工作。