如何在r中的岭回归得到残差图

Question

model=lm.ridge(mpg~.,data=mtcars,lambda=seq(0,1000,.1))
select(model)
model1=lm.ridge(mpg~.,data=mtcars,lambda=14.9)

我有一个岭回归模型 但是，我想得到如下所示的这种情节：

但我发现我无法使用

plot(model1)

直接 那么，我该怎么办？