如何为R语言绘图的x轴、y轴末端添加箭头尖标识

基础R绘图系统实现 #

思路为关闭默认坐标轴后，使用arrows()函数手动绘制带箭头的坐标轴，再补充刻度标签：

x <- seq(0,5,by=.1)
y <- x*x

# 初始化绘图，关闭默认边框和坐标轴，扩大坐标范围预留箭头位置
plot(x, y, axes = FALSE, frame.plot = FALSE, type = "l",
     xlim = c(0, 5.2), ylim = c(0, 26)) 

# 绘制x轴（末端向右的箭头）
arrows(x0 = 0, y0 = 0, x1 = 5.1, y1 = 0, length = 0.15, angle = 20)
# 绘制y轴（末端向上的箭头）
arrows(x0 = 0, y0 = 0, x1 = 0, y1 = 25.5, length = 0.15, angle = 20)

# 添加x轴刻度和标签，固定在y=0位置
axis(side = 1, pos = 0, at = seq(0,5,1))
# 添加y轴刻度和标签，固定在x=0位置
axis(side = 2, pos = 0, at = seq(0,25,5))

参数说明：

• arrows()的length参数控制箭头长度，angle控制箭头张开角度，可根据绘图尺寸按需调整
• 需将xlim、ylim设置为略大于实际数据范围，避免箭头被画布截断

ggplot2绘图系统实现 #

直接通过主题设置修改坐标轴线条属性即可：

library(ggplot2)

df <- data.frame(x = seq(0,5,by=.1), y = seq(0,5,by=.1)^2)

ggplot(df, aes(x, y)) +
  geom_line() +
  # 清除多余边框，保留基础坐标轴
  theme_classic() +
  # 给坐标轴末端添加闭合式箭头
  theme(
    axis.line = element_line(
      arrow = arrow(length = unit(0.3, "cm"), type = "closed")
    )
  ) +
  # 扩大坐标范围预留箭头位置
  expand_limits(x = 5.2, y = 26)

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