R ggplot2：设置额外的特定轴刻度线

Question

我有一个ggplot：

ggplot()+geom_line(data = data.frame(y = c(1,2,3), x=c(1,2,3)), aes(y=y,x=x))

我想保留默认的轴中断和标签（在我的程序中，我不知道先验图的限制。）

在 x= 1.5 时，我想在 x 轴上添加一个额外的刻度线，标签为“hi”。

我知道scale_x_continuous()，但我不知道如何访问“由转换对象计算的默认中断”。

Answer 1

ggplot2 使用基本函数pretty（间接通过scales::pretty_breaks）用于非转换轴。充分利用这一点：

df <- data.frame(y = c(1,2,3), x=c(1,2,3))

ggplot(df, aes(x, y)) + 
  geom_line() +
  scale_x_continuous(breaks = c(pretty(df$x), 1.5), labels = c(pretty(df$x), 'hi'))

在 1.5 时，它当然会过度绘制（你写的是“附加”，而不是“替换”，所以我不确定你在追求什么）。如果您不希望这样做，则需要执行以下操作：

pretty_br <- pretty(df$x)[abs(pretty(df$x) - 1.5) > 0.25]
ggplot(df, aes(x, y)) + 
  geom_line() +
  scale_x_continuous(breaks = c(pretty_br, 1.5), labels = c(pretty_br, 'hi'))