访问和修改ggplot对象中的元素

如何解决访问和修改ggplot对象中的元素

我正在测试diffEnrich软件包，特别是我想修改文档图2中的图例标题： https://cran.r-project.org/web/packages/diffEnrich/vignettes/diffenrich_vignette.html

最终旨在将表达式“列表1”和“列表2”修改为更相关，例如分别为“上调”和“下调”。 我已经尝试了grep以几种方式来定位感兴趣的表达式，但是所有尝试都返回相同的错误（如下所述）。

假设有一个生成ggplot的函数，那么有人如何从对象内部查找和修改图例标题？

v <- ggplot(mtcars) + geom_point(aes(x=disp,y=hp,color=wt)) + 
                      geom_smooth(aes(x=disp,color=wt))+ 
                      theme(plot.title=element_text(size=30,face="bold"),axis.text.x=element_text(size=15),axis.text.y=element_text(size=15),axis.title.x=element_text(size=15),axis.title.y=element_text(size=15)) + 
                      scale_color_continuous(name="Example plot")

以下所有尝试找到图例的结果均出现相同的错误

lapply(v,function(x) grep("Example",x))
mapply(grep,"Example",v)

#or
d <- ggplot_build(v)

lapply(d,'Example',d)

Error in as.vector(x,"character") : 
  cannot coerce type 'environment' to vector of type 'character'

感谢您的友好解决方案。