在rms包中使用bplot函数的轮廓图

I have been trying to make a contour plot for prediction models with R, based on the bplot function in "rms" package. The codes are as follows:I have been trying to make a contour plot for p