可以在ggplot()中使用glue(),而不是在after_stat()中使用。具体来说,在需要使用glue()的基础图层中,直接将glue()嵌入aes()中即可。
示例代码:
library(ggplot2)
df <- data.frame(x=1:10, y=11:20)
ggplot(df, aes(x=x, y=y)) +
geom_point(aes(colour=glue("mygroup_{x}")), size=3) +
scale_color_discrete(name="My Group")
这将创建一个散点图,并为每个点的颜色添加了一个标签,标签基于x变量的值。可以看到,在aes()中嵌入了glue()来创建颜色标签。