使用ggplot在轴末端剪切标记

Question

R version 3.1.1 (2014-07-10) Platform: i386-w64-mingw32/i386 (32-bit)

我正在使用ggplot2制作直方图。由于我有严重的尾数据，我想使用轴＆＃34;剪辑标记＆＃34;在ggplot中的x轴的末尾，如下例所示。 （不是红色的0.95分位数，而是x轴末端的小黑色标记）

问题不在于Using ggplot2, can I insert a break in the axis?中询问的轴内断裂，而是关于轴末端的剪切和添加标记，绘图的读者可以立即看到观察到的数据超出轴。此示例在x轴的末端有两个小的倾斜平行斜线。这就是我想在ggplot情节中实现的目标。

require(plotrix)
x <- rbeta(10000, 1, 7)
hist(x, xlim=c(0,0.4))
axis.break(1,0.405)

是否有可能通过ggplot获得类似的轴断裂标记？我有想法使用geom_segment，但我没有达到任何好的解决方案，因为它总是取决于x和y轴值的比率。

ggplot()+
      geom_histogram(aes(x=x), binwidth = 0.05)+
      coord_cartesian(xlim = c(0, 0.45))

感谢您的帮助！

Answer 1

评论后编辑。更好？

ggplot()+  geom_histogram(aes(x=x), binwidth = 0.05, color = "grey30", fill = "white")+
  coord_cartesian(xlim = c(0, 0.405)) +
  theme_tufte() +
  labs(y = "Frequency") +
  annotate("text", x = 0.4, xend = 0.4, y = 0.01, yend = .99, colour = "red", label = "//", size =6)