geom_segment在scale_y_log10对数刻度下显示位置异常问题咨询

问题重现 #

以下代码预期绘制一条从(2,1)到(4,1)的箭头，但实际箭头出现在(2,10)到(4,10)的位置：

ggplot(data.frame(x = 1, y = 1), aes(x, y)) +
  geom_point() +
  coord_cartesian(clip = 'off') +
  scale_x_continuous(limits = c(1, 5)) +
  scale_y_log10(breaks = c(0.1, 1, 10, 100), limits = c(0.1, 100)) +
  geom_segment(x = 2, y = 1, xend = 4, yend = 1,
               arrow = arrow(length = unit(0.5, 'cm')))

1. 异常原因 #

ggplot的scale变换仅对映射到aes()中的数据变量生效。当你在geom_segment中直接传入y=1这类常量值时，这些值会被视为绘图坐标系空间的位置值，而非原始数据空间的值。

使用scale_y_log10()时，ggplot会在数据空间和绘图空间之间执行双向转换：

• 数据→绘图：原始数据y值 → 取log10 → 对应绘图位置
• 绘图→数据：绘图位置值 → 计算10^值 → 对应数据空间的y值

你传入的y=1被当作绘图空间的位置值，经过反变换后得到10^1=10，因此箭头最终出现在数据空间的y=10位置。

2. 修复方法（无需手动取log10） #

方法1：将线段参数放入aes()映射

把x、y、xend、yend放入aes()中，这样这些值会被当作数据空间的原始值，自动经过scale_y_log10()的变换：

ggplot(data.frame(x = 1, y = 1), aes(x, y)) +
  geom_point() +
  coord_cartesian(clip = 'off') +
  scale_x_continuous(limits = c(1, 5)) +
  scale_y_log10(breaks = c(0.1, 1, 10, 100), limits = c(0.1, 100)) +
  geom_segment(aes(x = 2, y = 1, xend = 4, yend = 1),
               arrow = arrow(length = unit(0.5, 'cm')))

方法2：为geom_segment单独传入数据框

如果需要分离线段数据与主数据，可以单独给geom_segment传入包含线段坐标的数据框，并映射到aes()：

ggplot(data.frame(x = 1, y = 1), aes(x, y)) +
  geom_point() +
  coord_cartesian(clip = 'off') +
  scale_x_continuous(limits = c(1, 5)) +
  scale_y_log10(breaks = c(0.1, 1, 10, 100), limits = c(0.1, 100)) +
  geom_segment(
    data = data.frame(x = 2, y = 1, xend = 4, yend = 1),
    aes(x = x, y = y, xend = xend, yend = yend),
    arrow = arrow(length = unit(0.5, 'cm'))
  )

两种方法都能让线段的y值自动适配对数刻度，无需手动转换。

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