r语言 - 将 x 轴中断设置为 x 美学的负值

Question

我想做一个图，其中沿 x 轴的断点是我绘制的实际值的负数。像这样的东西

df <- tibble(x = seq(-1000, 0, length.out = 100),
y = 2 * x + 3)
ggplot(df) + 
geom_line(aes(x = x, y = y)) +
scale_x_continuous(breaks = df$x, labels = -df$x)

除了这会在每个 x 值处放置一个中断，我希望这些中断是我使用waiver()得到的。我记得看到过一个解决方案，但对于我的生活，我不记得它是什么。

Answer 1

ggplot(df) + 
geom_line(aes(x = x, y = y)) +
scale_x_continuous(breaks = pretty(df$x), labels = -pretty(df$x))

pretty就是您所需要的。

或者，直接绘制并使用反向比例：

ggplot(df) + 
geom_line(aes(x = -x, y = y)) +
scale_x_reverse()