要更改分类比例的标签,请使用 scale_*_discrete(labels = ...) . 在这里,你只需要这样做 color , shape 和 linetype .

您应该避免使用 lty = 通常地这个同义词允许与base R兼容,但它并没有得到普遍支持 ggplot2 .

我更改了标签,以更接近我认为您的意思(第三个条目现在是“Aca+”而不是“Aca-”),并使它们更好地左对齐(通过在第一个标签上添加一个不可见的“+”,以创建适当的间距)。

lab1 <- c(expression(Pol[(Art)*phantom("+")]),
          expression(Pol['(Aca-)']), 
          expression(Pol['(Aca+)']))

library(ggplot2)

ggplot(mtcars, 
       aes(wt, mpg, 
           color = factor(cyl), 
           shape = factor(cyl), 
           linetype = factor(cyl))) +
  geom_point() +
  stat_smooth(se = F) +
  scale_color_discrete(labels = lab1) +
  scale_shape_discrete(labels = lab1) +
  scale_linetype_discrete(labels = lab1)

如果您发现自己需要重复这样的函数的精确副本,有两种解决方法:

1. 重新标记数据本身- 或 -

2. 使用 purrr::invoke_map 迭代函数的步骤

library(purrr)

ggplot(mtcars, 
       aes(wt, mpg, 
           color = factor(cyl), 
           shape = factor(cyl), 
           linetype = factor(cyl))) +
  geom_point() +
  stat_smooth(se = F) +
  invoke_map(list(scale_color_discrete, 
                  scale_linetype_discrete, 
                  scale_shape_discrete),
             labels = lab1)

更新:

这种方法基本上是好的,但现在 expression(...) syntax有一个更好的选择,基于优秀的降价 {ggtext} 包裹: https://github.com/wilkelab/ggtext

要更改此方法,请使用标签向量(可选,命名),如下所示:

library(ggtext)

lab1 <- c(
  `4` = "Pol<sub>(Art)</sub>",
  `6` = "Pol<sub>(Aca-)</sub>", 
  `8` = "Pol<sub>(Aca+)</sub>"
)

然后将这一行添加到主题中:

  ... +
  theme(
    legend..text = element_markdown()
  )

与其他方法相比,其优势在于:

1. markdown语法更易于在线搜索帮助
2. 现在,这些标签可以作为列存储在实际数据中,而不是将它们分别传递给每个geom

您可以使用该新列作为美学映射[ ggplot(..., aes(color = my_new_column, linetype = my_new_column, ...) ]而不必使用 purrr::invoke 方法