如何在R绘图中为顶部（side3）和右侧（side4）轴添加标题x2、y2？

完全可以给顶部轴（side=3）和右侧轴（side=4）设置自定义标题，核心是用mtext()函数——它能在绘图区域的任意侧边添加文本，正好适配需求。

基于你提供的代码，修改后完整代码如下：

x <- 1:4; y = x*x
  
plot(x, y, pch=18, col="red", type="b",
     frame=FALSE, xaxt="n") # 移除默认x轴
axis(1, 1:4, LETTERS[1:4], col.axis="blue")
axis(3, col = "darkgreen", lty = 2, lwd = 0.5)
axis(4, col = "violet", col.axis = "dark violet", lwd = 2)

# 添加顶部轴标题x2
mtext("x2", side = 3, line = 2, col = "darkgreen", cex = 1)
# 添加右侧轴标题y2
mtext("y2", side = 4, line = 2, col = "dark violet", cex = 1)

关键参数说明： #

• side：指定文本所在的轴位置，3对应顶部轴，4对应右侧轴
• line：控制标题与轴的间距，数值越大距离越远
• col：可设置标题颜色与对应轴颜色一致，提升视觉协调性
• cex：调整标题文字的大小

效果说明： #

运行代码后，顶部绿色虚线轴上方会显示标题x2，右侧紫色粗轴旁会显示标题y2，同时保留原代码里的红色折线点、底部蓝色字母轴等样式。

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