你遇到的问题主要来自两个关键点：R的三角函数使用弧度而非角度，以及对数坐标轴的非线性特性导致直接线性偏移失效。下面是具体的解决方案和代码示例：

核心问题分析 #

1. 角度单位不匹配：R中cos()和sin()函数默认接受弧度输入，你直接传入0-360度的数值，会导致计算出的方向完全错误。
2. 对数轴的非线性偏移：对数坐标轴的刻度是按对数比例分布的，直接在原始坐标上添加线性偏移量，会因为x、y轴的缩放速率不同，导致线段长度随位置变化，方向也会偏移。

完整解决方案代码 #

我们先基于你的示例数据来实现正确的箭头绘制：

# 准备示例数据
data <- data.frame(
  SF.X. = c(0.47,0.80,0.09,0.78,0.14),
  TF.Y. = c(2.71,4.51,1.85,5.56,0.98),
  Degrees = c(42.51,9.27,11.31,0.52,93.4)
)

# 1. 将角度转换为弧度（关键步骤）
data$Radians <- data$Degrees * pi / 180

# 2. 设置线段在对数空间的基准长度（可根据视觉效果调整，比如0.05更短，0.2更长）
log_segment_length <- 0.1

# 3. 在对数空间计算偏移量，避免非线性轴的影响
log_x <- log(data$SF.X.)
log_y <- log(data$TF.Y.)

# 计算对数空间的x/y偏移
dx_log <- log_segment_length * cos(data$Radians)
dy_log <- log_segment_length * sin(data$Radians)

# 转换回原始坐标空间
x_end <- exp(log_x + dx_log)
y_end <- exp(log_y + dy_log)

# 4. 绘制对数轴散点图
plot(data$SF.X., data$TF.Y., log = "xy", pch = 19, cex = 0.8,
     ylim = c(0.031, 20), xlim = c(0.031, 1))

# 5. 添加方向箭头（code=2表示箭头指向终点）
arrows(data$SF.X., data$TF.Y., x1 = x_end, y1 = y_end,
       code = 2, length = 0.03, col = "Red")

关键细节解释 #

• 弧度转换：通过Degrees * pi / 180将角度转为弧度，确保三角函数计算出的方向符合0度朝右、逆时针递增的要求。
• 对数空间计算偏移：先对x、y坐标取对数，在对数空间中计算等长偏移，再通过exp()转换回原始坐标。这样能保证线段在对数轴上的视觉长度一致，不会因为坐标轴的非线性缩放而变形。
• 长度调整：如果觉得箭头太长或太短，直接修改log_segment_length的值即可。如果想要精确控制线段的物理长度（比如固定为0.5cm），可以用strwidth()获取图上单位长度对应的对数增量：

  # 获取图上1cm对应的x轴对数增量
  cm_to_log_x <- log(1 + strwidth("a", units = "cm") / par("usr")[2])
  log_segment_length <- cm_to_log_x * 0.5 # 设置为0.5cm长
  

这样就能得到方向准确、长度统一的方向线段了。

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