次のコードを使用すると、分位点回帰モデルの結果をプロットできます。
quant_reg_all <- rq(y_quant ~ X_quant, tau = seq(0.05, 0.95, by = 0.05), data=df_lasso)
quant_plot <- summary(quant_reg_all, se = "boot")
plot(quant_plot)
ただし、多くの変数があるため、下の画像に示すように、プロットは判読できません。

ラベルを含めて、18 個の変数があります。
これらの画像のいくつかを一度にプロットして読みやすくするにはどうすればよいでしょうか?