ggplot2中的下标

Question

我正在尝试使用 ggplot2 图表获得我想要的颜色和我想要的图例标签的组合。

基本上，下面的代码实现了大多数事情，除了我无法让图例标签显示我想要的东西，理想情况下我希望它是 '1' 作为下标的'治疗 1'，但我不能放一个像 this expression('treatment'[+1]) 这样的表达式，因为它似乎在标签参数中不接受它。有人可以帮忙吗，这让我发疯了！

我认为应该可以在语法中的其他位置插入它，但我不确定在哪里。

graph1<-ggplot(data2, aes(SMR_residuals,y=log(Time), color = factor(Treatment, labels = c("1", "2", "3","4")))) + geom_point() + labs(color = "Treatment") + geom_smooth(method="lm", se=F) + scale_colour_brewer(palette = "Set1")

Answer 1

所以我想在一些帮助下我设法解决了这个问题，我最终使用 scale_colour_brewer 并在那里编写了标签的表达式，这似乎成功了：

graph1<- ggplot(data2,aes(SMR_residuals,y=log(Time),color=Treatment)) +
geom_point()+ labs(color="Treatment") + geom_smooth(method="lm", se=F) +
theme(legend.text.align = 0) + scale_colour_brewer(palette="Set1", breaks =
c("IND","IND2","IND4","IND6"),
labels=c("Treatment",expression("Treatment"[+2]),expression("Treatment"[+4]),
expression("Treatment"[+6])))