为ggplot图例动态创建表达式？答案

【问题标题】：Dynamically create expression for ggplot legend?为ggplot图例动态创建表达式？
【发布时间】：2015-06-13 11:45:21
【问题描述】：

我想绘制一个带有多条线的折线图，颜色取决于分组变量。现在我想通过scale-command 设置图例标签：

scale_color_manual(values = colors_values, labels = ...)

图例标签如下：“x^2”、“x^3”、“x^4”等，其中范围是动态创建的。我现在想将表达式动态创建为标签文本，即

"x^2" 应该变成 x²
"x^3" 应该变成 x³

等等

图例标签的数量各不相同，所以我想到了类似as.expression(sprintf("x^%i", number)) 的东西，它当然不能作为scale 函数的label 参数。

我已经搜索了谷歌和堆栈溢出，但是我还没有找到一个可行的解决方案，所以我希望有人可以在这里帮助我。

这是一个可重现的例子：

poly.term <- runif(100, 1, 60)
resp <- rnorm(100, 40, 5)
poly.degree <- 2:4
geom.colors <- scales::brewer_pal(palette = "Set1")(length(poly.degree))
plot.df <- data.frame()
for (i in poly.degree) {
  mydat <- na.omit(data.frame(x = poly.term, y = resp))
  fit <- lm(mydat$y ~ poly(mydat$x, i, raw = TRUE))
  plot.df <- rbind(plot.df, cbind(mydat, predict(fit), sprintf("x^%i", i)))
}
colnames(plot.df) <- c("x","y", "pred", "grp")
ggplot(plot.df, aes(x, y, colour = grp)) +
  stat_smooth(method = "loess", se = F) +
  geom_line(aes(y = pred))
  scale_color_manual(values = geom.colors
                     # here I want to change legend labels
                     # lables = expresion???
                     )

我希望图例标签为 x²、x³ 和 x⁴。

【问题讨论】：

您能否发布一个可重现的示例。检查stackoverflow.com/questions/19507742/…

标签： r ggplot2 expression legend

【解决方案1】：

ggplot(plot.df, aes(x, y, colour = grp)) +
  stat_smooth(method = "loess", se = F) +
  geom_line(aes(y = pred)) +
  scale_color_manual(values = setNames(geom.colors,
                                       paste0("x^",poly.degree)),
                     labels = setNames(lapply(poly.degree, function(i) bquote(x^.(i))), 
                                       paste0("x^",poly.degree)))

如果您更改标尺中的值或标签，请务必确保正确映射。因此，您应该始终使用命名向量。

【讨论】：