R语言quantreg包绘图时调整边距无效问题求助

我懂你遇到的困扰了——quantreg包中针对summary.rq对象的绘图函数会自行设置绘图边距参数，这就导致你提前用par(mar=c(10,10,2,2))设置的边距被覆盖，所以调整没生效。下面给你几个可行的解决办法：

方法1：在plot()中直接传递边距参数 #

plot.summary.rq函数支持通过...传递参数给底层绘图函数，你可以直接把mar参数写在plot调用里，覆盖函数内部的默认设置：

# 直接在plot中指定mar参数
plottest <- plot(summary(QReg_final), parm=2, main="y", ylab="jjjjj", mar=c(10,10,2,2))

方法2：手动添加y轴标签 #

如果方法1没生效，你可以先让plot函数不显示默认ylab，再用mtext()手动添加标签，精准控制位置：

# 先绘制不带y轴标签的图
plottest <- plot(summary(QReg_final), parm=2, main="y", ylab="")
# line参数控制标签距离坐标轴的距离，数值越大越远
mtext("jjjjj", side=2, line=5, cex=1)

方法3：用ggplot2重绘结果（更灵活） #

如果想完全掌控绘图样式，推荐用ggplot2可视化分位数回归结果。先提取结果数据，再自由调整样式：

library(ggplot2)

# 提取分位数回归的系数与置信区间数据
qreg_results <- summary(QReg_final)$coefficients
# 筛选目标参数（parm=2）的结果并转为数据框
target_df <- as.data.frame(qreg_results[2, , drop=FALSE])
target_df$tau <- rownames(target_df)
colnames(target_df)[1:3] <- c("estimate", "lower", "upper")

# 用ggplot绘制
ggplot(target_df, aes(x=tau, y=estimate)) +
  geom_point(size=2) +
  geom_errorbar(aes(ymin=lower, ymax=upper), width=0.02) +
  labs(title="y", y="jjjjj") +
  # 调整y轴标签的右边距，避免被截断
  theme(axis.title.y=element_text(margin=margin(r=15)))

这样不管是边距还是标签样式，你都能自由调整啦～

内容的提问来源于stack exchange，提问作者shenflow