R：删除上轴标题基本图

Question

我想基于plotmo软件包删除或重命名以下绘图的“上轴标题”。这是一个简短的可复制示例：

library(glmnet)
library(plotmo)
data(mtcars)

fit <- glmnet(x=as.matrix(mtcars[,-1]), y=as.matrix(mtcars[,1]))
plot_glmnet(fit)

结果：

该图看起来是由基本图函数生成的。可能有人知道更改或删除顶轴标题的方法

Answer 1

我可以实现您想要的唯一方法是编辑源代码。

plot_glmet.edited<- plot_glmnet ## copy the function
as.list(body(plot_glmet.edited)) ## print the lines of the function

此刻代码将不会打印标签，用您要用作标题的任何字符串替换NA

    body(plot_glmet.edited)[[33]] <- substitute(
         mtext(NA, side = 3, line = 1.5, cex = par("cex") * par("cex.lab")))